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Phan I - Windows Forms 


1. Ket hgfp Help vao tfng dung 


WiMiglWp 


y 

F 4 e 

T col f ip Het | PopUp Help HTML H sip | [no* Hdp | 


Nhi' i vitl diu Va tali <Ji rhify vd& tit flli (It InS tic htj lid 

li-klntj ijig liuny cat file lid 


rrxj! 


Lilli Tli "apout Cu nplliy a Iterlp pujeut 1 




Lri To 'Vninfilrwj \ rjwiii! indexed 1 


Siukh^r^*'^- 

c 6 lhiri I 


wki- ..V^ A.Im . 

pjs^sgf-* ?.; :r 


» 4 . 1 . uTvJf 


,J5J *J 


3 «■ 


HLfc 


Back 


ts & m- 

Hume Rtii DpsLns 


Cortertt j i^de# | iciarch | FovoiiIcj j 


I 

la 


♦ 

% 


I- J. lOjcny h*ML HHp 
l>ct*3nr£j a Hct . ydem 
C eatng Hefe 
^ C>r*l* ->HHprYr|f»-( 

^5 Cc,tioir»:e-«p 

j-J f\ Hfiln alii Tr-,l lH. 

i ^ Comple a Hob PioiBcf 
Trrl <a HHp -.lam 

^ Ho«x vP Htb 'o o Procfsr'. 

^ |/rf>«yc .aigr Ducj tehl : e'-i 
U 'in; h I ML I l?b T l*-e Wet 
HTML Hob R=f =(inc« 


Jll 


Compile u lietp project 

Ir H~Ml HpIp 'apiI "linp. /n.j r.^r- 
U’ll ipltf a t-llelLl-! u( aepd’aW 

arid ro^cenccljcs 

mrtAin*ri n a lv» p p'nj^ir 'il^ r* 
trealfc h vuis piled Its Ip {'.Jin •■ 
file- '~c- ccmDilo; hc:t ft c Can 
fi-pn r.e pi at?it nn >nu' 'i=rrt 
dial-. d 3.5-t‘ C'f dial-, d Cjlllpdi-t 

dire, a sorter licet on, :-n 
Irt-Piiv*''irr.ntinn, rr an rhino' 
lu.aLi j! 

Curing cjmp liti_n, HTM. Ht'li, 
'•'vorl rhoD 1 .- 50 s the idb rroicit 
i hhnl~|p to cietenr mo l-nw 
HTKL U LiL fi L'b, w U UU I *.; i 
files, r.de ■ r hh^’ fiics, .mice 


d 


Chircfng trinh n&y cho thay each them churc n&ng h6 trcf (help) v&o mot 
ufng dung Windows viet b&ng Visual Basic .NET being edeh suf dung cac 
control ToolTip, HelpProvider, \k ErrorProvider. 

Chuy: 

> Source code h& trtf cho ede chitong trinh dufefe trinh bay trong sach n4y 
co the download tai trang web http://www.ntbooksvn.com/. 

> Vi kho sach c6 gidi han nen Source code trinh bay trong sdeh nay co 
mot dau chain tai diu mSi dong d4 bieu diln mot dbng code trong 
Visual Basic .NET. 
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Danh sach cac control va thudc tinh chinh: 


Control 

Thugc ti'nh 

Gia trj 

Form 

(Name) 

frmMain 


FormBoderStyle 

FixedSingJe 


HelpButton 

True 


Maximi 2 eBox 

False 


MinimizeBox 

False 

MainMenu 

(Name) 

mnuMain 

HelpProvider 

(Name) 

hpAdvanceCHM 


HelpNameSapce 

..Vhtmlhelp.chm 

HelpProvider 

(Name) 

hpPlainHTML 


HelpNameSpace 

..\help.htm 

ToolTip 

(Name) 

ToolTipl 



ErrorProviderl 

/ TextBox 


txtProductName 

t 


Enter a product name. 



rtbTextEntry 


HelpString on hpAdvanceCHM 

This is the text entry area. Use this 
area to enter text which can be 
saved to an rtf file. 


ShowHelp on hpAdvanceCHM 

True 

Button 

(Name) 

btnLinkl 


HelpKeyword on hpAdvanceCHM 

about compiling a help project 


HelpNavigator on hpAdvancedCHM 

Keywordlndex 


ShowHelp on hpAdvanceCHM 

True 

Button 

(Name) 

btnLink3 


HelpKeyword on hpPlainHTML 

help.htm 


ShowHelp on hpPlainHTML 

True 

TextBox 

(Name) 

txtNumberValue 


Chi tiet mnuMaln: 


Logi 

Thupc tinh 

Gia trj 

Cha 

(Name) 

mnuFile 


Text 

&File 

Con cua File 

(Name) 

mnuExit 


Text 

E&xit 

Cha 

(Name) 

mnuHelp 


Text 

&Help 

Con cua Help 

(Name) 

mnuContentsHelp 


Text 

Contents... 

Con cua Help 

(Name) 

mnuIndexHelp 


Text 

Index... 

Con cua Help 

(Name) 

mnuSearchHelp 


Text 

Search... 
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-- Coding 'IVeh.mqiu^ -- 

Chufc nanq va each sfr dung cac control: 

> Control ToolTip dirge suf dung d£ hi£n thi thong diep hS trg ng&n cho 
cac control khi ddt con tr6 chugt phia tren control. Ta chi edn ddt vdo 
project mot control ToolTip vd sau dd tren ede control muon hidn thi 
tooltip ta chi edn nhgp vdo chuSi edn hien thi vdo thugc tinh ToolTip 
on <ten ToolTip> trong cufa s6 Properties cua control dd (vi du: TextBox 
txtProductName). 

> Control HelpProvIder dugc sur dung de ho trg chufc ndng “What’s this” 
tren cac control, hien thi thong tin hS trg trdn mgt cufa sd’ nho. Bdt 
control HelpProvider vdo form, v& nhap dudng ddn cua file help (.chm, 
.htm) vdo thugc tinh He Ip Namespace. Boi vdi control edn ho trg, nhap 
chudi mudn hien thi vdo thugc tinh HelpString on <ten HelpProvider> 
vd ddt thugc tinh ShowHelp on ddn HelpProvider> bdng True. Ngudi 
sur dung chon dau hoi d tren thanh tidu de cua form vd nhdn vdo 
control, mdt ciifa sd nhd xudt hi£n chtfa n$i diing Id chufii da gdn (vi du: 
RichTextBox rtbTextEntry). 

> Control HelpProvider edn c6 thd dugc sOr clung d4 lidn kdt vdi mgt tir 

khoa cu the trong mgt file .chm. Nhap chudi tCr khda can tim trong file 
.chm vdo thugc tinh HelpKeyword on <tSn HelpProvider> vd gan thugc 
tinh HelpNavigator on <tdn HelpProvider> b&ng gid tri Keywordlndex, 
cuoi cung dat gid tri cua thu$c tinhShoWHetp on <T£r> HelpProvider> 
la True. Khi ngudi suf dung dfirig Chtigtvdlddhhdi nhdn vdo control, 
cufa sd HTML help se md ra vd tini ngiduttg vdi tir khda trdn (vi du: 
Button btnLinkl). . , 1 

> HelpProvider dirge suf dung d£ hi£n thi m$t trang HTML c a ban dd 
cung cap chufc ndng hd trg cho control. Gdn dirdng dan den mot file 
HTML vdo thu$c tilth HelpNamespace cua HelpProvider. Tren control 
muon hd trg, gdn gid tri thugc tinh ShowHelp on <Tdn HelpProvider^ 

Id True. Khi ngudi suf dung cd yeu cdu h6 trg tren control ndy, mgt 
trinh duygt vdi n$i dung Id file HTML tren dugc md ra, (vi du: btnLink3 
vd HelpProvider hpPiainHTML). 

> Control ErrorProvider dugc suf dung dd hien thi thong bdo true quan 
trdn mgt control md duf ligu nh^p vdo khdng hgp lg. Tren control muon 
thdng bdo khi cd l6i, ddt thugc tinh CauseValidation bdng True (vi du 
txtNumberValue), vd trong thu tuc Validation ta suf dung phuong thufc 
SetError cua ErrorProvider dd’ thdng bdo l6i. 



Project: Ket hop Help vao ung dung 

• Private Sub txtNumberValue_Validating(ByVal sender As Object, 
ByVal e As System.ComponentModel.CancelEventArgs) Handles 
txtNumberValue. Validating 
If Not IsNumeric(txtNumberValue.Text) Then 

' Kich ho$t errorprovider di ihdng bao loi cho ngifdi sit dijng. 
ErrorProviderl ,SetError(txtNumberValue, “Not a numeric value.*) 
Else 

' X6a thdng bao l6i 

ErrorProviderl.SetError(txtNumberValue, **) 

End If 
End Sub 


> Control HefpProvfder c6n dvgc sur dung d£ hiln thi cdc tab chore nftng 
Contents, Index, v& Search trong m0t file .chm. hiin thj tab 1 
Contents ta sur dung phuong thurc ShowHelp, hiin thi tabJnftyt.sft dyng 
phifcng thurc ShowHelpIndex, \h hien thi tab Search ta sdf pJkuAmg 
thurc ShowHelp kfem vdi tham so HelpNavigator.Find. V£ 4# . , 

■ i i i 

Private Sub mnuCententeHeip_CHck(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuContentsHeip.Click 

' Hiin thj n6i dung (contents) cua file help .chm. '■ 1 

Help.ShowHelp(Me, hpAdvancedCHM.HelpNamespace) 

■ End Sub . .-■> « 

Private Sub mnulndexHelp_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuIndexHelp.Click 

' Hiin thj chi muc (Index) cua file help. . ■ _ ~ 

Help.ShowHelplndex(Me, hpAdvancedCHM.HelpNamespace) 

End Sub ’ • , >. 

Private Sub mnuSearchHelp_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handies mnuSearchHelp.Click . 

* Hiin thj tab tim kiim cua file help .chm. 

Help.ShowHelp(Me, hpAdvancedCHM.HelpNamespace, HelpNavigator.Find, *") 
End Sub 
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- Codin'/ Toditijqiuo- -- 


2. Tao tfng dung theo kieu Explorer 

PhAn nAy gom hai vi du bi^u dien cAc dng dung kieu Explorer: 


DirectoryScanner vA ExplorerStyleViewer. 


^Enplorer don gian 




^jnjxj 

He View 



AA 

Name 1 

Size 

Modi ted 

1 Attrfcute ! 

*, .sJ CA 

JSUHDLQG DAT 

9,148 

8/21/2002 7 33 

HS 

♦ D V 

_J COMMAND C 

93,890 

4/23/1999 11 2 

HS 

♦ -jl} EA 

JBQOTIOG TXT 

49,055 

8/21/2002 7 4 7 

HS 

♦ „aJ FA 

Jdetlogtxt 

71,567 

8/21/2002 7 36 

HS 

♦ »=J HA 

jBOOTLOG.PRV 

44.099 

8/21/2002 7:39 . 

HS 

IA 

JAUTOEXEC.B. 

0 

10/10/203211 

A 


J CONFIG SYS 

0 

10/10/200211 

A 


JVIDEGRQM B. 

49.152 

8/21/2002 7 39 

HS 


,J D6LSPACE BIN 

68.871 

4/23/199911 2, 

HRS 


Pj MSDOS SYS 

1.678 

8/21/2002 7 37 . 

HRS 


_J DRVSPACE B . 

68,871 

4/23/199911 2 

HRS 


MMSDOS - 

6 

8/21/2002 7:22 , 

HS 


JSETUPLOG.T. 

118,265 

8/21/2002 7 39 

HS 


J NET LOG TXT 

6.380 

8/21/2002 7 39 . 

HS 


IJIO SYS 

222,390 

4/23/139911:2 

HRS 


J SYSTEM 1ST 

512.032 

8/21/2002 7:33 

HS 


10EMR0M BIN 

43152 

8/16/2001 11 4. 

A 


Cac chufc nanq va cac control: 

> DirectoryScanner la dug dung dcfn gian quet qua tat ca thir muc vA cAc 
thir muc con trong tat ca cAc 6 dla c6 tr&n mAy tinh hoAc ngi/di suf dung 
chon niQt thu muc khdi dAu de quAt. Mot control TreeView dtroc suf 
dung de hien thi cau true thu muc dtfqc quet. CAc thif muc dnorc hien thi 
theo cAc mau xanh, vang, vA do tuy vAo tong kieh thutfc cua thuf muc. 
Control LislView suf dung de hiAn thi cAc thir muc con va kich thtfdc cua 
chung. 


Project: Tao ung dung kieu Explorer 


DirectoryScanner. vb 

Option Strict On 
Imports System.IO 

Public Class DirectoryScanner 

Inherits System.Windows.Forms.Form 


' Code phat sinh form dupe bd qua 
Const MB As Long = 1024 * 1024 
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«' Coding T-.’ciuiliqui’i- 


' Thu tuc xti ly cho menu “Scan / All Directories”. 

Private Sub mnuScanAH_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuScanAII.Click 

' Lay danh sach cac 6 dla logic cho v&o mot m£ng 
Dim Drives As String() = Directory.GetLogicalDrivesQ 
Dim drive As String 

tvwDirectories.Nodes.Clear() 

IvwDirectories. Items.Clear() 

For Each drive In Drives 

Dim dnDrive As DirectoryNode 

Try 

' Tao mdt DirectoryNode tUcing Ung cho mot dia logic va cho no vho TreeView. 
dnDrive = New DirectoryNode() 
dnDrive.Text = drive.Remove(Len(drive) -1,1) 
tvwDirectories.Nodes.Add(dnDrive) 

’ Tinh toan kich thudc cua 6 dia bang each cong kich thifdc 
' cua tat ca cac thu muc con cua no lai. 
dnDrive.Size += GetDirectorySi 2 e(drive, dnDrive) 

Catch exc As Exception 

' Khong lam gi ca. Chi ddn gian la nhiy qua cac thi/c muc 
' khong the doc. Va chuong trinh tiep tuc tai dong code dau 
' tien difng sau End Try. 

End Try 
Next 
End Sub 

’ Thu tuc xii ly cho menu “Scan / From One Directory" 

Private Sub mnuScanFromOn_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuScanFromOne.Click 

' Hien thi h6p thoai FolderBrowser vi chon thu myc b&t dau bang 
' thu myc do ngUdi suf dung chQn. 

Dim strSelectedDirectory As String = FolderBrowser.ShowDialogO 
Dim dnSelectedDirectory As DirectoryNode 
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tvwDirectories.Nodes.ClearQ 
IvwDirectories.Items.Ctear() 

Try 

’ Them DirectoryNode tUdng ting cho thu myc dupe chQn vio Tree View 

dnSelectedDirectory = New DirectoryNodeQ 

* 

dnSetectedDirectory.Text = strSelectedDirectory 
tvwDirectories.Nodes. Add(dnSelectedDirectory) 

' Tinh kich thudc cua thu myc dUQc chgn. 
dnSelectedDirectory.Size += GetbirectorySize(stfSelectedDrrecfory, 
dnSelectedDirectory) 

Catch exc As Exception ^ 

’ Khong lim g) ci 
End Try 
End Sub 

.'X i . • . r,. ' • . .* 

' Thu tuc xl! ly si/ kien Load cu&form DirectoryScaner. 

Private Sub DirectoryScanner^Lba^fiyVaNSfcndbf As System Object, ByVal e As 
System.EventArgs) Handles MyBaseA-O^. 1 ;’-^ . 

' Thief lip cac cot cua ListView * *; < 1 -v. 

IvwDirectories.Columns.Add(“Size\, 90. HorizontalAlignment.Left) 
IvwDirectories. Columns. AddCFolder Name*. 400, HorizontalAlignment.Left) 
End Sub , , . . . . . 

■ 4 v • . ^ v. '' " 

Private Sub TreeV.iew_Aftw’jpxpan^^yVal gender As Object, ByVal e As 
TreeViewEventArgs) Handles tvwOirectorles.AfterExpand e.Node.ExpandQ 
ShowSubDirectories(CType(e.Node. DirectoryNode)) 

End Sub 

■ ' ’ l 

Private Sub TreeView_AfterSelect(ByVal sender As Object, ByVal e As 
TreeViewEventArgs) Handles tvwDirectories.AfterSelect 

Dim strSubDirectory As DirectoryNode = CType{e.Node, DirectoryNode) 
IvwDirectories. Items.Clear() 

AddToListView(Format(strSubDirectory.Size / (1024 * 1024), "F") + “MB", _ 
strSubDirectory.Text) 


End Sub 
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' Thu luc nay them strSubDirectory do ngtfdi su dung chon trong 
' TreeView vaoListView, va quy dinh cac gia tri text, size, va color 
Private Sub AddToListView(ByVal strSize As String, ByVal strFolderName As String) 
Dim Ivi As New ListViewltem() 

Dim Ivsi As ListViewItem.ListViewSubltem 

Ivi. Text = strSize 

Ivi.ForeCoIor = GetSizeColor(strSize) 

Ivsi = New ListViewltem.ListViewSubltem() 

Ivsi.Text = strFolderName 
Ivi.Subitems.Add(lvsi) 

IvwDirectories.ltems.Add(lvi) 

End Sub* 

' Ham nky tri vS mdt mku dt/a trdn kich thdoc t6ng cua thu myc vA 
' tat ck thd myc con cua no, Dky Ik hkm thii nhat trong hai hkm overload, .• 
Private Function GetSizeColor(ByVal strSize As String) As.System;Oe*j*Hrig.Cdlor 
Return GetSizeColor(CLng(CDbt(strSize.Substring(0, _ rL ' ' 

strSize.LastlndexOf('M") -1)) * MB)) v.- v 

End Function 

' Hkm nay trk vS mdt mku di/a trdn kich thddc t6ng cua thu myc vk 
’ tit ca thu myc con cua no. Dky la hkm thU hai trong hai hkm overload. 

Private Function GetSizeCotor(ByVal intSize As tong) As System.Drawing.Color 
Select Case intSize j 

Case 200 * MB To 500 * MB * 

Return System.Drawing.Colcr.Gold 
Case Is > 500 * MB 

Return System.Drawing.Color.Red 
Case Else 

Return System.Drawing.Color.Green 
End Select 
End Function 

' Ham nay Ira ve kich thudc cua mot thu myc, va tat ca thu muc con cua no. 

Public Function GetDirectorySize(ByVal strDirPath As String, _ 

ByVal dnDriveOrDirectory As DirectoryNode) As Long 
* Hien thj thu myc dang duoc quet tren thanh trang thai 


- Coding Techniques - 
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sbrScan.Text = “Scanning : “ + strDirPath 
Try 

Dim astrSubDirectories As StringO = Directory.GetDirectories(strDirPath) 
Dim strSubDirectory As String 

’ Kich thudc cua thu myc hien hinh phy thudc vio kich thUdc 
' cua cac thu myc con trong ming astrSubDirectories. Do do lip 
' lai trong mang vi sii dyng dS quy de tinh tong kich thudc cua 
' thu myc hi$n hdnh vd tit ci thu myc con cua nd. 

For Each strSubDirectory In astrSubDirectories 
Dim dnSubDirectoryNode As DirectoryNode 
dnSubDirectoryNode = New DirectoryNode() 

’ Gan gia trj text cua node bing phan cuoi cung cua dudng din diy du 
dnSubDirectoryNode.Text = strSubDirectory.Remove(0, _ 

strSubDirectory.LastlndexOf("\“) + 1) 

1 Ddng bin dudi la de quy. 
dnDriveOrDirectory.Size += _ 

GetDirectorySize(strSubDirectory, dnSubDirectoryNode) 
dnDriveOrDi rectory. Nodes. Add(dnSubDirectoryNode) 

Next 

' Cong vdi kich thudc cua tit ca cac file trong thu myc hi$n hinh 
Dim astrFiles As StringO = Directory.GetFites(strDirPath) 

Dim strFileName As String 
Dim Size As Long = 0 

For Each strFileName In astrFiles 
dnDriveOrDirectory.Size += New Filelnfo(strFileName).Length 
Next 

' Gan miu cho TreeNode dUa tren tong kich thudc tinh dupe 
dnDriveOrDirectory.ForeColor = GetSizeColor(dnDriveOrDirectory.Size) 
Catch exc As Exception 

' khdng lim g) ca doi vdi cac thu myc khdng doc dUdc 
End Try 

‘ Xoa thanh trang thai va tri vS t6ng kich thudc cua thu myc nay 
sbrScan.Text = ““ 

Return dnDriveOrDirectory.Size 
End Function 
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— Coding Techniques — 


' Khi m6t tbu muc dUQc md ra, th$m cac thu myc con cua no vdo Listview. 

Public Sub ShowSubDirectories(ByVal dnDrive As DirectoryNode) 

Dim strSubDireciory As DirectoryNode 
IvwDirectories.Items.Clear() 

For Each strSubDirectory In dnDrive.Nodes 
AddToListView(Format(strSubDirectory.Size / MB, *F“) + "MB", _ 

strSubDirectory.Text) 

Next, 

End Sub 

• End Class 

DirectoryNode.vb 

• Option Strict On 

■ ’ Class nAy chi don giin md rdng class TreeNode, thdm thuQc \1nh Size 

■ ' di hJu klch thudc ctia thd myc nh&m ti8 trcr cho mi/c dfch dtupn mAu. 

Public Class DirectoryNode 

Inherits TreeNode nu 

Public Size As Long 

End Class v ' ' " i!; ! c 

. ; vc, - j 

FolderLIst.vb 

■ Option Strict On v 

■ Imports System.Windows.Forms 

• ' Can c6 class nAy bdi v) 

■ ' System.Windows.Forms.Design.FolderNameEditor.FolderBrowser 

■ ' dU0c bio vS (Protected) vA khdng thi truy xuctt trong ngi7 cinh nay. 

■ ' PhAt sinh mfyt class Public tit nb $e cho phbp stir dung hbp tho$i trong code. 

• Public Class FolderBrowser 

Inherits System.Windows.Forms.Design.FolderNameEditor 

Public Shared Function ShowDialogO As String 
Dim fb As New FolderBrowserQ 
fb.Description = “Select a Directory to Scan* 

fb.Style = Design.FolderNameEditor FolderBrowserStyles.RestrictToFilesystem 
fb.ShowDialogO 
Return fb.DirectoryPath 
End Function 
End Class 
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> ExplorerStyleVlewer Id m$t phi&n bdn don gian cua Windows 
Exolorer. Chtfcmg tiinh ndy cung cdp nhiiu thdng tin hem 
Directory Scanner, bilu diin edeh kit hop ede bilu tifong vdi ede kieu 
file, vd cho phdp ngUdi suf dung chay m$t tfng dung tuong tfng vdi kiiu 
cua file bdng edeh nhdp dup chu$t vdo ten file. ChtfOng tiinh ndy cung 
bilu diin edeh phdt sinh control md khong edn thiet ke giao diin. 

DirectoryTreeVlew.vb 

Option Strict On 

Imports System.10 

Public Class ExptorerStyleViewer 

Inherits System.Windows.Forms.Form 

' Khai bao ckc biin d£ lifu cAc instance cua cAc class ti/ t$o 
Private dtvwDirectory As DirectoryTreeView 
Private flvFiles As FileListView 
Private mivChecked As MenultemView 
Public Sub New() 

MyBase.Newf) 

InitializeComponentQ 

’ BAt diu phAn code vi£t them 

‘ T$o m$t instance flvFilesView 
flvFiles = New FileListViewf) 
flvFiles.Parent = Me 
flvFiles.Dock = DockStyle. Fill 

' Tao mdt instance Splitter (thanh chia) 

Dim split As New Splitter() 
split.Parent = Me 
split.Dock = DockStyle.Left 
split.BackColor = SystemColors. Control 

’ Tqo m$t instance DirectoryTreeView vd thdm mdt event handler OnAfterSelect 
dtvwDirectory = New DirectoryTreeViewf) 
dtvwDirectory. Parent = Me 
dtvwDirectory.Dock = DockStyle. Left 
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AddHandler dtvwDirectory.AfterSelect, _ 

AddressOf DirectoryTreeViewOnAfterSelect 

' ThSm menu View vio menu chi'nh da tSn t?i 
Dim mnuView As New Menultem("&View , ‘) 
mnuView.Index = 1 

Me.mnuMain.Menultems.Add(mnuView) 

' ThSm bon menu con vko menu View. Bit diu bkng each tao 
1 mot mkng d£ quy djnh ckc thuQc tinh cua cac menu con. 

Dim astrView As StringO = {"Lar&ge Icons", "S&mall Icons", "&List", "&Details"} 
Dim aview As View() = {View.Largelcon, View.Smalllcon, View.List, View.Details} 
' Tao m$t event handler cho ckc menu con. 

Dim eh As New EventHandler(AddressOf MenuOnViewSelect) 

Dim i As Integer 
For i = 0 To 3 

' Si? dang mot class tuy bien MenultemView, class nky md 
' rdng class Menultem de h6 try thude tinh View. 

Dim miv As New MenultemView() 
miv.Text = astrView(i) 
miv.View = aview(i) 
miv.RadioCheck = True 
‘ KS't handler da tao vdi si? ki$n Click. 

AddHandler miv.Click, eh 

' ChQn che do mkc nhiSn Ik Details 
If i = 3 Then 
mivChecked = miv 
mivChecked.Checked = True 
flvFiles.View = mivChecked.View 
End If 

' ThSm menu con vko menu View 
mnuView. Menultems.Add(miv) 

Next i 
End Sub 


• ' Code phat sinh dupe bd qua 
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' Thu tyc niy lam cho FileListView hiSn thj noi dung cua thif myc dUQc chyn. 
Sub DirectoryTreeViewOnAfterSelect(ByVal obj As Object, _ 

ByVal tvea As TreeViewEventArgs) 
flvFiles.ShowFiles(tvea.Node.FullPath) 

End Sub 

' Thu tyc st/ kien cho cac menu con cua menu View 
Sub MenuOnViewSelect(ByVal obj As Object, ByVal ea As EventArgs) 

' Xoa danh di'u myc dang duyc chyn 
mivChecked.Checked = False 
' Danh dSu menuitem dU0c chyn. 
mivChecked = CType(obj, MenultemView) 
mivChecked.Checked = True 

' Thay ddi cich hien thj cac file trong FileListView 
flvFiles.View = mivChecked.View 
End Sub 
End Class 

DirectoryTreeView.vb 

Option Strict On 
Imports System.IO 
Class DirectoryTreeView 
Inherits TreeView 
Public Sub New() 

’ Ndi r$ng khdng gian hdn di hi4n thj cic tin thu myc dii. 

Me.Width *= 2 
’ Liy cac h)nh inh cho ciy 
Me.lmageList = New ImageListQ 
With Me.lmageList.Images 

.Add(New BitmapC.AExplorerStyleViewerVSSFLOPPY.BMP’)) 
.Add(New Bitmap(“. AExplorerStyleViewer\CLSDFOLD.BMP')) 
.Add(New Bitmapf.AExplorerStyleViewer\OPENFOLD.BMP*)) 

End With 


’ Xiy di/ng lyi ciy 
RefreshTree() 

End Sub 
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Protected Overrides Sub OnBeforeExpand(ByVal tvcea As 
T reeViewCancelEventArgs) 

MyBase.OnBeforeExpand(tvcea) 

' Dkt code c$p nhkt ciy vko giOa hai linh BeginUpdate vk 
' EndUpdate d£ tkng hiiu xuk't vk di cky khdng bj “ rung" 

Me.BeginUpdate() 

Dim tn As TreeNode 

' Thim ckc node con cho mSi node con trong node dddc ngudi sU dyng chQn. 
For Each tn In tvcea.Node.Nodes 
AddDirectories(tn) 

Next tn 

Me.EndUpdate() 

End Sub 

' Thu tyc nky dupe s& dyng di thim cac node con cho m$ti thu myc cha 
' (dupe truyin nhu mdt d6i $6.) 

Sub AddDirectories(ByVal tn As TreeNode) 
tn.Nodes.Clear() 

Dim strPath As String = tn.FullPath 

Dim diDirectory As New Directorylnfo(strPath) 

Dim adiDirectories() As Directorylnfo 

Try 

1 Lk'y thdng tin t£t ck thu myc con vko ckc dii tUpng Directorylnfo 
adiDirectories = diDirectory.GetDirectories<) 

Catch exp As Exception 
Exit Sub 
End Try 

Dim di As Directorylnfo 
For Each di In adiDirectories 

' T$o mdt node con cho mpi thu myc con, truyin vko 
' tin thu myc vk ckc h)nh knh node cOa nd se sdr dyng. 

Dim tnDir As New TreeNode(di.Name, 1,2) 

’ Thim m$t node con mdi vko node cha 
tn.Nodes.Add(tnDir) 
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' Dirt day cd the tao to&n bo cay bing each g<?i de quy 
' AddDirectories(), nhUng cich n&y kha ch$m. 

' AddDirectories(tnDir) 

Next 
End Sub 

' Thu tyc ndy xoa noi dung cic d6i tUQng TreeNode da t6n tyi v& 
’ xiy dt/ng lyi DirectoryTreeView, hiin thj cac dia logic. 

Public Sub RefreshTree() v 

BeginUpdate() 

Nodes.ClearO 

' ChQn cac dia l&m cac node g6c 

Dim astrDrives As StringO = Directory,GetLogicalDrives() 

Dim strDrive As String 

For Each strDrive In astrDrives 

Dim tnDrive As New TreeN$4e{sttDr»ve, O t O) 

Nodes. Add(tnDrive) • 

AddDirectories(tnDrive) v 

' ChQn dia C l£m dia m$c nhiin . 

If strDrive = "C A'Then 

Me.SelectedNode = tnDrive 
End if r 

Next 

EndUpdate() 

End Sub 
End Class 

FileListView.vb 

Option Strict On 
' SCI dung cho Process. Start 
Imports System.Diagnostics 
Imports System. 10 

Class FileListView 
Inherits ListView 
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Private strDirectory As String 
Public Sub New() 

' Chpn ch£ d6 mic nhidn IA Details 
Me.View = View.Details 

' Nh$n vAo cAc h)nh Anh lAm cAc bi£u tupng cho cAc kiiu file 
Dim img As New ImageListQ ~ 

With img.Images 

.Add(New Bitmap(".AExplorerStyleViewer\DOC.BMP")) 

.Add(New Bitmap("..\ExplorerStyleViewerVEXE.BMP')) 

End With 

' Danh sAch vdi Small image vA Large image sCfdyng cung cAc hlnh Anh 
Me.SmalllmageList = img * ... 

Me.LargelmageList = img 

' T$o cAc c$t 
With Columns 

.Add(“Name“, 100, HorizontalAlignment.Left) 

.Add(“Size“, 100, HorizontalAlignment.Right) 

.Add("Modified\ 100, HorizontalAlignment.Left) 

Addf Attribute', 100, HorizontalAlignment.Left) 

End With 
End Sub 

‘ Overrides event handler OnltemActivate. Cho phAo ch$y bit ky 
' chddng trinh .exe hoAc file cd chUting tnnh ket hpp. 

Protected Overrides Sub OnltemActivate(ByVal ea As EventArgs) 
MyBase.OnltemActivate(ea) 

Dim Ivi As ListViewItem 
For Each Ivi In Selectedltems 
Try 

P rocess. Start(Path.Combine(strDirectory, Ivi.Text)) 

Catch 

' Khdng I Am g) ci, tiS'p tyc vdi Ivi k£ ti£p 
Exit T ry 
End Try 
Next Ivi 
End Sub 
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' Thu tyc nay hiSn thi mdt danh sach cua tit ca cac file trong 
' thu myc dang dirge chgn trong TreeView. 

Public Sub ShowFiles(ByVal strDirectory As String) 

' Litu ten cua thu muc 
Me.strDirectory = strDirectory 
Items. C!ear() 

Dim diDirectories As New Directoryinfo(strDirectory) 

Dim afiFiles() As Filelnfo 
Try 

' G<?i phuong thifc GetFile di liy mdt ming tit cd cac file trong thif myc 
afiFiles = diDirectories.GetFiles() 

Catch 
Return 
End Try 

Dim fi As Filelnfo 
For Each fi In afiFiles 
' Tyo mdt ListViewItem. 

Dim Ivi As New ListViewltem(fi.Name) 

' Gan Imagelndex dila vdo phan md rdng cua tSn file . 

Select Case Path.GetExtension(fi.Name).ToUpper() 

Case ".EXE" 

Ivi. Imagelndex = 1 
Case Else 

Ivi.Imagelndex = 0 
End Select 

’ Them cac thdng tin “kfch thudc " vd u ngdy thay d6i cu6i cung” 

Ivi.Subitems. Add(fi.Length.ToString("NO“)) 

Ivi.Subitems. Add{fi.LastWriteTime.ToString()) 

•* Thdm thong tin thudc tinh 
Dim strAttr As String = “ 

If (fi.Attributes And FileAttributes.Archive) <> 0 Then 
strAttr += “A* 

End If 
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If (fi.Attributes And FileAttributes.Hidden) <> 0 Then 
strAttr += “H" 

End If 

If (fi.Attributes And FileAttributes.Readonly) <> 0 Then 
strAttr += “R- 
End If 

If (fi.Attributes And FileAttributes.System) <> 0 Then 
strAttr += 'S' 

End If 

Ivi.Subitems. Add(strAttr) 

’ Th&m ListViewItem da ho&n tat vao FileListView 
Items.Add(lvi) 

Next fi 
End Sub 

• End Class 

MenultemView.vb 

Option Strict On 

■ ' Class n£y md rong class Menultem dS them thuoc tlnh View 
Class MenultemView 
Inherits Menultem 
Public View As View 

• End Class 

frmMain.vb 

Private Sub btnSimplej3lick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSimple.Click 
Dim sdv As New DirectoryScannerQ 
sdv.Show() 

End Sub 

Private Sub btnExplorer_Ciick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnExplorer.Click 
Dim esfv As New ExplorerStyleViewer() 
esfv.Show() 

End Sub 
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3. Crystal Report Print Preview 

Chircfng trinh n&y bi&i di£n cdch suT dung trinh xem Crystal Report trifdc 
khi in. 


g§Print/Preview Crystal Reports 


Fie Help 

Basic Report Dynamic Format Report j Parameter Report} Graph Drill Down Report j 




Height products with a unit price > [$0 Select highfight color 


FVevtew A1 Customers Orders Report 




The group tree on t 
provides quick nav 
ol the report 


« 4 ► ►! Qxg^.M 


Q) Alfreds Futterkiste 
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Q Antonio Moreno Taquerf 
Q Around the Hom 
Q Berglunds snabbkop 
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Q Blondesddsl pere et fils 
Q Bolido Comidas preparac 
D Bonapp' 

Q Bottom-DoBar Markets 
Q 0‘s Beverages 
0 Cactus Comtdas para le> 
Q) Centro comercial Moctej 
Q Chop-suey Chinese 
Q Corner cro Mineiro 
Q Consolidated Holdings 
Q Die Wandernde K.uh 
Q Drachenblut Defikatesse 
Q Du monde entier 
Q Eastern Connection 
Q Ernst Handel 
Q Fatniia Arquibaldo 
Q Folies gourmandes 
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Cac chufc nana chinh: 

> Cdch hiin thi m$t report (bdo cdo) suf dung Crystal Reports viewer. 

> Cdch truy^n tham s<!> v&o m$t report vjSl hiln thi n6 trong viewer. 

> Cdch sd dung c£y duy$t trong viewer. 

> Cdch thay d6i report luc chifcmg trinh dang chay. 

> Cdch suf dung chtfc nSng “drill down” dung mQt dd thi. 

Yeu cau: 

Cln c6 database Northwind trong SQL Server hodc MSDE (Microsoft 
Data Engine, chifcmg trinh n&y c6 trong phdn chi dfit Visual Studio .NET). 










Project: Su Dung Crystal Reports Print Preview 


AllCustomersOrders.rpt 




TenMostExpensIveProducts.rpt 
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TopSProductsSold.rpt 


Dui>g Crystal He ports Pnrrf Pie v row Wiciwoft VniwjJ B &s*c ,N£ T (deu^i) ■ TotAProdvcIsSoW it*" 
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frmMain.vb 

Option Strict On 
Option Explicit On 


Imports System.Data 

Imports System.Data.SqlClient 

Imports CrystalDecisions.CrystalReports.Engine 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

Protected Const MSDE_SERVER As String = "(local)WSdotNET" 

Protected Const SQL_CONNECTION_STRING As String = _ 
“Server=localhost;“ & _ 

“DataBase=Northwind;“ & _ 

“Integrated Security=SSPI;Connect Timeout=5“ 

Protected Const MSDE_CONNECTION_STRING As String = _ 
“Server=“ & MSDE_SERVER 
“DataBase=Northwind;“ & _ 

“Integrated Security=SSPI;Connect Timeout=5* 
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Private Connectionstring As String = SQL_CONNECTION_STRING 
Private HasConnected As Boolean = False 
Private ServerName As String = “localhost" 

Public Sub New() 

MyBase.NewO 

InitializeComponentO 

crvBasic.DisplayToolbar = True 
crvParameter.DisplayToolbar = True 
crvDynamicFormat.DisplayToolbar = True 
crvGraphDrillDown.DisplayToolbar = True 

' Thiet lip combobox chtia danh sich tin khich hang lay td 
' bing customers trong database Northwind 
Dim cnSQL As SqlConnection 
Dim cmSQL As SqlCommand 

' Tpo mot d6i titong DataReader 64 dpc dU lieu tCf doi tupng command 
Dim drSQL As SqlDataReader 

1 Hien thj mot hop trang thai bao cho bi£t chi/dng trinh dang ket noi. 

' Hop thoai niy cin khi thii't lip kit noi, sau khi xac d'mh dupe MSDE 
' hoic SQL Server diipc cii dit, khing cin din thing bao niy nOa. 
Dim frmStatusMessage As New frmStatus() 

If Not HasConnected Then 

frmStatusMessage.ShowfConnecting to SQL Server") 

End If 

' Tien hinh ki’t n6i den SQL Server hoic MSDE 
Dim IsConnecting As Boolean = True 
While IsConnecting 
Try 

' Dmh nghia chudi kit ndi. Can thay doi no cho phi hpp 
' vdi mii trUdng chpy Ctng dyng niy. 
cnSQL = New SqlConnection(ConnectionString) 
cnSQL.Open() 
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' Doi tuqng Command dung d£ thi/c hi$n cac ISnh SQL 
cmSQL = New SqlCommand() 

' KSt command vio kS't n6i 
cmSQL.Connection = cnSQL 

’ Quy djnh kieu cua command la Text (van bin) 
cmSQL. CommandType = CommandType.Text 

' Xoa Stored Procedure (thu tyc hJu trd noi) GetAIICustomerOrders neu da c6. 
cmSQL.CommandText = "IF EXISTS (SELECT * FROM dbo.sysobjects 
WHERE id = object_id(N'[dbo],[GetAIICustomerOrders] 1 ) and 
OBJECTPROPERTY(id, N'lsProcedure 1 ) = 1)" & _ 

“DROP PROCEDURE [dbo].[GetAIICustomerOrders]" 

' ThUc hien cau lenh Vila tao 
cmSQL. ExecuteNonQuery() 

' Tao thi tuc hJu trCt noi GetAIICustomerOrders 
cmSQL.CommandText = _ 

"CREATE PROCEDURE dbo.GetAIICustomerOrders “ & _ 

“AS " & _ 

“SELECT CUST.CompanyName, “ & _ 

"ORD.OrderlD, “ & _ 

“ORD.OrderDate, * & _ 

“ORD.ShippedDate, “ & _ 

"PROD.ProductName, “ & _ 

*ORD_D.UnitPrice, ' & _ 

"ORD_D.Quantity “ & _ 

“FROM Customers CUST " & _ 

“INNER JOIN Orders ORD “ & _ 

"ON CUST.CustomerlD = ORD.CustomerlD " & _ 

"INNER JOIN [Order Details] ORD_D * & _ 

“ON ORD.OrderlD = ORD_D.OrderlD “ & _ 

“INNER JOIN Products PROD “ & _ 

“ON ORD_D.ProductlD = PROD.ProductlD “ & _ 

"ORDER BY ORD.OrderDate " & _ 

“Return’ 





32 


- Coding IVelmiques — 


' Thi/c hien cau lenh trSn 
cmSQLExecuteNonQueryO 

' Xda sp GetCustomerOrder 

cmSQL.CommandText = “IF EXISTS {select * from dbo.sysobjects where id 
= objectJd(N'{dbo].[GetCustomerOrders]') and OBJECTPROPERTY(id, 
N'lsProcedure 1 ) = 1) * & _ 

"DROP PROCEDURE [dbo].[GetCustomerOrders] “ 

cmSQLExecuteNonQueryO 

' Tao SP GetCustomerOrder 
cmSQL.CommandText = _ 

"CREATE PROCEDURE dbo.GetCustomerOrders " & _ 

“@CustomerName nvarchar(50)" & _ 

“AS “ & _ 

"SELECT ORD.OrderlD, " & _ 

“ORD.ShippedDate,.“ & _ 

"ORD.OrderDate, ’ & _ , 

“PROD.ProductName, “ & _ 

"ORD.D.UnitPrice, " & _ 

"ORD_D.Quantity " & _ 

“FROM Customers CUST “ & _ 

"INNER JOIN Orders ORD " & _ 

"ON CUST.CustomerlD = ORD.CustomerlD ‘ & _ 

“INNER JOIN [Order Details] ORD_D " & _ 

“ON ORD.OrderlD = ORD_D.OrderlD " & _ 

"INNER JOIN Products PROD " & _ 

"ON ORD_D.ProductlD = PROD.ProductlD “ & _ 

"WHERE CUST.CompanyName = ©CustomerName " & _ 

‘ORDER BY ORD.OrderDate " & _ 

"RETURN" 

cmSQL.ExecuteNonQueryO 

’ CSu lenh Hy tit ci t£n c6ng ty trong bing Customers 
cmSQL.CommandText = "SELECT CompanyName " & _ 

“FROM Customers" 

' Thijc hi$n c£u l$nh trin vd tri dt7 lieu vao DataHeader 
drSQL = cmSQL.ExecuteReaderQ 
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' Di/a tit ci record v£o combobox 
Do While drSQL.ReadO 

cbCustomers.Items. Add(drSQL("CompanyName“).ToString()) 
Loop 

' Ch<?n phin tut diu tidn trong combobox 
cbCustomers.Selectedlndex = 0 

IsConnecting = False 
HasConnected = T rue 

'Dong kit nii. 
drSQL.CIoseO 
cnSQL.CIose() 

'Giii phdng tdi nguyin. 
cnSQL.DisposeQ 
cmSQL.DisposeO 

Catch Err As SqlException 

If Connectionstring = SQL_CONNECTlON_STRING Then 
' Khdng thS kit nii v&o SQL Server. Chuyin qua MSDE 
Connectionstring = MSDE_CONNECTION_STRING 
ServerNAme = MSDE_SERVER 
frmStatusMessage.ShowfConnecting to MSDE*) 

Else 

' Khdng thi kit nii vdo SQL Server vk MSDE 
frmStatusMessage.Close() 

MsgBox(*To run this sample you must have SQL Server* _ 

* or MSDE with the Northwind database installed.*, _ 
MsgBoxStyle.Critical, “SQL Server/MSDE not found*) 

' Thoat chLtdng trinh niu khdng c6 kit nii nko thdnh cdng 
End 
End If 

Catch Err As ExGeption - 

' Thdng bdo iSi khdng phii l6i SQL 
MsgBox(Err.ToString{), MsgBoxStyle.Critical, ’General Error") 
End Try 
End While 
End Sub 
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' Code phat sinh form dupe bd qua 

Private Sub btnPreviewBasicReport_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles btnPreviewBasicReport.Click 

' Trong thd ttjc niy, report"Ten Most Expensive Products" dupe 
' load vk hiSn thj trong crystal report viewer. 

' Cac doi tupng dung dS gin thdng tin kdt ntii database dung 
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table 
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnlnfo 

' Tpo mdt instance ReportDocument hfu gid report 
Dim rptExpensiveProducts As New ReportDocument() 

Try 

’ Load report 

rptExpensiveProducts. Load(\.\TenMostExpensiveProducts.rpt") 

' Gin thdng tin k&t ndi cho t£t c& cic ting dupe s£f dung trong report 
For Each tbCurrent In rptExpensiveProducts.Database.Tables 
tliCurrent = tbCurrent.LogOnlnfd 
With tliCurrent.Connectionlnfo 
.ServerName = ServerName 
.UserlD = *“ 

.Passwords” 

.DatabaseName = “Northwind* 

End With 

tbC u rrent. Apply LogOnl nfo(tliCu rreht) 

Next tbCurrent 

' Gin report cho crystal report viewer 
crvBasic.ReportSource = rptExpensiveProducts 
' Thu nhd trinh hiin thj thinh toin trang di c6 thd thay toan bd 
crvBasic.Zoom{2) 

Catch Exp As LoadSaveReportException 
MsgBoxflncorrect path for loading report.*, _ 

MsgBoxStyle.Critical, “Load Report Error") 
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Catch Exp As Exception 

MsgBox(Exp.Message, MsgBoxStyte.Critical, 'General Error') 

End Try 
End Sub 

Private Sub btnPreviewCustomerReport_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Randles btnPreviewCustomerReport.Click 

* Trong thu tyc niy Customer Orders Report dupe load vi hiSn thj. 

' Report niy dupe g<?i vdi m$t tham sd dupe li’y tif combobox cbCustomer. 

' Cic d6i tupng dung dS dUa tham sd vio report 
Dim pvCollection As New CrystalDecisions.Shared.ParameterValues() 

Dim pdvCustomerName As New _ 

CrystalDecisions.Shared.ParameterDiscreteVa!ue() 

Dim tbCurrent As CrystaiOecisions.CrystalReports.Engine.Table 
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnlnfo 

' Tpo mpt instance cua ReportDocument 
Dim rptCustomersOrders As Npw ReportDocument() 

Try 

’ Load report 

rptCustomersOrders. Load(\.VCustomerOrders.rpt') 

For Each tbCurrent In rptCustomersOrders.Database.Tables 
tliCurrent a tbCuitent.LogOnlnfo 
With tliCurrent.Connectionlnfo 
.ServerName = ServerName 
.UseriD = " 

.Password = " 

.DatabaseName = 'Northwind' 

End With 

tbCurrent. ApplyLogOnlnfo(tliCurrent) 

Next tbCurrent 

* Gin gii trj cy th£ vio pdvCustomerName 
pdvCustomerName.Value = cbCustomers.Text 

' Cho n6 vio tip hpp cic tham sd 
pvCollection. Add(pdvCustomerName) 
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’ Ap dung cac gii trj tham s6' hi$n h&nh 
rptCustomersOrders.DataDefinition.ParameterFields{ _ 
■<§CustomerName").ApplyCurrentValues(pvCoilection) 


' An ciy chgn nhom cua report nay 
crvParameter.DisplayGroupTree = False 

crvParameter.ReportSource = rptCustomersOrders 
crvParameter.Zoom(2) 

Catch Exp As LoadSaveReportException 
MsgBoxf Incorrect path for loading report/, _ 

MsgBoxStyle.Critical, "Load Report Error") 

Catch Exp As Exception 

MsgBox(Exp.Message, MsgBoxStyle.Critical, "General Error") 

End Try 
End Sub 

Private Sub btnPreviewDrillDownReport_Click(ByVal sender AS System.Object, 
ByVal e As System.EventArgs) Handles btnPreviewDrillDownReport.CHck . 

' Load va hien thj Top 5 Products Report. Report n&y cd mdtdd thf c6 
' the dupe sCf dung de truy xuat den chi ti&t cua report. 

Dim rptDrillDown As New ReportDocumentQ -c.~ 

Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table 
Dim tliCurrent As CrystalDecisions.Shared.TableLogQnlnfo 

Try . 

rptDrillDown.Load(\.\Top5ProductsSold.rpt") 

For Each tbCurrent In rptDrillDown. Database.Tables ■ , i > 

tliCurrent = tbCurrent.LogOnlnfo 
With tliCurrent.Connectionlnfo 
.ServerName = ServerName 
.UserlD ="" 

.Password = " 

.DatabaseName = ‘Northwind* 

End With 

tbCurrent. ApplyLogOnlnfo(tliCurrent) 

Next tbCurrent 
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crvGraphDrillDown.ReportSource = rptDrillDown 

crvParameter.DisplayGroupTree = False 
crvG raphDrillDown.Zoom(2) 

Catch Exp As LoadSaveReportException 
MsgBox("lncorrect path for loading report/, _ 

MsgBoxStyle.Critical, "Load Report Error") 

Catch Exp As Exception 

MsgBox(Exp.Message, MsgBoxStyle.Critical, "General Error") 

End Try 
End Sub 

Private Sub btnPreviewDynamicReport_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles btnPreviewDynamicReport.Click 
' Trong thu tuc ndy report All Customers Orders Report dupe load 
' va dupe hi£n thi trong crystal report viewer TrSn report ndy, ngudi sCf 
' dtjng co th£ quy dinh gia tiSn vd mdu sdc. Cac tham s£ nay dupe 
’ truySn vao report d£ xac djnh ddng ndo dupe Idm nSi bit len bkng 
' mau dupe chQn. Trong qua trinh thiet k£ report mdt formula dupe them 
' vdo phin details de diSu khien mau nSn. N£u dcfn vj gia ti£n IPn hcfn 
’ gid tri dupe truySn vdo thi chi tiet do cd mau nSn Id mdu dupe truySn vdo. 

' Ddy cung Id report in theo chiSu ngang (landscape). D£ hi£n thi vd in mot 
' landscape report dung, cin tpo mot d£i tupng report document vdo luc chay vd 
' sau dd can phdi gan report vdo no. 

Dim rptAIICustomersOrders As New ReportDocument() 

' Cac d£i tupng dung d£ truySn tham s£ vdo report 
Dim pvCollection As New CrystalDecisions,Shared.ParameterValues() 

Dim pdvColor As New CrystalDecisions.Shared.ParameterDiscreteValue() 

Dim pdvUnitPrice As New CrystalDecisions.Shared.ParameterDiscreteValue() 

Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table 
Dim tiiCurrent As CrystalDecisions.Shared.TableLogOnlnfo 
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' Quy dinh cac gia trj miu sic 
Dim red As Integer = RGB(255, 0, 0) 

Dim green f As Integer = RGB(0, 255, 0) 

Dim bluet-As Integer = RGB(0, 0, 255) 

If Not IsNumeric(txtUnitsToHighlight.Text) Then 

MsgBox("Please enter a number into the unit price text box.", _ 
MsgBoxStyle.Exclamation, Me.Text) 

Exit Sub 
End If 

Try 

' i oad report 

rpt Al 1C u stom ersOrd e rs. Load { 1 . AAI ICusto m e rsOrde rs. rpt“) 

For Each tbCurrent In rptAIICustomersOrders.Database.Tables 
tliCurrent = tbCurrent.logOnlnfo 
With tliCurrent.Connection Info 
.ServerName = ServerName 
.UserlQ = ” 

.Password = " 

.DatabaseName = “Northwind" 

End With 

tbCurrent. ApplyLogOnlnfo(tliCurrent) 

Next tbCurrent r - 

’ Quy dinh gid trj miu cp th4 
Select Case cbHighlightColor.Text 
Case “Red 1 „ 

pdvColor. Value = red 
Case “Green" 

pdvColor.Value = green 
Case "Blue“ 

pdvColor.Value = blue 
End Select - . 

' Quy djnh gia trj cua Unit Price (Gia tiin) 
pdvUnitP rice. Value = Clnt(txtUnitsToHighlight.Text) 

' Cho gia trj m&u sic v&o tap hpp tham s6 
pvCollection. Add(pdvColor) 
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’ Ap dyng gid trj m£u sic 

rptAIICustomersOrders.DataDefinition.ParameterFields( _ 
‘ColorToHighlight').ApplyCurrentValues(pvCollection) 

' Xoa cac tham s6 dS phyc vy tham s6 kS' tiep 
pvCollection.Clear(j 

' Cho gii trj unit price v£o t$p hyp tham stf 
pvCollection.Add(pdvUnitPrice) 

' Ap dung gia trj unit price 

rptAIICustomersOrders.DataDefinition.ParameterFields( _ 
"PriceToCheck").ApplyCurrentValues(pvCollection) 

' Hi4n thi c&y phin nhdm 
c rv Dy namic Format. D is p lay GroupTree = True 

crvDynamicFormat.ReportSource = rptAIICustomersOrders 
crvDynamicFormat.Zoom(2) 

Catch Exp As LoadSaveReportException 
MsgBoxflncorrect path for loading report/, _ 

MsgBoxStyle.Critical, “Load Report Error") 

Catch Exp As Exception 

MsgBox(Exp.Message, MsgBoxStyle.Critical, "General Error") 
End Try 

End Sub 


End Class 



4. Tao control dpng 

Chifong trinh n&y chi cdch tao control b&ng cdch l$p trinh trong Visual 
Basic .NET. 



Chifong trinh n&y bi£u diln nhi6u tinh n&ng quan trpng*rong>y i0e tao cdc 
control dong (dynamically creating controls), k£t hop vdi cAc event/handler 
thich hcrp vk cho chung v&o tap hop cdc Control cua m0t Form. C£c tinh nfing 
bao gom: r 

> Tao cdc Windows control, vh thay dtfi thu0c tinh cua chung. 

> Them m0t control da tao v£o tap hop cdc control. ' 

> K6t hop cdc so ki§n trong control mdi tao vko ckc event handler (thii 
tuc xd so kien) da c6. 

Project: Tao Control Dong 

frmMaln.vb 

■ Option Strict On 

■ Imports System.Xml 

■ Public Class frmMain 

Inherits System.Windows.Forms.Form 
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' Khai bdo cac h£ng s6 de sCf dyng trong form 
Private Const CONTROL_WIDTH As Integer = 300 - 

Private Const CHARS_PER_LINE As Integer = 30 * ; , 

Private Const HEIGHT_PERJlINE As Integer = 19 

' Cac biin class 

Private m_ControlCount As Integer = 0 
Private m_Location As New Point(10, 10) 

‘ Code phat sinh form dupe bd qua 

' ThO tyc n^y them mot button vko form, vk quy djnh ckc event 
' handler cho no, se dupe gQi khi co si/ kikn Click vk MouseHovet { 

Private Sub btnAddButton_Click{ByVai sender As SystemByVal e As 
System.EventArgs) Handles btnAddButton.Click 

' Tang bien dem control . ' t 

m_ControlCount += 1 

' Chi cho phkp 5 control dS dan gikn viec ve giao di$n 
If m_ControlCount <= 5 Then 
' Tyo mdt button mdi 

Dim x As New Button() C 

'gin ckc thuQc tfnh vkobutton 
x.Name = "btn‘ + m_ControlCount.ToString() 
x.Text = “btn“ + m_Contro!Count.ToString() 
x.Locatlon = New Point(Me.m_Location.X + 25Q* K/!eim_Location.y) 
m_Location.Y += x. freight + 5 . •,« i s 

* Thkm hai event handler 

AddHandler x. Click,; Add ressOf rpyButtonHandler^Click 
AddHandler x.MouseHover, Addre&sOf myButtonHandler_MouseHover 
' Cho control vko tip hyp ede control 
Controls. Add(x) . 

Else 

' CM cho phkp 5 control 

MsgBox(‘You've reached 5 controls. Clear controls to start again.’, _ 
MsgBoxStyle.OKOnly, Me.Text) 

End If 
End Sub 
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' Thu tyc nay xoa tat ci cac control phat sinh tu d$ng> Nd tht/c hi$n . 

' diSu niy bing each lopi bd t£t ci cac control, sau 66 g<?i thutyc 
' lnitializeComponent(), diy 16 cich 6$ nhit 656Ua mQtforntvi tr&ng thiigSc. 
Private Sub btnCiearControls_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCtearControls.Click 

' Xoa ti’t ci cac control , r i. " . ••> ... “ ’ 

Controls.Clear() 

' Tqo lai t£t ci cac control g6c , 

lnitiali 2 eComponent() 

‘ khdi t$o lai m Location bing yj trl.gtfc. 

m_Location = New Point(10, 10) . ; ■ .• . 

' Khdi tao lyi s6‘cac control ; .i . 

m_ControlCount = 0 : 

' HiSn thj lai form To * 

Show() 

End Sub ■ a 1 ■ v J ' 

* Thu tyc nay xuf ly stJ ki$n btnCreateSurvey. Click vi mQt 

* frmSurveyForm mdi. Cac control dilpc phat sinh vi thdm vio form 
1 survey Vila tyo. Khdng co thu tyc xif ly si/ kiQhkdt hppvdicic 

' control mdi tao. ■ 

‘ Form vC(a t$o kha t6ng quit, nd dddc tyo di/a tr6n mQt tii ti$u XML 
‘ Question.xml. Bing cich thay dot, thim, ho$c xdacic nodi trong 
' tii lieu xml, ta co thi thay d6i ci’u true cua form survey. 

Private Sub btnCreateSurvey_Click(ByVat sender As System.Object, ByVAl e As 
System.EventArgs) Handles btnCreateSurvey .Click ~ 

' Tpo mdi mot Survey Form di hiin thj cho ngddi suf dyng 
Dim survey As New frmSuiVeyFormO 

' Liy tap hyp cac control cua form Survey 

Dim surveyControls As Controi.ControiCoIlection = survey.SurveyFormControls 
' Khdi t^o lyi m_Location trong tri/dn hdp tao nhiSu form 
m_Location = New Point(10,10) 
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' Tao m$t XML document de cTqc cdc ciu hdi trong file xml 
Dim xr As New Xml.XmlDocument() 
xr.Load(“..\Questions.xml“) 

' Liy Tag dupe sit dyng cho mSi control trong cac control ta se tao 
Dim myTag As String = xr.SelectSingleNode(7/survey“).Attributes(“name“).Value 

’ G&n thanh tiSu d4 cua form survey bkng Display Name 
survey.SurveyTitle = _ 

xr.SelectSingleNode(7/survey“).Attributes(“displayName“). Value 

' T$o m$t XmlNodeList chtfa cac cau hoi. 

Dim nodeList As Xml.XmlNodeList 

nodeList = xr.GetElementsByTagName(“question‘) 

' Tao m6t node XML tam thdi di sit dung khi lay thong tin ve cac 

' node trong nodeList vita tao. 

Dim myNode As XmlNode 
For Each myNode In nodeList 

If Not myNode.Attributes Is Nothing Then 

' Xac d'mh kiiu cua control se tao 
Select Case myNode.Attributes(‘type“).Value 

Case “dropdown* 

m_Location - Survey_AddComboBox(myNode, _ 

surveyControls, m_Location, myTag) 

Case "multilist" 

m_Location = Survey_AddListBox(myNode, _ 

surveyControls, m_Location, myTag, True) 

Case “text" 

m_Location = Survey_AddTextBox(myNode, _ 

surveyControls, m_Location, myTag) 

Case “radio" 

m_Location = Survey_AddRadioButtons(myNode, _ 
surveyControls, m_Location, myTag) 

End Select 
End If 


Next 
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' Qui dinh ktch thudc cua form, di/a vAo sd' lifting cac control 
' dtipc dAt trdn form, vA kich thi/tic cua chung. 
survey.Width = m_Location.X + CONTROL_WIDTH + 30 , 

’ Thim mdt khoimg trd'ng d£ dAt nut OK vA Cancel 
survey.Height = m_Location.Y + 75 

' Hien thj form. C6 the dung Show() neu muon. 
survey.ShowDiaiog() 

' Hien thj ciu tri Idi cho ngUdi sd dpng 

MsgBox(survey.SurveyResponse, MsgBoxStyle.OKOnly, Me.Text) 

End Sub 

' Thu tpc nAy xd fy sp kiin Click cua btnTightlyBoundControls vA tpo 
' hai control co lien he chAt che. No sd dying cac event handler da 
' dupe djnh nghla triftic de xd ly cAc syt kien. Cac event handler nAy 
' phii dupe djnh nghla s£n sAng trude, trd khi sd dpng 
' Reflection. Emit. Hai control dupe tao IA mdt Button vA m$t TextBox. 

' Khi Button dupe nh£n, npi dung trong TextBox dupe hiSn thj trong 
' mot MsgBox. De bAo dim IA ta biet TextBox nAo dtfpc sd dpng, nd 
‘ dupe them vAo thudc tinh Tag cua Button (Ta khdng b&t tdn cua 
' TextBox trong luc tpo event handler, bdi v) TextBox dupe t$o m$t 
' cAch tu ddng) 

Private Sub btnTightlyBoundControls_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles btnTightlyBoundControls.Olick 

' TAng sd' dd'm cAc control (chi cQng mpt, mAc du hai control dupe them vAo) 
m_Contro!Count+= 1 

' Chi cho phdp 5 control di dtin giin vi$c ve giao di$n 

If m_ControlCount <= 5 Then ' 

’ ‘ <■!... 

' Tpo TextBox cd chda vAn bin d£ hiin thj 
Dim txtSpeakText As New TextBox() 

* Quy djnh m$t s6 thudc tlnh cua TextBox 
txtSpeakText.Text = “Hello, World* 
txtSpeakText.Name = “txtSpeakText’ 

txtSpeakText.Location = New Point(m_Location.X + 250, m_Location.Y) 
txtSpeakText,Size = New Size(200, txtSpeakText.Height) 
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' Cho TextBox vao tip hpp cic control 
Controls. Add(txtSpeakText) 

’ Ting m_LocationY dS control kS' tiS'p khdng chSng len no 
m_Location.Y += txtSpeakText.Height + 5 

' T$o mdt button se dupe sCl dpng ti/ong tac voi no, 

* Them TextBox da t?o d trdn lim mdt Tag cua Button nay. 

Dim btnSpeakText As New Button() 

' Qui dinh mdt s6 thu$c tfrih cho Button 
btnSpeakText.TexC= “Speak Text" 
btnSpeakText.Name - ‘btnSpeakText* 

btnSpeakText.Location = New Point(m_LocatiOn.X + 250, m_Location.Y) 
btnSpeakText.Size = New Size(100, btnSpeakText.Height) 

' Thim TextBox vio button niy 
btnSpeakText.Tag £ txtSpeakText 

’ Thim button vio tip hpp cac control 
Controls. Add(btnSpeakT ext) 

m_Location.Y += btnSpeakText. Height + 5 

’ Thim event hadler xfiiy sp ki$n khi button dupe nhin. 

AddHandler btnSjpekkfext Click, AddressOf SpeakTextClickHandler 
Else 

MsgBox(‘You've reached 5 controls. Clear controls to start again.*, _ 
MsgBoxStyle.OKOnly, Me.Text) 

End If 
End Sub 

' Thu tpc nay xCl ly cic sp kien Click cua tat ci cac button (dupe tao 
‘ tp dong). No dupe kitvio tit ci cac button bing each sft 
' dpng him AddHandler vao luc tao button. 

Private Sub myButtonHandler_Click(ByVal sender As Object, ByVal e As 
EventArgs) 

If TypeOf sender Is Button Then 

’ Cho ngUdi sP dung biet Button nio da dupe nhan 
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MsgBox(CType(sender, Button).Text + ' was pressed!', _ 
MsgBoxStyle.OKOnly, Me.Text) 

End If 
End Sub 

‘ Thu tyc nky xCf ly ckc si/ kien MouseHover cua tat ci cac button 
' dddc tao mdt ckch ti/ ddng. N6 ddpc ket vko cac button bkng 
' each siS dung hkm AddHandler vko luc tyo button. 

Private Sub myButtonHandler_MouseHover(ByVal sender As Object, ByVal e As 
EventArgs) 

If TypeOf sender Is Button Then 

' Cho ngUdi svf dyng biet Button nko da dugc di chuyen chuot qua 
MsgBox(CType(sender, Button).Text + " was hovered over!', _ 
MsgBoxStyle.OKOnly, Me.Text) 

End If 
End Sub 

* Thu tyc nky xCt ly si/ kien Click cua Button di/Oc tao trong vi dy cac control co 
‘ lien he chat che. No hiSn thi ndi dung cua TextBox trong Tag cua Button 
‘ bkng mot MsgBox. 

Private Sub SpeakTextClickHandler(ByVal sender As System.Object, ByVal e As 
System.EventArgs) 

If TypeOf sender Is Button Then 

Dim myButton As Button = CType(s£nder, Button) 

’ Kiim tra xem Button c6 thuoc tinh Tag Ik mdt TextBox 
If TypeOf myButton.Tag Is TextBox Then 
' Hien thi vkn bin trong TextBox 
MsgBox{CType(myButton.Tag, TextBox).Text, _ 

MsgBoxStyle.OKOnly, Me.Text) 

End If 
End If 
End Sub 

' Hkm nky thim mot ComboBox vko t$p hyp control, 

' kkm vdi mdt control Label d4 hien thj cku hoi. 

Private Function Survey_AddComboBox(ByVal inNode As XmlNode, _ 

ByVal inControls As Control-ControlCollection, _ 

ByVal location As Point, ByVal tag As String) As Point 
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' 7rd ve vj trl cho control k& tii'p 
Return location 
End Function 

' Hdm nay thdm m$t ListBox vdo tap hQp cac control, kdm 
’ vdi mot Label ket hQp vdi nd d& hien thj cdu hdi. 

Private Function Survey_AddListBox{ByVal inNode As XmlNode, _ 
ByVal inControls As Control.ControlCollection, _ 

ByVal location As Point, ByVal tag As String, _ 

ByVal isMultiSelect As Boolean) As Point 

' Tqo mdi mQt control 
Dim myList As New ListBox() 

myList.Text = " 

myList.Name = inNode.AttributesCname").Value 
myList.Tag = tag 

myList. Width = CONTROL_WIDTH 

1 Bdi vi hdm ndy cd thg dupe sti dpng vdi cac ListBox cho phep 
‘ chQn nhieu phin tti hoac chi chpn mot phin tO, quy dinh thuoc 
' tinh SelectionMode dtja vdo bid'n isMultiSelect di/dc truySn vao. 

If isMultiSelect Then 

myList.SelectionMode = SelectionMode. MultiSimple 
Else 

myList.SelectionMode = SelectionMode.One 
End If 

Dim myNode As XmlNode 

’ Cho InnerText cua cac node response vdo danh sach 
For Each myNode In inNode.SelectNodes(“responses/response“) 
myList. Items. Add(myNode. InnerText) 

' N&u co chi dinh gia trj mdc nhien, sCt dpng nd ldm gia trj hien hdnh 
If Not myNode. Attributes("default“) Is Nothing Then 
If myNode.Attributes(“default").Value = “true" Then 
myList.Text = myNode.InnerText 
End If 
End If 


Next 
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' Tao mot Label va cho no vi tip hop 
Dim myLabel As New Label() 

myLabel.Name = myList.Name & “Label" 

myLabel.Text = inNode.SelectSingleNode(“texr).lnnerText 

myLabel.Width = CONTROL_WIDTH 

myLabel.Location = location 
inControlsAdd(myLabel) 
location.Y += myLabel.Height 

myList.Location = location 
inControls.Add(myList) 
location.Y += myList.Height + 10 

Return location 
End Function 

' Him nay them mot GroupBox vio tap hop control dope truySn vao, 

' cung vdi cac radio button thich hop, moi radio button tUdng iing cho 
' mSi tri Idi. No cung tao mdt Label de hien thi cau hoi. 

Private Function Survey_AddRadioButtons(ByVal inNode As XmlNode, ByVal 
inControls As Control.ControlCollection, _ 

ByVal location As Point, ByVal tag As String) As Point 

' Phii tpo mQt GroupBox di chita cac radio button d4 nhdm chung 
' vi tach biet vdi cac radio button khic trin form. 

Dim myGroupBox As New GroupBox() 

myGroupBox.Text = '* 

myGroupBox.Name = inNode. Attributes{“name‘).Value 

myGroupBox.Tag = tag 

myGroupBox. Width = CONTROL.WIDTH + 20 

' Tao cac bi4n cin sti dung 
Dim myRadio As RadioButton 
Dim myRadioPoint As New Point(5, 10) 

Dim myNode As XmlNode 
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' Duyet qua cac cau tra Idi, va cho no vao form nhu Id mot radio button mdi 
For Each myNode In inNode.SelectNodesfresponses/response") 

' Tao radio button 
myRadio = New RadioButtonO 

‘ Quy djnh cac thuoc tinh thich hop 
myRadio.Text = myNode. InnerText 
myRadio.Location = myRadioPoint 
myRadioPoint.Y += myRadio.Height " ! 

’ Quy djnh gia trj mdc nhien cho radio button, nhung chi khi 
' thuoc tinh N default M ton tai va no co gia trj Id true 
If Not myNode.Attributes(“default“) Is Nothing Then 
If myNode.AttributesCdefauir).Value = “true' Then 
myRadio.Checked = True 
End If 
End If 

' Them radio button vao GroupBox 
myGroupBox. Controls. Add(myRadio) 

Next 

myGroupBox Height = myRadioPoint.Y + 5 

‘Tao mot LabeI va cho no vao tap hop. 

Dim myLabel As New LabelQ 

myLabel.Name = myGroupBox.Name & 'Label' 
myLabel.Text = inNode.SelectSingfeNode(“text“). InnerText 
myLabel.Width = CONTROL_WIDTH 

myLabel.Location = location 
inControls.Add(myLabel) 
location.Y += myLabel.Height - 5 

myGroupBox.Location = location 
inControls.Add(myGroupBox) 
location.Y += myGroupBox. Height + 10 

Return location 


End Function 
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' Ham nay thim mot TextBox v£ mdt Label 

Private Function Survey_AddTextBox(ByVal inNode As XmlNode, _ 

ByVal inControls As Control.ControlCollection, _ 

ByVal location As Point, ByVal tag As String ) As Point 

Dim myText As New TextBoxQ 

It Not inNode.SelectSingleNode("defaultResponse“) Is Nothing Then 
myText.Text = inNode.SelectSingleNode(“defaultResponse l, ).lnnerText 
End If 

If Not inNode.Attributes("name") Is Nothing Then 
myText.Name = inNode. Attributes(“name"). Value 
End If 

myText.Tag = tag 

myText.Width = CONTROL_WIDTH 

If Not inNode SelectSingleNode(’maxCharacters“) Is Nothing Then 
myText.MaxLength = _ 

Integer. Parse(inNode.SelectSingleNode(‘maxCharacters“).lnnerText) 

End If 

If myText.MaxLength > 0 Then 

Dim numUnes As Integer = (myText.MaxLength \ CHARS_PER_UNE) + 1 

if numLines - 1 Then 
myText.Multiline = False 
Else 

If numLines >= 4 Then 
myText.Multiline = True 
myText.Height = 4 * HEIGHT_PER_LINE 
myText.ScrollBars = ScrollBars.Vertical 
Else 

myText.Muttiline = True 

myText.Height = numLines * HEIGHT_PER_LINE 
myText.ScrollBars = ScrollBars.None 
End If 
End If 


End If 
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Dim myLabei As New Label() 
myLabei. Name = myText.Name & “Label" 

If Not inNode.SelectSingleNode(“text“) Is Nothing Then 
myLabei.Text = inNode.SeiectSingleNode(“text“).lnnefText 
End If 

myLabei.Width = CONTROL_WIDTH 

myLabei.Location = location 
inControls.Add(myLabet) 
location.Y += myLabei.Height 

myText. Location = location 
inControls.Add(myText) 
location.Y += myText.Height + 10 

Return location 
End Function 
End Class 

frmSurveyForm.vb 

Option Explicit On 

' Class ndy hieing Clng rr\Qt Survey form. Tuy nhien, tat ci cac control 
' dupe tao V d$ng trong code 
Public Class frmSurveyForm 

Inherits System.Windows.Forms.Form 

Private m_Title As String = ‘Survey’ 

Private m_SurveyResponse As String = “Survey Not Completed" 

’ Code phat sinh form di/pc bd qua 

' T^o mdt thude tlnh de co th£ de d&ng IS’y t$p hpp cac control 
Public Readonly Property SurveyFormControlsQ As Control.ControlCollection 
Get 

Return Me.Controls 
End Get 
End Property 
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* Tgo thuQc tinh height d$ dS ddng thay d6i chiSu cao 
Public Property SurveyHetghtO As Integer 
Get 

Return Me.Height 
End Get 

Set(ByVal Value As Integer) 

Me.Height = Value 
End Set 
End Property 

' T$o m6t thudc tinh dS de ddng Id'y tri Idi 
Public Readonly Property SurveyResponse() As String 
Get 

Return m_SurveyResponse 
End Get 
End Property 

’ Thudc tinh thay d6i thanh ti&u dS 
Public Property SurveyTitle() As String 
Get 

Return m_Title 
End Get 

Set(ByVal Value As String) 
m_Title = Value 
Me.Text = m_Title 
End Set 
End Property 

Public Property SurveyWidth() As Integer 
Get 

Return Me.Width 
End Get 

Set(ByVal Value As Integer) 

Me.Width = Value 
End Set 
End Property 
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' Thu tyc niy chi khdi tyo lyi chuoi SurveyResponse va dong form. 

Private Sub btnCancel_Click(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles btnCancel.Click 
m_SurveyResponse = "Survey Not Completed" 

Me.Close() 

End Sub 

’ Nut nay thiS't lip chuSi SurveyResponse vi dong form 
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnOK.Click 

‘ Tyo cac control se dung trong cic vong lip 
Dim myControl As Control 
Dim myGroupControl As Control 
Dim myGroupBox As GroupBox 
Dim myObject As Object 
Dim myRadio As RadioButton 
' X6a n$i dung trong chu6i SurveyResponse 
Me.m_SurveyResponse = "* 

' Duyet qua tCfng control vi dUa tri (di tif ngi/di sti dyng vio chudi SurveyResponse. 
For Each myControl In Me.Controls 
Select Case TypeName(myControl) 

Case "ComboBox* 

m_SurveyResponse += myControl.Name + ‘ * 
m_SurveyResponse += myControl.Text 
m_SurveyRespoose += vbCrLf 
Case "TextBox" 

m_SurveyResponse += myControl.Name + * - * 
m_SurveyResponse += myControl.Text 
m_SurveyResponse += vbCrLf 
Case "GroupBox" 

For Each myGroupControl In CType(myControl, GroupBox).Controls 
If TypeOf myGroupControl Is RadioButton Then 
If CType(myGroupControl, RadioButton).Checked Then 
m_SurveyResponse += myControl. Name + "- " 
m_SurveyResponse += myGroupControl.Text 
m_SurveyResponse += vbCrLf 
End If 
End If 
Next 




55 


Coding iVcIiuiquvf -- 

Case "ListBox" 

m_SurveyResponse += myControl.Name + “ - * 

For Each myObject In CType(myControl, ListBox).Selectedltems 
If TypeOf myObject Is String Then 

m_SurveyResponse += vbTab + CStr(myObject) 
m_SurveyResponse += vbCrLf 
End If 
Next 

End Select 
Next 

Me.Close() 

End Sub 
End Class 

Questions.xml 

<?xml version=‘1.0“ encoding=*utf-8“ ?> 

• <survey name=“SurveyApp“ displayName=“Personal Survey"> 

<description>This survey is a survey of personal information.</description> 
<question type=’dropdown‘ name=‘FruitQuestion‘> 

<text>Which fruit is orange and circular?</text> 

<responses> 

<response default = 'false’>Apple</response> 

<response default = ‘false‘>Banana</response> 
cresponse default = 'false’>Orange</response> 

<response default = 'false'>Kiwi</response> 

</responses> 

</question> 

<question type="dropdown' name=“SkyQuestion"> 

<text>What color is the sky?</text> 

<responses> 

<response default = ‘true‘>Blue</response> 

<response default = ‘false‘>Red</response> 

<response default = 'false'>Orange</response> 

<response default = false'>Yellow</response> 

</responses>;. 

</question> 

<question type=“text* name=“MusicianQuestion"> 

<text>Describe your favorite type of music.</text> 
<defaultResponsex/defaultResponse> 
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<maxCharacters>75</maxCharacters> 

</question> 

• cquestion type='multilist“ name=“SoLipQuestion M > 
<text>Which soups do you like? (Select all that apply)</text> 
<responses> 

<response>Clam Chowder</response> 

<response default="true*>Tomato</resporvse> 
<response>Chicken Noodle</response> 

<response>Split Pea</response> 

<response>Cream of Mushroom</response> 
</responses> 

• </question> 

<question type="radio“ name=“GenderQuestion“> 
<text>What is your gender?</text> 

<responses> 

<response>Male</response> 

<response>Female</response> 

</responses> 

</question> 

■ </survey> 

5. Dieu khien Office 

Chirang trinh nhy chi cdch dieu khien Office tif .NET. 


ilUKti khifc-n UfFice 


Office Automation Demo 


Y/taad jwoid | E«cH [ 

M aka Martin Ihk: 


Swn* MeiftnAiitMtion* 
C Congraii 
r Explain 
r Gat Attention 
Announce 


-3 

zl 

Speak. 0 One | 

f' Suipuud 
r Applaud 
r ViM 
Write 

C OonlHecspn 
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Cac chufc nana chinh: 

Chi/ang trinh n4y 14m vi$c vdi: 

> Microsoft Agent: C4ch 14m cho Merlin xuat hien trong ufng dung v4 
14m mot &6 tliuf nhif n6i, di chuyen, v4 hi£n thi c4c hoat hinh cua no. 
Merlin v4 c4c d4c tlnh Office Agent kh4c 14 mpt c4ch tot de cung cap 
Help cho ufng dung. 

> Microsoft Word: Tao mpt ufng dung Word v4 goi trinh ki£m l5i chinh 
t4 d£ ki&n I6i cho m$t t4i li$u trong mpt RichTextBox. 

> Microsoft Excel: Tao v4 nhap dur lieu tif m$t t4i lieu XML v4o mot 
DataSet v4 sau &6 k£t n6 v4o mOt DataGrid. Sau d<5 xuat noi dung cua 
DataSet ra mOt Excel spreadsheet v4 chay mpt h4m cua Excel d£ tlnh 
gi4 tri trung binh cua mQt c$t. 

N£u mudn nghe difcfc Merlin n6i, m4y tinh cdn c4i d&t Speech 
Recognition, chufc n4ng n4y c6 trong Microsoft Office XP nhung kh6ng duoc 
m4c nhi£n c4i d4t. 

Project: Dieu Khien Office 

frmMain.vb 

Option Strict On 
■ Public Class frmMain 

Inherits System.Windows.Forms.Form 

• * Code phat sinh form di/dc bo qua 

Private agentController As AgentObjects. Agent 

Private agentCharacter As AgentObjects.lAgentCtlCharacter 

Private dsMenu As DataSet 

’ XCt ly nut Browser tren tab Word, cho phep ngUdi sti dung chQn 

' mot tai lieu Vein bin (. txt) va dUa noi dung cua no vio RichTextBox. 

Private Sub btnBrowseWord_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles btnBrowseWord.Click 
With dlgOpenWordFile 
. I nitialDi rectory = “C:\“ 

.Filter = “Text Format (*.txt)l*.txt‘ 

.Filterlndex = 1 
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If .ShowDialogO = DialogResult.OK Then 
Try 

rtfDocument.LoadFile(.FileName, RichTextBoxStreamType.PlainText) 
Catch exp As ArgumentExceplion 

MessageBox.Show(The document you are attempting to load & _ 

“is not in the correct format ", "Document Load Error** 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try j > 

End If 
End With 
End Sub 

’ Xit ly nut "Export to Excel» H , cho phep ngudi sCi dqngxud't ndi , 

’ dung cua DataSet qua mot Excel spreadsheet va sau d6 chqy him ■ k . 
‘Average de xac dinh gia tri trung binh. 

Private Sub btnExport_Click(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles btnExport.Click 

' Mot Excel spreadsheet lien quan din mqt c&y phin dp cic d6i 
' tupng, td Application den Workbook den Worksheet. 

Dim excelApp As New Excel.Application) 

Dim excelBook As Excel.Workbook = excelApp.Workbooks.Add 

Dim excelWorksheet As Excel.Worksheet = _ 

CType(excelBook.Worksheets(1), Excel.Worksheet) 

' Hien thj trang tlnh cho ngi/di suf dqng th£y dti lieu dupe nh$p vio 
excelApp. Visible = True 
With excelWorksheet 

' Quy dinh cac ddng diu (header) vi djnh dqng triidc dO li^u 
,Columns().ColumnWidth = 21.71 
.Range(“A1").Value = "Item* 

,Range(“A1 *).Font.Bold = True 
.RangefB 1“).Value = "Price" 

.Range("B1").Font.Bold = True 
.Range(“C1 “).Value = “Calories* 

.Range(“Cr).Font.Bold = True 

' Bit diu bien dem td ddng thCf hai, sau ddng header 
Dim i As Integer - 2 




59 


' Duyet qua tap hop cac dong (Rows) cua DataSet va 
' ghi dd lieu trong mSi ddng vio cac 6 trong Excel. 

Dim dr As DataRow 
For Each dr In dsMenu.Tables(0).Rows 
Range("A" & i.ToString).Value = drC'ltem") 

.Range(“B" & i.ToString).Value = dr(“Price") 

.Range(“C“ & i.ToString).Value = dr(“Calories") 
i += 1 
Next 

' Chon va ap dyng djnh dang cho 6 hien thj gia trj trung binh, . 

' sau do goi him Average. 

,Range("C7").Select() 

.Range(“C7").Font.Color = RGB(255, 0, 0) 

.Range(“C7“).Font.Bold = True 

excelApp.ActiveCell.FormulaRICl = 1 ‘=AVERAGE(R[-5]C:R(-1]C)* 

End With 
End Sub 

' Xti ly nut "Get Menu", tao va nhap dO lieu vao DataSet td mot tai 
' lieu XML, dt/a duf lieu vao mot DataGrid, sau do ap dung djnh dang cho DataGrid. 
Private Sub btnGetMenu_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnGetMenu.Click 

' Nhap duf lieu vao DataSet bang each lay tif mot tile XML vdi cac 
' phan tit la mot thi/c don. 
dsMenu = New DataSetQ 
dsMenu.ReadXml(\.\menu.xmr) 

’ Qui djnh dau de cua DataGrid va ket no vio DataSet. 

With grdMenu 

.CaptionText = "Today's Menu" 

.DataSource = dsMenu.Tables(O) 

End With 

* SCf dyng mot doi toong kieu table de ap dung djnh dang tuy bi£n cho DataGrid 
Dim grdTableStylel As New DataGridTableStyle() 

With grdTableStylel 

.AlternatingBackColor = Color. Lavender 
BackColor = Color.WhiteSmoke 
.ForeColor = Color.MidnightBlue 
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.GridLineColor = Color.Gainsboro 

.GridLineStyle = System.Windows.Forms.DataGridLineStyle.None 
HeaderBackColor = Color.MidnightBlue 
.HeaderFont = New Font(‘Tahoma*, 8.0!, FontStyle.Bold) 

HeaderForeColor = Color. WhiteSmoke 
LinkCoIor = Color.Teal 

' Di/ng quAn quy dinh thuQc tfnh MappingName. Neu khdng 
‘ co no, cAc thudc tfnh DataGridTableStyle vA bat ky d6i tupng 
‘ DataGridColumnStyle nAo ddpc k6t hpp se khdng co Anh hudng. 
.MappingName = “Food" 

.SelectionBackOolor* Color. CadetBlue 
SelectionForeColor =.Color. WhiteSmoke 
End With 

1 Sti dpng cAc d6i ti/png ki4u Column dS djnh dpng tdng cdt 
Dim grdColStylei. A$ New OataGridTextBoxColumn() 

With grdColStylei 
.HeaderText = 'Item* 

.MappingName = “Item’ 

.Width = 125 

End With . ... 

Dim grdColStyle2 As New Data(3rldTextBoxColurnn() 

With grdColStyle2 , ■ / 

.HeaderText = "Price* 

.MappingName = “Price* 

.Width = 50 
End With 

Dim grdColStyie3 As New DataGridTextBoxColumn() 

With grdColStyle3 

.HeaderText = "Calories" 

.MappingName = "Calories" 

.Width = 70 
End With 

grdTableStylel.GridColumnStyles.AddRange (New DataGridColumnSty!e() _ 

(grdColStylei, grdColStyle2, grdColStyle3}) 
grdMenu.TableStyles.Add(grdTableStylel) 
btnExport. Visible = True 
End Sub 



61 


- O-titiiii 1 -- 


' Thu tuc xlI ly si/ kipn Click cua button Speak, Idm cho Merlin ndi bit cii noi 
' dung ndo do ngi/di sCl dung nhip vdo TextBox 
Private Sub btnSpeak_Click{ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles btnSpeak.Click 

agentCharacter.Speak(txtSpeak.Text) 

End Sub 

’ Thu tyc xuf ly nut Spellcheck, cho phep ngudi sil dung chay 
’ chi/dng trinh kiem l6i d4 kiem l6i v&n ban trong RichTextBox. 

' Chu y Id khdng cin phii nhin thd'y Word. 

Private Sub btnSpellCheck_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSpellCheck.Click 
Dim wordApp As New Word.ApplicationQ 
Dim bolHasNoSpellingErrors As Boolean = ^ 
wordApp.CheckSpelling(rtfDocument.Text) 

Dim strSpellCheck As String = “Your document has spelling errors." 

If bolHasNoSpellingErrors Then 

strSpellCheck = “Congratulations, your document is free of spelling errors." 
End If 

MessageBox.Show(strSpellCheck, "Spell Check Results", _ 
MessageBoxButtons.OK, MessageBoxIcon.Information) 

End Sub 

' XCl ly checkbox hiSn thi hay in Merlin. 

Private Sub chkMerlinOnOff_CheckedChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles chkMerlinHide.CheckedChanged 
With agentCharacter 

if chkMerlinHide.Checked Then 
.StopAIIO 
.Hide() 

Else 

Show() 

End If 
End With 
End Sub 




62 


— C'Hiii(U 1 <'{’hniqiiot- -- 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles MyBase.Load 
' Dot ti/png Agent dtSQc sil dyng d£ md m$t ket noi dS'n Agent server 
agentGontroller = New AgentObjects.Agent() 

With agentController ! ‘ - 

.Connected = True 

.Characters.Load('merlin', 'merlin.acs") 
agentCharacter = .Characters(“merlin") 

End With 

’ Stir dyng thu$c4tah Location d4 dat Merlin 
With agentCharacter 

.MoveTo(G^hprt(Me.becation.X + 42Q) > CShort(Me.Location.Y + 130)) 
.Show() 

.Play('Announce’) 

.Speak('Hello, my name is MerHn. “ & i: 

'Welcome to the Office Automation Demo!") , 

.PlayCGectureftigh^) v, ‘ 

’ Co thS l&m cho d<?ng ndi cua Marlin ti/ nhiSn hon bang 
’ each chen cac tag nhpPau, Chr, Emp ho$c Spd 
.SpeakfMake me say s<d^ftlrt^i\^au*3C)0\bApau=500V..') 
MoveTo(CShort<Me.Location.X + 3407, CShort{Me.Location.Y + 250)) 
.PlayfGestureRight") • ‘ ■' ■y.y v v ,J 

.Speak(V.try out some of my anim&tidrw-.*); 1 i 

End With 


' An nut "Export to Excel " cho din khi DataGrkf dUQc kS't dd li$u 
btnExport.Visibte = False ' ' ’ 

End Sub 

r ' ' * - 

* Xtir ly cac sp kien click cho tat ca cac ki£u ho$t hlnh cua Marlin 
Private Sub rdoAnimations_Click{ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles optDontRecogni 2 e.Click, optWrite.Click, 1 
optWave.Click, optApplaud.Click, optSurprised.Click, optSuggest.Click, 
optAnnounce.Click, optDoMagic.Click, optExplain.Click, optCongrats.Click 

agentCharacter. StopAII() 

Dim radio As RadioButton = CType(sender, RadioButton) 

With agentCharacter 
Select Case radio.Tag 
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Case "GetAttention" 

’ Mot vai ho$t h'mh can gqi " Return" de trd ve trang thai 
' tu nhien. Cac ho$t h'mh khac co cac return xay dt/ng sin. 
.PIay(“GetAttention") 

,Play(“GetAttentionReturn") 

Case “Explain" 

Play("Explain") 

Case "Congratulate" 

. Play{“Congratulate") 

Case “Announce" 

,Play(“Announce") 

Case "Applaud" 

.PIay("Congratulate_2") 

Case "DontRecognize" 

.PIay("DontRecognize“) 

Case "Write" 

,Play("Write") 

Case "Surprised" 

.PlayfSurprised") 

Case "Suggest" 

.PIay("Suggest“) 

Case "Wave" 

.PIay(“Wave“) 

End Select 
End With 
End Sub. , 

’ TM tyc*}# ty yabConkol, di chuyin Merlin ra khdi vung l£m viec 
' khingUdi s&dyng chQn tab Word hay Excel. 

Private Sob 4abOfficeDemo_SetectedlndexChanged(ByVal sender As Object, ByVal 
e As Systerti.EventArgs) Handles tabOfticeOemo.Selected!ndexChanged 
If tabOfficeDemo-Selettedlndexo 0 Then 
With agentCharacter 

.StopAHO * 

.MoveTo(CShort(Me.Location.X + 340), CShort(Me.Location.Y + 40)) 

End With 
End If 
End Sub 
End Class 
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Menu.xml 

■ <?xml version=’1.0'?> 

<lunch-menu> 

<Food> 

<ltem>Cheese Pizza</ltem> 

<Price>$6.95</Price> 

<Calories>800</Calories> 

■ </Food> 

<Food> 

<ltem>Pepperoni Pizza</ltem> 

<Price>$7.95</Price> 

<Caiories>950</Calories> 

</Food> 

• <Food> 

<ltem>The 'Everything* Pizza</ltem> 

<Price>$9.95</Price> 

<Calories>1050</Calories> 

• </Food> 

• <Food> 

<ltem>Hungarian Ghoulash</ltem> 

<Price>$4.50</Price> 

<Calories>600</Catories> 

• </Food> 

<Food> 

<ltem>Maisey‘s Pork Sandwich</ltem> 

<Price>$6.95</Price> 

<Catories>950</Calories> 

</Food> 

• </lunch-menu> 
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6. Cac hpp thoai th6ng dung 

Chifdng trinh nky cho biet cdch sii dung edc control OpenFileOialog, 
SaveFileDialog, ColorDialog vd FontDlalog. 
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Cac control chinh: 


Loai 

ThuOc tinh 

Gia trj 

SaveFileDialog 

(Name) 

sdlgTextFile 

OpenFileDialoq 

(Name) 

odlqTextFile 

Open File Dialog 

(Name) 

odlgFileNames 

FontDialoq 

(Name) 

fdlgText 

ColorDialog 

(Name) 

cdlgText 


Cac chufc nanq chinh: 


Trong chirang trinh chufa m6t tab control c6 hai trang. Trang ddu tien cho 
phdp chon mot file, md file, lifu file, vd chon font v& m&u s£c cho v&n ban. 
Tab thtf hai bilu diln edeh suf dung ede thugt tinh FileNames vd MultiSelect 
cua control OpenFUeDialog. 
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Project: Cac Hop Thoai Thong Dung 


'J 


frmMain.vb 


Option Strict On 
Imports System.lO 

Public Class frmMain 

Inherits System.Windows.Forms.Form 
' Code phat sinh form dilpc bd qua 



Private FileName As String , r .fk “ 1 - - 

Private Sub btnRetriveFileNames_Ctick(ByVft> sertder As System.Object, ByVal 
As System.EventArgs) Handles btnRetrivelMleNames.CBfcK • 

Try V" 

With odlgFileNames " 

' Khdng nhSt th&t phii Urn diSu niy, nhung ta c6 thi quy 
' djnh thu myc bit diu cho h$p thoyi. Di thuQc tfnh 
' DefaultFolder c6 tec dyng, cin phii g<?i phuong thtic Reset 
■Reset() 

.InitialDirectory = "C:V 


' ThSm phin md rQng m$c nhiSn vio tin file nd'u 
' ngi/di sCt dung khdng go nd vio. Mic nhidn li True. 
AddExtension = True 


' KiSm tra di bio dim ring file dupe chgn tin tyi. N4u khdng tdn t$i 
' h$p tho$i se hiin thi mdt thdng bio: Mic nhidn li True. 
CheckFileExists = True 

' Kiem tra dS bio dim dddng din din file li dung. 

' Gia tri mic nhien li True 
CheckPathExists = True 


' Quy dinh phan md ring mic nhien. Khdng kirn dau chim 
’ Gia trj mic nhidn li H " 

DefaultExt = “txt" 
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' Trk ve file dupe chi d&n bdi m$t file likn k&t hay khdng? N£y False, chi 
' ddn gikn Ik trk v4 file liknk&dUpc chpn. Niu True, trk vi 
’ file dupe likn kki trong LNK file . Gik tri m$c nhikn Ik True. 
DereferenceLink? = True, 


' Bd loc file, sut dyng mpt t$p ckc ckp dupe tkch nhau bdi T. 

' M6i ckp chUa mQt ph£n md tk jdUng diu. Sft dyng T d giOa 
' ckc ckp . Ta cung cd thS quy djnh thupc tmhFilterlndex de 
' chpn bd Ipc mkc nhikn. Bkt dku til 1,vk gik trj mkc nhikn Ik 1. 

.Filter = _ 

"Text files (\txt)l\txtl" & _ 

"All filesl*.*" 

* Nk'u mu6n chophkp ngt/di stit dyng chpn nhiSu file, quy djnh 
' thuQc tlnh nky Ik True. LSy tkn pkc fife dupe chpn bkng 
' thupc tlnh FileNames cua hQp thopi. Gik trj mkc nhikn Ik False. 
.Multiselect = True 

' Trd v4 thUmyc cQkhri>thpc hi$n chpn mpt file hay khdng? N&u False, 
' thu myc hi$n hknh tiSl ihknfi thu myc da chpn file. Dkt thuQc 
' tfnh nky Ik True 6$ dUa thu myc hi$n hknh trd fpi ban diu. 

' Gik trj mkc nhikn# False 
.Restore Directory = True 

' Hi4n thj button Help vk checkbox Read-Only? 

ShowHelp = True 
.ShowReadOnly = F$lse 

• J 

' Khdi tpo gik tri cho checkbox Read-Only? 

.ReadOnlyChecked = False 
' Chudi hiin thj trkn thanh tiku d4. Mkc nhikn Ik "" 

.Title = "Select a file" 

' Chi chip nh$n ckc tin file dung trong Win32? 

' Mkc nhikn Ik True 
.Validate Names = True 
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If ShowDialogO = DiaiogResult.OK Then 

' Ta cd m6t chQn li/a d d£y. Co th4 sCf dyng thuQc tkih 
' FileName hoAc FileNames dS I4y tin file dt/Qc chQn, hoAc cd th4 sCt 
' dyng phitong thiic OpenFile <34 md file nhti IA m$t Stream phi dpc. 
IstFiles.DataSource = .FileNames 

• -i ; ■ -• 

' Ho$c c6 th4 lip trlnh nhtf sau, duy$t qua tin 6&c file ditdc chQn: 

‘Dim strName A$ Stririg « '■ - 
'For Bach strName In . FileNames 
‘ IstFiles. Items. Add(strName) 

Next 
End If 
End With 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

End Try 
End Sub 

Private Sub btnOpenTextFile_Gtick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnOpenTextFile.Click 
Dim ts As StreamReader 
Try 

With odlgTextFile 

’ Xem thu tyc btnRetriveFileNames_Click dibi4t cic thudc tinh 
.CheckFileExists = True 
.CheckPathExists = True 
.DefaultExt = "txt’ 

DereferenceLinks = True 

.Filter = _ 

‘Text files (*.txt)l*.txtl‘ & _ 

"All filesl*.“ 

.Multiselect = False 
.Restore Directory = True 
.ShowHelp = True 
.ShowReadOnly = False 
.Title = "Select a file to open" 

.ValidateNames = True 
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If .ShowDialogO = DialogResult.OK Then 
FileName = .FileName 
ts = New StreamReader(.OpenFile) 
txtFileContents.Text = ts.ReadToEnd() 

End If 
End With 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

Finally 

If Not (ts Is Nothing) Then 
ts.Close() 

End If 
End Try 
End Sub 

Private Sub btnSaveTextFile_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSaveTextFile.Click 
Dim sw As StreamWriter 

Tf y ; , , < 

With sdfgTextFile ?; 0 w.. 

' Xem code sUr dyng control OpenFileDialog dS biSt cac thuQc tlnh 
.AddExtension a True 

* Ki4m tra dudng din file cd tdn t$i hay khdng?. 

* Thing bio tnidc khi t$o file mdi? 

* Thing bio tn/dc khi ghi citing ISn file khac? 

CheckPathExists = True 
Create Prompt = False 
.Overwrite Prompt = True 
.ValidateNames = True 
.ShowHelp =t True 

' Niu ngUdi sCf dyng khdng cung dp phin tin file md ring th) dung gia trj niy. 
.DefaultExt = “txf 

' Dit tin file mic nhiin la tin file hi$n hinh 
.FileName = FileName 
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.Filter = _ 

“Text files (*.txt)l*.txtl“ & _ 

“All fileslV 
.Filterlndex = 1 

If .ShowDialogO = DialogResult.OK Then 
FileName = .FileName 
sw = New StreamWriter(FileName) 
sw.Write(txtFileContents.Text) 

End If 
End With 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

Finally 

If Not (sw Is Nothing) Then 
sw.Close() 

End If " ' 

End Try " 

End Sub 

Private Sub odlgTextFile_FileOk(ByVal sender As System.Object, ByVal e As 
System.ComponentModel.CancelEventArgs) Handies odlgTextFilb.FHeOk 
' Si/ ki$n nky xky ra khi chgn trade khi <S6ng 

' hdp thoai. N£u gin gia tri cua thu$c tlnh • r 

' CancelEventArgs.Cancel Ik True th) h$p thogi s8 ddng l$i. 

If MessageBox.Show( _ V" 

“Do you want to open a new file? - , 3 4 Vi ‘C. v*» ; i ~ r > 

Me.Text, MessageBoxButtons.YesNq* ^ • 

MessageBoxiconTQuestion) <> DialogResutt,Yes Then 

e.Cancel = True " • 1 t z - 

End If 

End Sub >- 

■ i 

Private Sub odlgTextFile_HelpRequest(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles odlgTextFile.HelpRequest 
' Thu tyc nky thi/c hien khi nhkn vko nut Help 

MessageBox.Show("Display your own help for the OpenFileDialog control here/, 
Me.Text) 

End Sub 
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Private Sub sdlgTextFile_HelpRequest{ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles sdlgTextFile.HelpRequest 
' Thu tuc nay thUc hien khi nhin vio nut Help 

MessageBox.Show('Display your own help for the SaveFileDialog control here.', 
Me.Text) 

End Sub 

Private Sub btnSelectColor_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSelectColor.Click 

' Khdi tao CustomColors bing mdt ming so nguyen. 

' Chu y nh&ng miu niy khdng c6 cOng dinh dang vdi cic miu 
’ trong .NET - Chung lit cac gii trj miu theo kiSu VB6. Co thi 
' dung him RGB di tao cic gii trj niy. 

Static CustomColors() As Integer - _ 

{RGB{255, 0, 0), RGB(0, 255, 0), RGB(0, 0. 255)} 

Try 

With cdlgText 

' Khdi tao miu dupe ch(?n bang vdi miu dang dupe sCi dung 
' trong TextBox. Gii trj mic nhidn Id black. 

.Color = txtFileContents.ForeColor 

' Nhap cac miu custom vio hop thoai vdi ming da tao. 

CustomColors = CustomColors 

' Co cho phep ngUdi set dyng tao cac miu tuy y? 

.AliowFullOpen = True 

' Hien thi tit ci cac miu cd bin? 

.AnyColor = True 

' Cd md h$p thoai vdi phAn ch<?n miu tuy y? 

.FullOpen = False 

* Gidi han chi sit dyng cac miu die (solid). 

.SolidColorOnly = True 
.ShowHelp = True 
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If .ShowDialogO = DialogResuIt.OK Then 
txtFileContents.ForeColor = .Color 

' LUu lai cic miu custom dS sit dung l$i 
CustomColors = .CustomColors 
End If 

' Khdi t$o lai tit ci cac miu trong hdp tho$i. ThO tuc niy 
' khdng cin thiSt, nhi/ng gpi n6 dS bio dim li hdp tho$i 
' trong mQt tr$ng thii xac dinh di si dung trong tin kg ti£p. 
cdlgText.Reset() 

End With 

' Co the lip trinh vdi code ngin hdn 
‘With cdlgText 

‘ .Color = txtFileContents.ForeColor 
' If .ShowDialogO * DialogResultOK Then 
‘ txtFileContents.ForeColor = Color 
‘End If 
•End With 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

End Try 
End Sub 

Private Sub btnSelectFont__Click(ByVaJ sender As System.Object, ByVal e As , 
System.EventArgs) Handles btnSelectFont.Click 
Try 

With fdlgText 

' Khdi t$o hdp tho$i font cho thlch hdp vdi font dang si dung trong TextBox. 
.Font = txtFileContents.Font 
Color = txtFileContents.ForeColor 

’ Cho phip chqn miu. Gii trj mic nhiin li False 
.ShowColor = True 

’ Hiin thj nut Apply trin hdp tho$i 
Show Apply = True 
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' Cho phep chQn hiSu ling 
.ShowEffects = True 

.ShowHelp = True 

‘ Cho phip thay d6i tap ky ti/, nhung khdng cho phep 
' cic font gii lip , font vector vi font ddng. 
.AllowScriptChange = True 
.AllowSimulations = False 
.AIIowVectorFonts = False 
.AIIowVerticalFonts = False 

‘ Cho phip cic font c6 djnh (fixed), vi chi cho phip cic font 
' da t6n tai. Quy djnh cic ktch thudc font nhd nhit vi Idn nhitt. 

.FixedPitchOnly = False 
.FontMustExist = T rue 

' Gii trj mic nhiin cho ci hai thudc tfnh niy li 0 
.MaxSize = 48 
.MinSize = 8 

' Hien thj hQp thogi vi ip dung cic yeu cau da chqn 
If .ShowDialog = DialogResult.OK Then 
ApplyFontAndColor() 

" End If 
End With 

' C6 th4 lip trinh ngin gtpn nhu sau: 

'With fdlgText 

’ .Font = txtFileContents.Font 
' If .ShowDialog() = DialogResult.OK Then 
' txtFileContents.Font = .Font 
* End If 
‘End With 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

End Try 
gpndSub 
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Private Sub ApplyFontAndColorQ 
Try 

With fdlgText 

’ Ap dyng font cda TextBox, bao g6m font, kich thUdc... 
txtFileContents.Font = .Font 
' N&u c6 chQn mAu sic, thi ap dung m&u 
If .ShowColor Then 

txtFileContents.ForeColor = .Color 
End If 
End With 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

End Try 
End Sub 

Private Sub fdlgText_Apply(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles fdlgText.Appiy 

' ThO tgc xCt ly nut Apply cua hdp thoai Font 
ApplyFontAndCo!or() 

End Sub 
• End Class 

7. Tao m$t chtftfng trinh tren System Tray 

Muc dich cua chucmg trinh n&y chi cdch vi£t m<)t chuong trinh m& n6 
hien thi mpt bi£u ti/dng trong khay h$ thbng (k£ ben d6ng ho he thdng). 

Current Date I 


Current Tirre Zone 


Tine since last Restart 
Framework Version 
Current OS Version 
Exit 

solfar... | 



Cac control chinh: 


Lopi 

Thupc tinh 

Gia trj 

Notifylcon 

(Name) 

ntfSystemlnfo —' 


ContextMenu 

mnuCtx 

ContextMenu 

(Name) 

mnuCtx 
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Cac chute nanq chinh: 

Ngoai viec bilu dien cdch tao mot Notifylcon v& ket hop n6 vdi mQt 
ContextMenu. Chirong trinh n&y cbn chi cdch truy xuat he th&ng vk cdc 
thbng tin khdc tir cdc class trong framework. Bao g6m: 

> Thdi gian suf dung mdy tinh ke tCr luc khdi dpng mdy. 

> Time zone hi$n h&nh cua mdy tinh 

> Ng&y hien h^nh 

> Phi&n b&n cua framework dirge cki dat tr§n indy tinh 

> Phi&n bdn cua hg di&u h&nh 

Cdc thftng tin n&y duoc hiln thi khi ngirdi sijT dyng chon cdc muc trong 
menu k£t hop vdi bi£u tuong tr§n khay hg thbhg. 

Project: System Tray Program 
frmMain.vb 

■ Option Strict On r , 

• Public Class frmMain 

Inherits System.Windows.Forms.Form 

• ’ Code phat sinh form dupe b$ qua 

Private Sub btnTray_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnTray.Click 
' An form chfnh 
Me.HideO 

ntfSystemlnfo. Visible = True 
ntfSystemlnfo.Text = 'System Information* 

End Sub 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

* Bio dim li biiu tupng khdng hien thi tren system tray khi 
' cht/a nhin vio button Tray 
ntfSystemlnfo. Visible = False 
End Sub 

Private Sub mnuCurrentOSVersion_Click(ByVal sender As System.Object, ByVal e 
/As System.EventArgs) Handles mnuCurrentOSVersion.Click 

' L£y thing tin hi diSu hinh. 

MessageBox.Show('OS Version: * + _ 
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Environment.OSVersion.ToStringO, _ 

"Operating System", MessageBoxButtons.OK, _ 
Message Box Icon. Information) 

End Sub 


Private Sub mnuCurrentTime_Click(ByVal^s*flder As System.Object, ByVal e As 
System.EventArgs) Handles mnuCurrentDate.Click - ( 

' H&n thj ngky thing hi$n hdnh ,, 

MessageBox.Show("Today s Date is:" + _ 

DateTime.Now.ToLongDateString(), _ 

"Date", MessageBoxButtons.OK, _ ni . s* 

MessageBoxIcon.Information) ^ : -» 11 r a s 1 

End Sub ‘ ' v ' ; ; i0 


r, T : -v .« ji/r* K 1 ‘ 

Private Sub mnuCurrentTimeZone_Click(ByVal sender As System. Object, ByVal 
As System.EventArgs) Handles mnuCurrentTirneZone,Click 

J r-\ , 

' S£i dung class TimeZone d4 hiSn thj tin timezone hiQn h&nh 
If (TimeZone.CurrentTirneZone.lsDaylightSavingTime0ateTime.Nqw)) Then 
MessageBox.Show( _ ' Vt 

"The current time zone is: “ + _ 

TimeZone. CurrentTimeZone.DaylightName, _ 

"Time Zone", _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon.Information) 

Else 

MessageBox.Show( _ 

"The current time zone is:" + _ 

TimeZone.CurrentTimeZone.StandardName, _ 

"Time Zone", _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon. Information) 

End If 
End Sub 


Private Sub mnuExitApp_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuExitApp.Click 
Shutdown{) 

End Sub 
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Private Sub mnuFrameworkVersion_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles mnuFrameworkVersion.Click 
' L&y thdng tin ve phiin bin cua .NET Framework. 
MessageBox.ShowfFramework Version: * + _ 

Environment.Version.ToStringO, *.NET Framework Version*, _ 
MessageBoxButtons.OK, _ 

MessageBoxIcon. Information) 

End Sub 

Private Sub mnuTimeSinceReboot_Click(ByVat sender As System.Object, ByVal e 
As System.EventArgs) Handles mnuTimeSinceReboot.Click 

' Hi£n thj thdi gian sit dung may tinh ke tti luc khdi ddng may. 

' Thdi gian Idy dupe tCt TickCount dupe tinh theo Milisecond. 

' Gia tri ndy dupe chuyen sang phut. 

Dim timeSinceLastRebootMinutes As Double = _ 

((Environment.TickCount /1000) / 60) 

MessageBox.Showflt has been : “ + _ 

C!nt(timeSinceLastRebootMinutes).ToString() + _ 

* minutes since your last reboot.*, "Last Reboot*, _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 

End Sub 

Private Sub ntfSystemlnfo_DoubleClick(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles ntfSystemlnfo.Doubleclick 

' Khi ngUdi set dung nhi'n dup chuot vio bieu ti/ong trin system 
‘ tray, hiin thj form chinh, va an bieu tupng khi hien thj form. 
ntfSystemlnfo.Visible = False 
Me.Show() 

End Sub 

Protected Sub Shutdown() 

' BiSu tupng phii m£t di trude khi ting dung ki't thuc, neu khdng no 
' vin ndm d6 cho du Cfng dung da kS't thuc. 
ntfSystemlnfo. Visible = False 
Application.Exit{) 

End Sub 


End Class 




8. Cac Exception tuy bien 

Chucrng trinh ndy bilu diin hai ky thuat cao cd'p qudn If cdc ngoai le 
(exception). 


mDBi 


HffTTnTxl 

Edit Customer j 

: V 


Delete Customer j 

. • r~v 


Untrapped Local Error | 

7 -J- ' i'.’.iv'. 


P T urn on G lobei E xception T rap v . : 7 f ; ; 
______v . 




Cac chufc nana chfnh: 

Chucrng trinh ndy chufa mpt Windows Forms client vd mot class library. 

Class Library 

Class Library dinh nghla mpt ldp ring dung, Customer. Ngodi ra, nd c6n 
thi hien mpt tpp cdc class exception tuy biin (tu tao), chting dupe sur dung dI 
thi hipn cdc lSi dupe dinh nghSa trong ufng dung. Trong urng dung ndy, c6 mpt 
cdy phdn cap cdc exception. Cdp cao nhdt Id CRMSystemException ddnh cho 
mpt hi thing SomeComparty CRM gid tudng. N6 thira k£ tir exception 
System.Application. TU ddy, hai class khde thira ki tCr n6: 

> CustomerException 

> EmployeeException 

Khong c6 chP ndo trong vi du ndy c6 lien quan den employee, nhung d ddy 
chi edeh 1dm vipc vdi mot sdn phdm ldn hem c6 the hinh thdnh tif nhiiu 
module hodc component. C6 hai exception khde thira ke tU 
CustomerException: 

> CustomerNotFoundException 

> CustomerNotDeleteException 

Moi class cung cap thong tin d ede cdp khde nhau vd c6 chufc ndng khde 
nhau. Xem them trong source code di dupe ro hem. Chu y Id c6 thi ddt tin 
# cho ede class exception tuy y, nhung quy Udc Id kit thuc vdi phdn 
"Exception". 

Client 

Ung dung Client c6 mpt tham chieu (reference) den class library. Hai nut 
ddu cho thdy edeh thuc thi ede phuong thufc vdi class customer vd bdt (catch) 
ede custom exception. Nut thuf ba gay mpt ngoai lp khdng dupe bdt. Ngodi ra, 

[ cd mpt checkbox Turn on Global Exception Trap, ddnh ddu vdo se cho phdp 


- Coding Techniques 


79 


bdt exception to4n cue (chung). Khi dtfcfc cho phdp, code dinh nghla trong 
OnTh read Exception se dugc thiic hi§n thay vi, thfi tuc m&c nhi&n cua 
Windows Form. , >:l 

Project: Custom Exceptions * 


Chav ufnq dung 


Chuong trinh tdt nhdt 14 chay ngo4i trinh bdt l5i d£ thdy dirge k£t qud cua 
thuc tuc bdt I5i chung. Ch$y chuong trinh v4 nh£n v4o ba ndt. Chd y edeh 
thong bdo l6i "lich sii" cua nut Edit Customer v4 Delete Customer. Mdc dCi 
mdc nhi&n khi nhdn vdo nut thtiba "Untrapped Local Error", mgt hop thoai 
chon lua xu&t hign. H$p thoai ndy 14 thu tuc bdt l5i chung dugc diiih nghia 
bdi Windows Form. Bdnh da'u v4o checkbox Turn on Global Exception Trap 
de thdy b£y l5i tiiy bt&rhoat d$ng. 


Server 

>■_ ♦ in 

Thu$c tlnh cua Project: 

- : 

Output Type: Class Library 



Root NameSpace: SomeCompany.CRMSystem 


Customer.vb 

Option Strict On 

Public Class Customer V Ji -' • 

’ Trong ting dyng tfn/c iff, n&n dting cic thu tyc thude tlnh 
Public Id As Integer 
Public FirstName As String 
Public LastName As String 


Public Shared Function EditCustomer(ByVal Id As Integer) As Customer 
* Ta gii s& tlm thdng tin Customer tit database, nhtlng khong tim 
' ra. Do dd, thdng bio cho thyc tuc ggi class nay mdt each de khdng bd qua. 
Dim strMsg As String 

strMsg = String.Format(The customer you requested by Id {0} could not be 
found.", Id) 

’ T$o exception 

Dim exp As New CustomerNotFoundException(strMsg) 

' Dffy nd ra cho thu tyc gQi 
Throw exp 
End Function 




80 


- Coding Techniques — 


Public Shared Sub DeieteCustomer(ByVaUd As Integer) 

’ Gia sti ta fun thi'y Customer trong database nhiing khong thS xda 
' no dUdc v) ly do quySn han. 

Dim c As New Customer() 

With c 
.id = Id 

.FirstName = “Joe" 

.LastName = ‘Smith- 
End With 

' Doan code n&y c6 thi co iSi neu khdng co cac quySn han 
Dim strllser As String 
Try 

strllser = System.Environment.UserDomainName & T & _ 

System. Environment. UserName 
Catch pexp As Exception 
strUser = ‘Unavailable* 

End Try 

Dim strMsg As String 

strMsg = String.Format(‘The customer you requested {0} {1} could not be 
deleted. Your account ‘{2} 1 does not have permission.", c.FirstName, c.LastName, 
strUser) 

Dim exp As New CustomerNotDeietedException(strMsg, c, strUser) 
exp.LogError() 

Throw exp 
End Sub 
End Class 


' Exception ndy cung cap nen tang cho he thd'ng CRM. 
Public Class CRMSystemException 
Inherits System.ApplicationException 
Private m_AppSource As String 
Public Sub New(ByVal Message As String) 
MyBase.New(Message) 

Me.m_AppSource = “SomeCompany CRM System" 
End Sub 





' Ta chi muon phitdng thitc ndy th$y dupe trong cung assembly. Tuy 
' nhien, co the thay doi scope n&u class nay co sd dung trong mdt assembly khac. 
Friend Sub LogErrorQ 

Dim e As System.Diagnostics.EventLog 
e = New System.Diagnostics.EventLogfApplication") 
e.Source = Me.AppSource 

e.WriteEntry(Me.Message, System.Diagnostics.EventLogEntryType.Error) 
e.DisposeQ 
End Sub 

Public Overridable Readonly Property AppSource() As String 
Get 

Return m_AppSource 
End Get 
End Property 
End Class 


' Exception nen tang cua module Customer. T£t ca cac exception 
' Customer se dua ra mdt tham chiSu di'n Customer thong qua thudc 
' tinh chi dQc Customerlnfo. Trong mdt sd ' trudng hop no co gid tri Nothing. 

Public Class CustomerException 
Inherits CRMSystemException 

Private m_AppSource As String 

Private m_Customer As Customer 

Public Sub New(ByVal Message As String, ByVal ReqCustomer As Customer) 
MyBase.New(Message) 

Me.m_Customer = ReqCustomer 

Me.m_AppSource = “SomeCompany CRM Customer Module" 

End Sub 

Public Readonly Property Customerlnfo() As Customer 
Get 

Return MyClass.m_Customer 
End Get 
End Property 
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Public Overrides Readonly Property AppSource() As String 
Get 

Return Me.m_AppSource 
End Get 
End Property 
End Class 

' Exception dan giin 

Public Class CustomerNotFoundException 
Inherits CustomerExceptiqn 
Public Sub New(ByVal Message As String) 

' TruySn Nothing vdo Customer vi khdng tim th£y 
MyBase.New(Message, Nothing) 

End Sub 
End Class 

' Exception n£y cung c£p mdt thuQc tinh id dt/pc khdi t$o luc x&y di/ng 
Public Class CustomerNotDeletedException 
Inherits CustomerException 
Private mJJserld As String 

Public Sub New(ByVat Message As String, ;ByValReqCustomer As Customer, 
ByVal Userid As String) 

MyBase.New(Message, ReqCustomer) 

Me.m_Userld = Userid 
End Sub 

Public Readonly Property UserldQ As String 

Get 

Return MyClass.mJJserld 
End Get 
End Property 
End Class 

' Cac exception tuy bien khdng cin phUi phCto t$p. 

Public Class EmployeeException 
Inherits CRMSystemException 
Public Sub New(ByVal Message As String) 

MyBase.New(Message) 

End Sub 
End Class 
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Client 

frmMain.vb 

• Option Strict On 

• ' Import assembly bin ngoii, assembly niy djnh nghTa class Customer, 

■ ' va ba exception tuy biin. Chi) y tel yiu ciu cd them chii'u trong phan 

■ ' References cua project 

Imports SomeCompany.CRMSystem 

• Public Class frmMain 

Inherits System.Windows.Forms.Form 

- 'Code phat sinh form dUOc bd qua 

Private Sub chkGET_CheckedChanged(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles chkGET.CheckedChanged 
Dim ctl As CheckBox = CType(sender, CheckBox) 

If ctl.CheckState = CheckState.Checked Then 

' Bat tinh nang bit exception chung. Se khong tha'y trinh bit iSi m$c nhien. 
AddHandler Application.ThreadException, AddressOf Me.OnThreadException 
Else 

‘ Tit tinh nang bit exception chung vi tri lai mic nhiin cho Windows Form. 
RemoveHandler Application.ThreadException, AddressOf Me.OnThreadException 
End If 
End Sub 

Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdEdit.Click 
Dim c As Customer 
Try 

Dim i As Integer = 14213 
c = Customer.EditCustomer(i) 

' Thi/c hien cdng viec neu nhan dupe Customer 

Catch exp As CustomerNotFoundException 

MessageBox.Show(exp.Message, exp.AppSource, _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 
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Catch exp As CustomerException 

MessageBox.Show(exp.Message, exp.AppSource, _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, _ 

MessageBoxButtons.OK, MessageBoxIcon,Error) 

End Try 
End Sub 

Private Sub cmdDelete_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handies cmdDelete.Click - 

Try • - ..;•••• ‘ •- 

Dim i As Integer =-14213 ^ \ a 

Customer.DeleteCustomer(i) : 1 ^ ^ T i 

' Ta se khdng bao gid th£y thdftg bid n&y, nhdng dS cho diy dfif 
MessageBox.Show<String.Forrrta^*Costombr WfO) wasdeleted.\4), _ 

Me.T ext, MessageBoxButtons.OK, MessageBoxIcon information) 

Catch exp As CustomerNotDeletedException - . r-: w-y ,-v 

Dim c As Customer . ' / •' < io‘* . 

c = exp.Customerlnfo 

* Co the tem g) dd vdi Customer n&'u mu&n. 

MessageBox.Show(exp.Message, exp:AppSoi/rce, _ v • ’*• •' 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

Catch exp As CustomerException 

MessageBox.Show(exp.Message, exp.AppSource, _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 
End Sub 
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Private Sub cmdUntrapped_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdUntrapped.Click 

’ Thdng thudng mdt Idi khdng dupe bit trong VB6 va cac phien 
' bin cu se cho mot thdng bio ngin trong MessageBox vi sau do 
’ thoat chUong tnnh 

‘ Tuy nhien Windows Form co mdt thu tuc bit Idi dp cao nh£t giOa 
' chddng tnnh vi CLR. Ta co thiy dupe h$p thoai cua chung hay , < 

' khdng tuy vio ba thU: 

' 1) Co tnnh bit Idi (debugger) nio dang chpy hay khdng? 

' 2) Chuong tnnh cd cac thu tpc bit exception riing khdng? ■'>;?* ■' 

’ 3) Co bit tlnh ning bit t6i JIT ten trong file du htnh ? 

' Niu mdt Idi, khdng dupe bit, xiy ra vi tri Idi khdng cho ba c&uhdi 
‘ trdn, thi se thiy mdt hpp thoai Windows Forms cung cdp ctm , .. 

' ngudi sti dpng cickhA ning tiep tyc (Continue) ho$c thdAt (Quit). 

' DS thiy dupe thu tyc bit Idi kiiu niy, cin ebay chUdng trinh da 
' dupe biin djeh ■■■" 

Dim i As Short = 1234 
Dim j As Short = 0 
Dim k As Short = -1 

k = CShort(i/j) {■■•>s,* v •’ 

■- ' ••• vi V$;r 

' Chu y li khdng bao gid th£y dUpt thihg biP bdn dudl 
MessageBox.ShowfYour reults are: • & k.ToStringQ, Me.Text, _ 

MessfegeBoxBtittons.OK, MessageBoxtconInformation) 

End Sub 

Friend Sub OnThreadException(ByVal sender As Object, ByVal t As 
System.Th reading.ThreadExceptionEventArgs) 

' Tgi diy cd th4 midu ti nhUng gl xiy ra. Cd thS ghi Ipi cac Idi, hiSn 
’ thi thdng bao, gCri email... 

' Chu y: Ndu cd mdt l6i khdng dupe bit d diy, ta se thiy 
‘ hpp thoai bit l6i JIT, khdng phii li hpp thoai bit Idi cua 
' Windows Forms. 

* Xda ghi chu ddng bin dudi dS thay dupe 
rhrow New ArgumentException( H Oops$! I did it again!") 
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Dim exp As Exception = t.Exception 

If TypeOf exp Is CustonverException Then 

‘ KiSm tra c6 phAi IA mpt trong cac kiSu CustomerException 

Eiself TypeOf exp Is Applicationsxception Then 

’ KiSm tra c6 phii ti cic kHu exception khac cua (ing dgng 

Eiself TypeOf exp te ArHhmeticException Then 

' Se thiy dupe h$p tMng bAo nAy ngu da chgy code 
' trong cmdUnfrapped_ Click 
‘ Xda ghj chu Mn drtdi di kigm tra l$i 
' MessageBox, Show(exp. Message, exp. Source, _ 

* MessageBoxButtons OK, MessageBoxIcon.Error) 

ElseH TypeOf exp Is SystemException Then 
* Kiim tra cd phAi exception. h$ th6ng 

Else 

End If 

Dim strMsg As String 

strMsg 3 String.Format(*We‘re sorry, an untrapped error occurred.{0}The error 
message was:{0H1}'. vbCrLf, exp.Message) t 

MessageBox.Show(stfMsg, 'Global Exception Trap", MessageBoxButtons.OK, 
MessageBoxIcon.Exclamation) 

End Sub 

1 

End Class ... . . . 

app.config - , v , , 

<?xml version=* 1 . 0 ' encoding="utf- 8 * ?> 

<configuration> ... 

■ </—* D6i ttiAnh true 6S tbAy h$p tho$i bit iSi JIT~> 

<system.windows.forms jitDebugging=*false" /> 

• </configuration> 
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9. Truy xuat va duy^t dtf li$u 

Chuong trinh n&y chi cdch tao mot form di£n hinh co ket di? lidu. Thong 
tin dupe hi£n thi tr&n cdc TextBox. Khi ngudi suf dung duy$t qua c&c mHu tin 
(record), n0i dung b£n trong cdc TextBox se thay d6i. 

TlrT^I 


iy§j T ,U V xual va duyet dO lieu 


Product ID 

3 

Product Name 

|Ani$eed Syrup 

Suppler 

Exotic Liquids 

Category 

Condiments 

Quantity per Unit 

]l2 - 550 ml bottles 

Unit Price 

$10.00 

Urfts in Stock 

|13 

Unit on Order 

70 

Reorder Level 

|25 

Discontinued 

jNe 


Record 3 of 77 


Cac chufc nanq chinh: 


> Vi du n&y chi cdch k£t dur li£u tif cdc field cu th# v&o cdc control. 
Chuong trinh n&y cung chi c4ch duy£t qtia cdc record nhu: ve dau, liii 
ve mpt vi tri, ti£n tdi mot vi tri, v& v4 cu6i cCmg. Ngo&i ra vi tri cua 
record hi£n h&nh v& t<$ng stf record dupe th$ hipn tr&ri mpt label. 

> Doi vdi mpt sd' field (cdc gid tri Boolean, vh Currency), suf dung dinh 
dang tiiy bien being cdch sur dung sir kipn Format cua class Binding. 

> Ngudi stir dung c6 thS duyet qua cdc record b&ng crich suf dung cdc phim 
dieu khien cursor. Mui t&n phai: ve record trudrc, mui t&n trdi: ti£n tdi 
mot record, Home: ve record d£u, End: d£n record cudi. Page down 
nhay qua 10 record, Page Up nhay ngupc ve 10 record. 

> Thong tin dupe lay v&o mpt Typed DataSet. Doi tupng n&y ddp dug 
nhilu di4m manh hon DataSet thdng thudng, bao g6m vipc vi£t code 
dcrn gian, v& it cd co hoi xay ra loi. 


Yeu cau: 


Chuong trinh suf dung database Northwind tren SQL Server ho&c MSDE. 
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Project: Truy xuat va Duyet du lieu 

ProductDataSet.xsd 

<?xml version="1.0' encoding="utf-8‘ ?> ■ 

<xs:schema id=“ProductDataSet" : > • v ' ; ' C 

, ■ -r ■ -..‘V k; . . .--I -,-i- 

targetNamespace="http://tempuri.org/ProductDataSet.xsd“ 
etementFormDefault="qualified' attributeFormDfcfaults “qualified* 
xmlns="http://tempuri.org/ProductDataSet.xsd!i ■ • r' 

xmlns:mstns=“http://tempuri.org/ProdpctDataS€»t,xsd* ,.v_ V.' 
x m I ns: xs=“ http://www. w3. org/2001 /XMLSchema , xmlns:rnsdata^ ,l urn: schemas- 
microsoft-com:xml-msdata"> ' " l ' Vj 

<xs:element name="ProductDataSet" msdatarteDataSa&s"tr uiei 
<xs:complexType> > C 

<xs:choice maxOccurs=*unbounded*> C c C r C C 
<xs:etement name=‘Products“> —^ > 

<xs:complexType> 

. ..it?:." i. 

<xs:sequence> . ^ . • 

<xs:element name^ProductlD" msdata:ReadOnly="tVue* 
msdata:Autolncrement=“tru©“ type=’xs:lnt* /> 

<xs: element name=*ProducfNarne“ type-*xsC$tDnfl*/?- 
<xs:etement name=*SuppllerlD“ type»“xs:int" mihOccurs=“0“ /> 
<xs:element nam ©^“Category ID“ tyjpe='xa:»nil' 4rfi1rrtbefbui^="0* h> 
<xs:element ^ame='Q^anl^tyPe^Unit' , type«"ys:«tring,CminOccurs="0“ /> 
<x$:element name=‘UnitPrice" type=“x&:dactmalVmi«dccursa"0"/> 
,<xs:element name="UnitslnStock“ type=“x&:short" minOccurs-'O" /> 
<xs:etement name="UnitsOnOrder" typa**xa:shorf minOccurs=*0" /> 
<xs:element name=*ReorderLevel* type="xs:$hort" minQccurs=*0“ /> 
<xs:element name="Di§continued“ type="xs: boolean" /> 

<xs:element name=*SupplierName* type^'xs: string" /> 

<xs:elem©nt name=*CategoryName" type=“xs:string’ 7> 

</xs:sequence> 

</xs:complexType> 

</xs:element> 

</xs:choice> 

</xs:complexType> 

</xs:element> 


</xs:schema> 





frmMain.vb 

Option Strict On 

Imports System.Data.SqlClient 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

Protected ProductInfo As New ProductDataSet() 

Protected Const SQL_CONNECTION_STRING As String = _ 
“Serverslocalhost;* & _ 

“Databases Northwind;" &_ 

■Integrated SecuritysSSPI* 

• ' ' i i . , r -, * ■ _ ■ 

Protected Const MSD€_CbNNECTION_STRlNG As String = _ 
“Server^local)\NetSDK;* & _ 

“DataBase=Northwiridi* & x 
“Integrated Security=SSPI* 

‘ Code phdt sinh form (jugg , . ... 

j-r hn.fl'® i \ i ■- '/r '■ 

' Khi kS't dO li$u v&a mfyt gi& trjboolean, thO tyc n&y ohuytfn n6 
‘ th&nh chudi True/Fals* tfO0,Y9$/Nd ; 

Protected Sub BooleanTdV6$t4&(ByVat sender As Object, ByVal e As 
ConvertEventArgs) <- 

’ Phuang thtfc n&y chi chuyih sanfydyng chudi. Ki4rr\ tra b&rtg Do$iredType 
If Not e.DesiredType Is Q^Ty^siring) Then r ' 

Exit Sub ; 

End If ! 

’ NS'u gia trj l& “true" th) chuyin th&nh ”Yes”, n&’u kh&c thl chuySn th&nh "No" 
e.Vatue = llf(CType(e.Value, Boolean), “Yes“, “No") 

End Sub 

Protected Sub DecimalToCurrencyString{ByVal sender As Object, ByVal e As 
ConvertEventArgs) 

If Not e.DesiredType Is GetType(String) Then 
Exit Sub 
End If 

‘ Stf dyng phuang thUc ToString de djnh dang c&c giajrj la tien IS ("c") 
e.Value = CType(e.Value, Decimal).ToString(V) 

End Sub 
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' Lui l$i 10 record 
Public Sub Backl 0() 

Me.BindingContext(productlnfo.Products).Position -= 10 
End Sub 


’ Ve record dau tiSn 
Public Sub FirstRecord() 

' Vi tri record diu ti&n let 0 (khdng phii 1) 

Me.BindingContext(productlnfo.Products).Position = 0 
End Sub Vt ’ 

' Tien tdi 10 record 
Public Sub Forwardl 00 

Me.BindingContext(productlnfo.Products) J Posltion += 10 

End Sub <v - \ -- 

* 

’ D&n record cu6i cung . > t / 

Public Sub LastRecord() 1 

’ Stir dong ProductInfo. Products. Count dS $y tSng s6 record. 
Me.BindingContext(productlofo.Products).Position = _ 

productlnfo.Products t €ount -1 C j. ; , k ^ * - • 

End Sub . ■ ^ £ 1 f 

1 Di chuySn d&n record k£ tiSp ' 

Public Sub NextRecordO ; ' ; ’ " "" 

Me.BindingContext(productlnfo.Prodiictsj.Pdsition +a 1 1 
End Sub 

* LCii ve mot record ‘ ' r “ ,v 

Public Sub PreviousRecordQ 
Me.BindingContext(productlnfo.Products).Position -= 1 
End Sub 

' In ra sd‘ record 

Protected Sub ShowCurrentRecgrdO 
IbIRecordNumber.Text = “Record * & _ 

Me.BindingContext(productlnfo.Products).Position + 1 & “ of “ & 
productlnfo.Products.Count 
End Sub 




Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnFirst.Click 
' Di chuyen d£n record diu tien 
FirstRecord() 

End Sub 

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnLast.Click 
' Di chuyen den record cu6i 
LastRecord() 

End Sub 

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnNext.Click 
‘ Di chuyen den record kS’ tid'p 
NextRecord() 

End Sub 

Private Sub btnPrevious_Click{ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnPrevious.Click 
’ Lui vS m$t record 
Prev»ousRecord() 

End Sub 

Private Sub frmMain _KeyDown(ByVal sender As Object, By Vai e As 
System.Windows. Forms.KeyEventArgs) Handles MyBase.KeyDown 

' Cho ph4p ngUdi stf dpng sCt dyng cic phlm diSu khien cursor. 
tf e.KeyCode * Keys.Right Then NextRecordO 
it e.KeyCode » Keys.Left Then PreviousRecord() 

* If e.KeyCode = Keys.Home Then FirstRecordO 
tf e.KeyCode * Keys.End Then LastRecord() 

If e.KeyCode « Keys.PageDown Then Forwardl 0() 

If e.KeyCode * Keys.PageUp Then Backl 0() 


End Sub 
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Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

Static Connectionstring As String = SQL_C0NNECTION_STRING 
Static DidPreviouslyConnect As Boolean - False 

Dim frmStatusMessage As New frmStatusQ 
If Not DidPreviouslyConnect Then 

frmStatusMessage.Show("Connecting to SQL Server*) m 
End If r . , „ .< 


Dim IsConnecting As Boolean = True r : ' 

While IsConnecting 
Try 

Dim northwindConnection As New SqlConftection{CdnftfcGtidnString) 

’ CSu l$nh truy van nay lay tit ci product cCmg vdr' ! v 
‘ CategoryName v£ SupplierName cho m8i product 
Dim selectCommand As String = _ # 

"SELECT Products.ProductID, Products.ProductName, * &_ 

‘Products.SupplierlD, Products.CategorylD, * & _ 

"Products.QuantityPerLfnit, PrOductsVUhfitPrlee, *il _ 

"Products.UnitsInStock, Products.llmtsOnOrder, * & _ 

"Products.ReorderLevel, Products.Discontinued, *&~ 

"Suppliers.CompanyName AS SupplierName, 

"Categories.CategoryName " & _ 

"FROM Products INNER JOIN * & _ 

"Suppliers ON Products.SupplierfD =* & _ ' ^ 

Suppliers.SupplierlD INNER JOIN * & 1 
"Categories ON Products.CategorylD = * & _ 

Categories.CategorylD" ' 

,. . ; ‘ ' i, J■. ■ 2 • 

' SqlDataAdapter thi/c si/ phat cSu l$nh din database. 

Dim productAdapter As New _ 

SqlDataAdapterfselectCommand, northwindConnection) 

productAdapter.Fill(productlnfo.Products) 

txtProductlD.DataBindings.Add{"Text", ProductInfo.Products. “ProductiD") 
txtProductName.DataBindings.Add("Text", ProductInfo.Products, _ 

"ProductName") 




93 


- ( ndil.i’ i * i' I : U J 1 1U( :■ • 

txtSupplier.DataBindings.AddfTexr, ProductInfo.Products, _ 

"SupplierName") 

txtCategory.DataBindings.Add("Text", ProductInfo.Products, _ 

"CategoryName") 

txtQuantityPerUnit.DataBindings.AddCText", ProductInfo.Products, _ 

"QuantityPerUnit“) 

txtUnits!nStock.DataBindings.Add(“Text\ ProductInfo.Products, _ 

“UnitslnStock“) 

txtUnitsOnOrder.DataBindings.Add(’Text", ProductInfo.Products, _ 

"UnitsOnOrder") 

txtReorderLevel.DataBindings.AddCTexf, ProductInfo.Products, _ 

"ReorderLevel“) 

Dim UnitPrrceBinding As New BindingfText', ProductInfo.Products, _ 

"UnitPrice") 

AddHandier UnitPriceBinding.Format, _ 

AddressOf DecimalToCurrencyString 
txtUnitPrice.DataBindings.Add(UnitPriceBinding) 

Dim DiscontinuedBinding As New Binding("Text", _ 

ProductInfo.Products, “Discontinued 8 ) 

AddHandier DiscontinuedBinding.Format, AddressOf BooleanToYesNo 

txtDiscontinued.DataBindings.Add(DiscontinuedBinding) 

AddHandier Me.BindingContext(productlnfo.Products).PositionChanged, 
AddressOf Productlnfo_PositionChanged 

’ Di1 li$u da di/gc l£y thknh cdng, do do thokt vdng l$p 
IsConnecting = False 
DidPreviouslyConnect = True 

Catch exc As Exception 

If Connectionstring = SQL_CONNECTION_STRING Then 
* Khdng thS kit n6i vko SQL Server, chuyen qua MSDE 
Connectionstring =? MSDE_CONNECTION_STRING 
frmStatusMessage.Show(“Connecting to MSDE") 

Else 

' Khdng thS ket n6i vko SQL Server vk MSDE 
frmStatusMessage.CloseQ 
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MessageBox.Show(“To run this sample, you must * & _ 
“have SQL or MSDE. “) 

End 
End If 


End Try 
End While 


frmStatusMessage.Close() 

S ho wC u rre ntR ecord() 

End Sub 


Protected Sub Productlnfo_Pos»tkxnChanged(ByVal sender As Object, ByVal e As 
System.EventArgs) 

ShowCurrentRecord() 

End Sub 
End Class 


10. Dinh dang DataGrid 

Chtfctng trinh n&y cho th£y cdch l£y dfl Ii£u tif database, hi6n thi duf lieu 
trong mOt DataGrid, v& c&ch dinh dang cdch trinh b&y cua DataGrid. 



Display DataGrid using the following formatting options: 


Grid Properties 


Table Style 


Column Style* 


Cac chufc nanq chinh 






























— 0ornug 
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ADO.NET dirac suf dung d£ lay thong tin tir SQL Server. Dur lieu duoc dua 
v&o mot DataSet, vh DataGrid the hien dur li$u n&y b&ng cdch ket v&o 
DataSet nay. 

Dinh dang cdch trinh b&y ciia DataGrid dufoc thuc hi$n trong code tai b6n 
thu tuc xuf ly bo'n nut bSirn. Cdc nut c6 ten nhir sau: 

1. Default: Sur dung dinh dang mac nhien 

2. Grid Properties: Chi sir dung cdc thuoc tinh dinh dang ciia DataGrid. 

3. Table Style: Su dung doi tuong DataGridTableStyle de dinh dang 
DataGrid. 

4. ColumnStyles: Doi tudng DataGridColumnStyle dude sir dung de dinh 
dang DataGrid. 

Yeu cau: 

Suf dung database Northwind trong SQL Server ho&c MSDE. 

Project: Dinh dang DataGrid 

frmMain.vb 
Option Strict On 

• Imports System.Data.SqlClient 

• Public Class frmMain 

Inherits Form 

' ProductData se chL/a thong tin dupe tra ve tii SQL Server 

Protected ProductData As New DataSet() 

1 Si} dyng de tham chieu den bing chiia thong tin sin phim trong ProductData 

Protected Const PRODUCT_TABLE_NAME As String = “Products" 

Protected Const $QL_C0NNECT10N_STRING As String = _ 

B Server=localhost;" & _ 

"DataBase=Northwind;* & _ 

"Integrated Security=SSPI" 

Protected Const MSDE_c6nNECTION_STRING As String = _ 
“Server=(locai)\NetSDK;‘ & _ 

"DataBase=Northwind;" & _ 

"Integrated Security=SSPI" 




' Cac gia trj mic nhiin c4n dupe luu lai 
Protected DefauItGridBorderStyle As BorderStyle 

Public Sub New() 

MyBase New() 

InitializeComponentO 

'Lay thdng tin mac nhiin phuc vu cho muc dich reset djnh dang 
DefauItGridBorderStyle = grdProducts.BorderStyle 
End Sub 

‘ Code phat sinh form dupe bo qua 

Private Sub BindDataGrid() 

h 

Static Connectionstring As String = SQL_CONNECTION_STRING 
Static DidPreviouslyConnect A$ Boolean = False 

Dim frmStatusMessage As New frmStatus() 

If Not DidPreviouslyConnect Then 

frmStatusMessage.ShowfConnecting to SQL Server") 

End If 

Dim IsConnecting As Boolean = True 
While IsConnecting 
Try 

Dim northwindConnection As New SqlConnection(ConnectionString) 

' SqlDataAdapter dupe sti dung de di chuyen duf lieu giOa 
' SQL Server va DataSet. 

Dim ProductAdapter As New SqlDataAdapter( _ 

"SELECT ProductID, ProductName, UnitPrice," & _ 

" UnitsInStock FROM products", northwindConnection) 

’ ThiSt lip DataSet vdi thdng tin tU bang Products. Bdi vt 
' DataSet co the chUa nhiSu tap ket qua, tot nhat li dpt ten 
' cho tip ket qua khi thiet lip DataSet. Trong trUdng hop nay, 

' tip ket qua dupe dit tin la "Products'. 
ProductAdapter.Fill(ProductData, PRODUCT_TABLE_NAME) 
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' Da lay dQ HSu thanh c6ng, thoat vdng lap 
IsConnecting = False 
DidPreviouslyConnect = True 
Catch exc As Exception 

If Connectionstring = SQL_CONNECTION_STRING Then 
' Khong the ket noi vao SQL , chuyen qua MSDE 
Connectionstring = MSDE_CONNECTION_STRING 
frmStatusMessage.Show(“Connecting to MSDE“) 

Else 

' Khdng th£ ket n6i vao SQL vk MSDE 
frmStatusMessage.Close() 

MessageBox.Show(’To run this sample, you must * & _ 

‘have SQL or MSDE.‘) 

End 
End If 
End Try 

End While 

frmStatusMessage.CloseQ 

' Ket DataGrid vao mot bang biet trade trong DataSet. Thong tin 
' cac san ph£m se dupe hien thi 

grdProducts.DataSource = ProductData.Tables(PRODUCT_TABLE_NAME) 
End Sub 

Private Sub FormatGridWithBothTableAndColumnStylesQ 
' Tnjc tiep quy djnh cac thupc tinh cua DataGrid, nhUng chi cac 
' thuoc tinh khong co trong cac thupc tinh cua DataGridTableStyle. 

With grdProducts 

BackColor = Color.GhostWhite 
.BackgroundColor = Color.Lavender 
.BorderStyle = BorderStyle.None 
.CaptionBackColor = Color.RoyalBlue 
.CaptionFont = New FontfTahoma", 10.01; FontStyle.Bold) 
CaptionForeColor = Color.Bisque 
CaptionText = "Northwind Products - 
.Font = New Font(‘Tahoma“, 8.0!) 

ParentRowsBackColor = Color.Lavender 
.ParentRowsForeColor - Color.MidnightBlue 

End With 
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’ Thdm Ccic khi n&ng djnh dang khac 
Dim grdTableStylel As New DataGridTableStyle() 

With grdTableStylel 

.AlternatingBackColor = Color.GhostWhite 
.BackColor = Color.GhostWhite 
..ForeColor = Color. MidnightBlue 
.GridLineColor = Color. RoyalBlue 
HeaderBackColor = Color.MidnightBlue 
.HeaderFont = New Font("Tahoma*, 8.0!, FontStyle.Bold) 
HeaderForeColor = Color. Lavender 
.SelectionBackColor s Color,Teal ; 

SelectionForeColor = Color.PaleGreen 
* Ddng qudn quy djnh thudc tlnh MappingName. Neu khdng, 

' cdc thudc ttnh DataGrkjTableStyle vd cac dd'i tuqng 
‘ DataGridColumnStyle kd't hqp vdi nd se khdng cd tac dung. 
.MappingName = PRODUCT_TABLE_NAME 
PreferredColumnWidth = 125 
.PreferredRowHeight = 15 
End With ■*’ r: 

* Dinh dang tdng cdt muon xud’t hr$n tfohg- D&taGrid. Tron$ da s6 
‘ trudng hop, class DataGridTextBoxColumn Id thfch hqp. Tuy 
‘ nhien, cung co th£ dung class DataGridBoolColurrm. C£t hai 
' class nay dSu m3 rdng class DataGrkfGolufftnSbyle. '' 

Dim grdColStylel As NeVii DataGridTextBbxColUrrinO J ■ 

With grdColStylel *•> ' 

.HeaderText = "ID" ! 

.MappingName = "ProductlD" ■ ' 

.Width = 50 
End With 

Dim grdColStyle2 As New DataGridTextBoxColumn() 

With grdColStyle2 

HeaderText = "Name" 

.MappingName = "ProductName" 

End With 
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Dim grdColStyle3 As New DataGridTextBoxColumn{) 

With grdColStyle3 
.HeaderText = “Price' 

.MappingName = 'UnitPrice' 

.Width = 75 
.Readonly = True 
End With 

Dim grdColStyle4*As New Data6ridTextBoxColufnn() 

With grdColStyle4, .... *- 

.HeaderText = *# In Stock* 

.MappingName * 'UnitsInStock" 

.Width = 75 . i< 

Alignment = HorizontalAlignmentCenter ' 

End With 

‘ ThSm cac d6i U/Qng ki£u tr)nh b&y vdo t$p hgp cac kiSu bing. 
grdTableStylel .GridColumnStyteS.AddRaftge (New DataGridColumnStyle() 
(grdColStylel, grdColStyle2, grdColStyle3 i gt<IColStyle4}) 
grdProducts.TableStyles.Add(grdTableStyl«if) / 

End Sub ' ’■ 1 1 •, • ' 

Private Sub FormatGridWlthoutTableStyles() 

* Thay d6i ckch trlnh b&y cdA O&taGfid ting c£h quy djnh ttifc ti£p 
' cac thuQc t(nh d'\nh d$ng caa nd. 

With grdProducts 

.AlternatingBackColor = Color.GhostWhite 

BackColor = Color.GhostWhite 

.BackgroundCdlor = Color. Lavender 

.BorderStyle^ BorderStyle.None 

.CaptionBackQolor = Color. RoyalBlue 

.CaptionFont = New Font(“Tahoma‘, 10.0!, FontStyle.Bold) 

.Caption ForeColor = Color.Bisque 
.CaptionText = "Northwind Products” 

.Font = New FontfTahoma', 8.0!) 

.ForeColor = Color.MidnightBlue 

.GridLineColor = Color.RoyalBlue 

.HeaderBackColor = Color.MidnightBlue 

.HeaderFont = New Font(‘Tahoma“, 8.0!, FontStyle.Bold) 

.HeaderForeColor = Color.Lavender 
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.ParentRowsBackColor = Color.Lavender 
.ParentRowsForeColor = Color.MidnightBlue 
.SelectionBackColor = Color.Teal 
.SelectionForeColor - Color. PaleGreen 
End With 
End Sub 

Private Sub FormatGridWithTableStyles() 

' Quy dinh c&c thuQc tlnh tri/c ti&'p cua DataGrid, nhi/ng chi nhOng 
' thuQc tinh khdng thuQc c&c thuQc tfnh cua DataGridTableStyle 
With grdProducts 

.BackColor = Color. GhostWhite 

.BackgroundColor = Color.Lavender 

BorderStyle > BorderStyle.None 

CaptionBackpelor = Cotor.RoyatBlue 

.CaptionFont » New Font(“Tahoma' p 10.0!, FontStyle.Bold) 

CaptionF^reColpr COlor.Bisgue 

CaptionTexIs? Pccfriucts"*, - 

Font = New FontCT^hpiRa't >C ; 

. ParentRowsBackColor,* Oolajr.Lavefttier ; • . 
ParentRowsForeColor = Color.MidnightBlue 
End With 

. -A\ . T ■' )L V 

' Quy dinh c&c thufa tlnh dinh dang kh&c't&xtwg d6i tupng ;, 

' DataGridTableStyle. Chd y Id mdt s6 thufictfab <Tfnh dang cda , 

* DataGrid c6 thS chSng ch&o l&n DataGridTableStyle. Do 66, 

‘ thUdng quy djnh c&c thuQc tlnh cda DataGrid nhiSu d£n mute cd * 

' the, $au do hieu chbh b&ng DataGridTableStyle. 

' Bdi vi m$t DataGrid c6 th£ chCfa nhiiu dd'i tityng DataTable, m6t 
‘ doi tUdng DataGridTableStyle khac cd thS &p dung cho dO li&u 
' trong mdi DataTable. DS l&m diSu n&y, ddn gi&n la g&n thuQc tlnh 

* MappingName b&ng t&n cua DataTable chda duf li&u mudn 
' dinh dang. 

Dim grdTableStylel As New DataGridTableStyle() 

With grdTableStylel 

.AlternatingBackColor = Color.GhostWhite 
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.BackColor= Color.GhostWhite 

.ForeColor = Color.MidnightBlue 

.GridLineColor = Color.RoyalBlue 

.HeaderBackColor = Color.MidnightBlue 

.HeaderFont = New Font('Tahoma‘, 8.0!, FontStyle.Bold) 

.HeaderForeColor = Color.Lavender 
.SelectionBackCoior = Color.Teal 
.SelectionForeColor = Color. PaleGreen 

.MappingName = PRODUCT_TABL.£_NAME 
.PreferredColumnWidth = 125 
.PreferredRowHeight = 15 
End With 

' Cho style vko t$p ckc table style cua DataGrid. 

' N&u khdng, ckc style se khdng cd tic dyng. 
grdProducts.TableStytes.Add(grdTableStylel) 

End Sub 

Private Sub ResetDemo() 

' D(?n dep DataTable di ckc Ikn nh£n nut kS tidp khdng thim dO li$u chSng vko 
If Not lsNothing(ProductDataTables(PRODUCT„TABLE_NAME)) Then 
ProductData.Tables(PRODUCT_TABLE_NAME).CIear() 

End If 

' X6a ckc TableStyle dk \6n tyi vk trk vS mkc nhiin 
With grdProducts 

BackgroundColor = SystemColors.lnactiveCaptionText 
CaptionText = M 

CaptionBackColor = SystemColors.ActiveCaption 
.TableStyles.Clear() 

. ResetAlternatingBackColor() 

• ResetBackColor() 

-ResetForeColor() 

.ResetGridLineColorQ 

• ResetHeaderBackColor() 

ResetHeaderFont() 

.ResetHeaderForeColorQ ; 

• ResetSelectionBackColor() 

.ResetSelectionForeColorQ 

.ResetText() 

.BorderStyle = DefauItGridBorderStyle 




End With 


End Sub 

Private Sub btnColumnStyles_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnColumnStyles.Click 
ResetDemo() 

BindDataGrid() 

' Neu cin djnh d$r>g d dp dd cdt, thim cac doi tugng 
' DataGridColumnStyle v&o mdt mdt dd'i tUQng DataGridTableStyle. 

FormatGridWithBothTableAndColumnStylesO 
End Sub 

Private Sub btnDefaultFormatting_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnDefaultFormatting.Click 
ResetDemo() „ 

’ S& dyng djnh d$ng m$c nh&ncua Visual Studio .NET 
BindDataGridO 
End Sub 

Private Sub btnGridProperties_Click{ByVal sender As $ystem.Object, ByVal e As 
System.EventArgs) Handles btnGridFroperties'CHck 
ResetDemo() 

BindDataGridO 

' N&u khdng mu6n di£u khiin trdn tCtng c$t eg thS th) chi cin dung 
' cac thudt Unh cua DataGnd. 

FormatG ridWithoutTableStyles() 

End Sub 


Private Sub btnTableSty!e_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnTableStyle.Click 
ResetDemo() 

BindDataGridO 
FormatG rid WithTableStyles Q 
End Sub 
End Class 




103 


- - ('ading T-'t ii u>< iu- 


11. S&p xep va loc dli£u tren DataGrid 

Vi du ndy bieu dien cdch lay dflf lieu tir database va hien thi dOf lieu trong 
mot DataGrid. 


EH] Sap xep va Loc dfl lieu lien DalaGrid s# 



Ten san phSm bit d&u blng; jc 



ProductID | ProductName j SuppierlD > CategcuylD QuantityPerU j L_^ 


ChU" 1 

Chang 1 
Chef Anton's 2 
Chef Anton's 2 
CainaivonTi 7 
CdtedeBlay 18 
Chaitieusev 18 
Chocolade 22 


10 boxes x 20 1! 
24 -12 oz bot 1 1 
48 • 6 02 jais 2 
36 boxes 2 
16 kg pkg. 6L 
12 - 75 cl bolt 21 
750 cc per bo 1! 
10 pkgs 1i 


Load Products 



Cac chufc nanq chinh: 

ADO.NET dirge suf dung d4 l£y dur li|u tir SQL Server. Dur ligu dirge dira 
vdo mgt DataSet, vd d£mg pataGfkJ k^t VSto DataSet dl hiln thi dur lieu. 
ADO.NET cbn dirge stir dungti&loc (filter) 1 dtJ lifu. Khi ngifiri suf dung nhan 
nut Filter, m§t Data Vie WdugbsifrdungdlloaitrLr mot so dbng. Ta cung cd 
thi sdp xep lai dufli^u biing$6ch nhdn vdo cac ti§u de (heading) cua cdc cQt 
trong DataGrid. 

Viec kilm tra hop dtfgcthtfc hi|n trong thu tuc loc dur lieu. Neu ngirdi suf 
dung nhap vdo m<)t diiu kign kh6ng thda bat ky dbng nao, ngudi suf dung se 
nhan dirge thong bdo. 

Debug.Assert dirge suf dung trong thu tuc loc dd ligu de bao dam rdng 
DataSet c6 chufa duf ligu trirdc khi cho ket qua loc. Be thay n6 hoat d<?ng, 1dm 
nhir sau: 

1. Doi thupc tinh Enabled cua btnFilter thanh True. 

2. Nhan F5 d! chay ufng dung. 

3. Nh£n Filter trudre khi nhdn Load Data. 

Debug.Assert chi hoat dong trong chd do debug, do dd ngufti lap trinh 
khong c4n lo n6 hiln thi l6i trong code da phdt hanh (released code). 
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1. Tren thanh c6ng cu Visual Studio, doi Solution Conflguaratlons tir 
Debug sang Release. 

2. Nhan F5. 

3. Nhan Load Products trvdc khi nh£n Filter. 


Yeu cau: 


Chtfotng trinh sijf dung database North wind c6 s&n trongSQ^ Server hoftc 

MSDE. . -■* .. * • . :*p&**Zd A 


Project: Sap xep ya Loc du lieu tren DataGrid 
frmMain.vb 

• Option Strict On 


Imports System.Data.SqlClient 


Public Class frmMain 
Inherits System.Windows.Forms.Form 


' ProductData si chCfa thdng tin tri vS tit SQL Server 

Protected ProductData As New DataSetQ *2 ^ 


’ Vi dy niy gii sit m£y tloh da cd ciid$t SQL Server vi chCta L c - 
' database, Northwind. N&u kh&ng, it nh£t phii c6 MSDE di/dc cMdft ,c; J. ; 
' trin miy tinh vdi database Northwind. Ho&c thay d6i chuSi k&t tUSi , 

' bin ditdi dS chJ ddn m$if SQL Server khio b&ng cich d6i '’'Server** 


Protected Const SQL_C0NNECT10N_STRING As String = ■; 

“Serverfrlocalhost;* & _ ■ > 

“DataBase=Northwind;“ & _ 

"Integrated SecuritysSSPI* 

■ f ■ j.. 

, ' ‘ , 4 ’ - Uc /’ :t . ■ 

Protected Const MSDE_CONNECTION_STRING As String * _ 
“Server=(local)\NetSDK;“ & _ , ( . . 

"DataBase=Northwind;“ & _ 

“Integrated Security=SSPl“ 

Protected Const CONNECTION_ERROR_MSG As String = _ 

“To run this sample, you must have SQL “ & _ 

“or MSDE with the Northwind database installed. “ 
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Protected didPreviouslyConnect As Boolean = False 
Protected connectionstring As String = SQL_CONNECTION_STRING 
' Si? dyng 64 tham chiSu being chda thdng tin san ph£m 
' trong ProductData 

Protected Const PRODUCT_TABLE_NAME As String = ‘Products* 

' Code phit sinh form dupe bd qua 

Private Sub btnFilter_Click(ByVal Sender As System.Object, ByVal e As 
System.EventArgs) Handles btnFilter.Click 
Const MESSAGEBOXiCA&TtQNiAs String » ‘Filter" 

' Ki£m tra t(nh dung &kr <36 bio dim '66 do Il0u tnJdc khi tiin hinh Iqc 
Debug.Assert(Not ProductData.Tables(PRODUCT_TABLE_NAME) is Nothing, _ 
‘No product data loaded inPfoductbjprta:TableB(PROpuCTLTABLE_NAME)‘) 

With ProductData.Tables(PRObUCT_TABLE_NAME) 

' Lqc dO li$u trong DataGtid dSotol Win tty c&c tin sin pttim bit diu Id 
' mdt chuSi cho tedde ttorrQ TextBo*. f 
DefauItView.RowFilter = "ProductName tike '?& txtFilter.Text & 

' C6 sin ph£m nio thda hay khdng? 

If .DefaultView.Count* 0 Then 
MessageBox.ShoMr(?NO rhatching rows.”, _ 

MESSAGEBOXJSAFTION, _ 

MessageBoxButtons.OK, _ 

• MessageBoxIcon. Information) 

End If 

' Bing each kit DataGrid vio Data View, no se hiin tty 
' nhOng ddng thda diSu ki$n 
grd Products. DataSource = .DefauItView 
End With 
End Sub 

Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnLoad.Click 


Dim frmStatusMessage As New frmStatus() 
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If Not didPreviouslyConnect Then 
frmStatusMessage.Show( K Connecting to SQL Server") 

End If 

frmStatusMessage.CloseO 

Dim isConnecting As Boolean = True 
While isConnecting 
Try 

Dim northwindConnection As New SqlConnection(eonnectionString) 

' SqlDataAdapter dt/Qc sCf dtjng didi cfiuyfn dP .n'hT?hi s.i-re . 

* liiu giOa SQL Server vi DataSet .. ' in, •! ?r* A- 

Dim ProductAdapter As New SqtDataAdap^r( J)sempfOducts\ __ 

northwincfConnectiort)- i? > 

' Xda tit ci dQ li$u di dilQc l£y trade d6 e v, . 

ProductData.Ciear() ; -t 7 : ^f &. f 

‘Thiii l$p DataSetvdtthdng tin tdt$r^ ii f t rgduc^i. Mkioitf'ffsls, h-y 
ProductAdapter.FillCProductDate. PRdOU^fABLE„N AMfi) 

' Ket DataGrid, vdo sSltfoVy d&'Jify lAn DataGrid 

grd Products. DateSourc© i P roductDateKT^Ies^? RlODUQT^TABLE_N AM E) 

' DO li$u di Co, chophipng&di s$ i di i t#gtyc€t&ti$ij. / 15 * ' ■> 

btnFilter.Enabletf* True v 

isConnecting s False " nv /n-n 1 iv . 

Catch exc As Exception * .♦ .q: - v \ 

If connectionstring = SQL_CONNECTlON_&TFUNG T4»eP 
* Khdng thS kit n6i SOL Server. Chuyin quaJMSDE v 
connectionstring = MSDE_CONNECTION_STB)NQ. r;. A s? t ; 
frmStatusMessage.Show("Connecting toMSPE*);: . ! • J i: . 1 

Else . 

frmStatusMessage.CloseO < 

MessageBox.ShowlCQimECTlOfcii.eRRORJiASG,_. 

"Connection Failed!", MessageBoxButtons.Ofo _ 

MessageBoxIcon.Error) 

End 
End If 
End Try 
End While 
End Sub 
End Class 
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12. In an dcfn gian 

Chifong trinh n&y bieu di6n cdch in v&n bdn thuan tuy (plain text). 




*J 


: RintPtevb* j Frwy Dwtog 


F.ije Seico 


’■an text (Jri (eai .lar ljr«l pvai ■ lex- tier te’5 


Pi«Ji li* Uari te-l aldll ’«>• pd! l.rit liari tot Uan ItM -’iari (ex! 
ab»\ lexl [iftr >aif fisia -Imi !e»l nPifi -fit M*ri lot rbii '-Mil p.ir, “X‘ 

plan 


r»* flib ir-.-f ol 1 
plan text p<ai. l=x: |i=J ‘ te»i ,la 
?b« <nl pmr !*■«• [iff I** Pt 

Ulan !e*i Rat text plan ie>i pa 

slar> lexl pan t»K plen led :la 

Rar led pbn lot pl< 
ple>r* (r»i pern 'rtf pi.'sin ir-» rh 
jlartin! pict'l»d plan tes-l Rd 
•ft' Hsu led obn iexi pan lax 
•ex! plait text dan t*-i plan »e* 

(ext [imv text plat tei ^tan te: 
(?x ! Fhri tft-i pbn toil pan t?x 
text pla r text plan lot. plan (m 



Cac chute nanq chinh: 

> Suf dung hpp thoai Page Setup 

> Sur dung hpp thoai Print Preview 
Project: In an don gian 

frmMain.vb 

Option Strict On 

■ Imports System.Drawing.Printing 
• Public Class frmMain 

Inherits System.Windows.Forms.Form 

’ Chu y li tit ca cac thu tuc sU kien cung lim viic tren 

‘ cung doi tupng PrintDocument 

Private WithEvents pdoc As New PrintDocument() 


■ ’ Code phat sinh form difdc bd qua 
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' H6p thoai PrinIDialog cho phdp ngUdi suf dung chqn mdy in de in 
' hoSc chinh cac thong s6. 

Private Sub btnPrintDialog_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnPrintDialog.Click 
Dim dialog As New PrintDialogO 
dialog.Document = pdoc 
If dialog.ShowDialog = DialogResult.OK Then 
pdoc.Print() 

End If 
End Sub 

' Xem trade ede trang in 

Private Sub btnPrintPreview_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnPrintPreview.Click 
Dim ppd As New PrintPreviewDialog() 

Try 

ppd.Document = pdoc 
ppd.ShowDialogO 
Catch exp As Exception 

MessageBox.Show("An error occurred while trying to load the " & _ 

"document for Print Preview. Make sure you currently have * & _ 

"access to a printer. A printer must be connected and " & _ 

"accessible for Print Preview to work.", Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 
End Sub 

' Page setup cho phdp ngUdi sCf dung chQn kich thude giay, hudng 
' giiy ddng (portrait), hodc hddng gid'y nkm ngang (landscape),... 

Private Sub btnPageSetup_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnPageSetup.Click 
Dim psd As New PageSetupDialog() 

With psd 

.Document = pdoc 

.PageSettings = pdoc.DefaultPageSettings 
End With 

If psd.ShowDialog = DialogResult.OK Then 
pdoc.DefaultPageSettings = psd.PageSettings 
End If 
End Sub 




109 


-- Coding Tvnu'u<]ih k r -- 

' Khdi tao TextBox mdt it van ban de in. 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles MyBase.Load 

txtDocument.Text = "Plain text plain text plain text plain text plain text" & _ 
vbCrLf & vbCrLf & vbTab & _ 

“Plain text plain text plain text plain text plain text plain text * & _ 

"Plain text plain text plain text plain text plain text plain text “ & _ 

“Plain text plain text plain text plain.’ & _ 
vbCrLf & vbCrLf & vbTab & _ 

“Plain text plain text plain text plain text plain text plain text “ & _ 

“Plain text plain text plain text plain text plain text plain text ’ & _ 

“Plain text plain text plain text plain text plain text plain text “ & _ 

“Plain text plain text plain text plain text plain text plain text ’ & _ 

‘Plain text plain text plain text plain text plain text plain text * & _ 

“Plain text plain text plain text plain text plain text plain text “ & _ 

“Plain text.' & _ 

vbCrLf & vbCrLf & vbTab & _ 

“Plain text plain text plain text plain text plain text plain text “ & _ 

“Plain text plain text plain text plain text plain text plain text “ & _ 
"Plaintext plaintext plaintext plaintext plaintext plain text" & _ 

"Plaintext plaintext plaintext plaintext plaintext plain text “ & _ 

“Plain text plain text plain text plain text plain text plain text “ & _ 

‘Plain text plain text plain text plain text plain text plain text “ & _ 

“Plain text plain text plain text plain text plain text plain text “ & _ 

"Plain text plain text plain text plain text plain text plain text “ & _ 

“Plain text plain text plain text plain text plain text plain text ’ & _ 

"Plain text plain text plain text plain text plain text plain text" & _ 

"Plain text plain text plain text plain text plain text plain text “ & _ 

"Plain text plain text plain text plain text plain text plain text" & _ 

"Plain text plain text plain text plain." 

End Sub 

’ Si/ kiSn PrintPage dddc kfch boat khi bat cut trang ndo dddc in. 

’ Ta cung co the sl( di/ng cac sd kien BeginPrint va EndPrint de dieu 
' khien nhiSu hon, 

Private Sub pdoc_PrintPage(ByVal sender As Object, ByVal e As 
System.Drawing.Printing.PrintPageEventArgs) Handles pdoc.PrintPage 
' Khai bdo mdt bidn dS luu w tri cua ky td cudi cung ddQ'c in. Khai bdo 
' let bidn tinh dS cac sd ki$n PrintPage sau co the tham chidu ddn nd. 
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Static intCurrentChar As int32 

* Khdi tao font dung de in 

Dim font As New font("Microsoft Sans Serif", 24) 

Dim intPrintAreaHeight, intPrintAreaWidth, marginLeft, marginTop As Int32 
With pdoc.DefaultPageSettings 
' Khdi tao cac bii'n cue bd chifa cac gidi han cua vOng in. 
intPrintAreaHeight = .PaperSize.Height - .Margins.Top MarginsiBoftom 
intPrintAreaWidth = .PaperSize.Width - .MarginsXeft - .^argins.Ftight 

' Khdi tao cac bii'n cue bo ktu cac gia trj IS dS phgc vg tirii " 

' tpa do X va Y cua goc trin bin trii cua vung in. 

' TpadoX **’ 

C-, r . ■ . 

marginLeft = .Margins.Left 
* T(?a dd Y 

' y r r.‘ : ■> 

marginTop = .Margins.Top 
End With . > , . 

' NeungUdi sit dgng chgn Landscape mode, hoin chuyin chiiu cao 

' :r : o tye* .y .. .' ? 

‘ vi chiiu rQng cua vung in. 

If pdoc.DefaultPageSettings.Landscape Tilery ^ , 

Dim intTemp As Int32 = "\ 

, ■ - C- . / >! ■ (■■ ti-’i • •• &)■ . ’ ■ 

intTemp = intPrintAreaHeight 

>. - o> ,f n i;.q ! ■; 'f -•; ~. • 

intPrintAreaHeight = intPrintAreaWidth ^ 1 

■ /. q im '■ ’ 

intPrintAreaWidth = intTemp — . 

End W 

: v.' ic-y "‘i .a Cot . 

* Tinh toan tong s6 ding trongtii li$u {fya trin chiiu cao cua vung in 

* vi chieu cao cua font 

: i ’'i • , 1 - 

Dim intLineCount As Jnt32 = Clnt^intPrintAreaHeight / font.Height) 

’ Khdi tao ciu true djnh nghla vOng in 

Dim rectPrintingArea As New RectangleF(marginLeft, marginTop, 
intPrintAreaWidth, intPrintAreaHeight) 

* SCt dgng class StringFormat di ktu giO thdng tin trlnh biy vin bin 
’ (nhUcanh ii vi khoing each ddng), vi cic chitc ning OpenType.... 

' Sit dgng StringFormat khiSn cho Measurestring vi DrawString sti 
’ dung chi m$t s6 cic ddng khi in moi trang. 

Dim fmt As New StringFormat(StringFormatFlags.LineLimit) 
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' Gpi Measurestring de xac dinh so ky tu se ndm trong vCing in. 

Dim intLinesFilled, intCharsFitted As Int32 

e.Graphics.MeasureString(Mid(txtDocument.Text, intCurrentChar + 1), font, 

New SizeF(intPrintAreaWidth, intPrintAreaHeight), fmt, _ 
intCharsFitted, intLinesFilled) 

’ In van ban ra 

e.Graphics.DrawString(Mid(txtDocument.Text, intCurrentChar + 1), _ 
font, Brushes.Black, rectPrintingArea, fmt) 
intCurrentChar += intCharsFitted 

’ HasMorePages bao cho module in bi&'t c6 phit sinh st/ ki$n 
' PrintPage khac hay khdng. 

: ' t , 

If intCurrentChar < txtDocument.Text.Length Then 
e.HasMorePages - True 
Else 

e.HasMorePages = False 

' Phai khdi tao l$i intCurrentChar b£ng 0 bdi v) nd Id biSn static 
intCurrentChar = 0 i! 

End If '* " ’ 

End Sub 

End Class * 

V • ' • > 

13. ListBox va ComboBox 

Bi&’u di£n cdch k£t duf li£u v&o cdc control ListBox v& ComboBox, vh l&m 
vi$c vcri cdc phdn tOr dirge chon. 
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Cac chufc nang chinh: 

Bieu diln cdch suf dung nhieu ky thuat khdc nhau de dua dur li$u vdo cdc 
control ListBox vd ComboBox, vd nhieu phirang phdp khdc nhau di ldy cdc 
phdn tuf dugc chon. Tr&n control Tab c6 cdc trang sau: 

> Add Items Bi£u di£n cdch them cdc doi tugng vdo mgt ListBox, suf dung 
thupc tinh DisplayMember cua control d£ xdc dinh thu$c tinh ndo ctia 
doi tugng se hi&i thi trong danh sdch. 

Chu y: Bdi vi vi du ndy khong sur dung thuoc tinh DataSource cua 
control, thay vdo d6 14 them timg phdn tor cu the, cho ndn code kfrdng 
th£ suf dung thuOc tinh ValueMember dl lay gid tri dugc chon khi ti£n 
hdnh chon phan tuf ndo d6. Xem thu tuc 
lstProcessesAddltem_SelectedlndexChanged d£ rd hem. 

> Selection Mode Tim hieu cdc kieu khdc nhau cua cdc ListBoxcho phdp 
chon nhidu phdn tuf. 

> Bind to DataTable Cho dfl ligu g6m tat cd ten cdc file trong thu muc 

C:\ vdo mgt DataTable, sau d6 kdt ListBox vdo DataTable.. 

> Bind to Array Kdt ListBox vdo m$t mang chufa ede chucrng trinh dang 

chay - m$t mdng ede d6'i tugng Process. Cho bi£t cdcl^ suf dgng cdc 
thuoc tinh DisplayMember vd ValueMember. , ,, 

> ComboBox Bieu di§n edeh ket ComboBox vdo m$t DataTable Idytif 

SQL Server. Gid suf database Northwind da cd trong SQL Server d mdy 
cue bo. Trang ndy cung cung cd'p m^t s 6 thu$c tinh dnh hudng edeh 1dm 
viec cua ComboBox. , .. ; \ < , 

Project: ListBox va ComboBox ' . ^ ; . v 

frmMain.vb u \fy.u-. •*“ , •• 

• Option Strict On ; V.. 

Imports System.Diagnostics ^ _ 

■ Imports System. 10 .. . _. 

• Public Class frmMain 

Inherits System.Windows.Forms.Form 

: - : j 'X‘_ 

■ 'Code phat sinh form di/dc bd qua 

Private Sub btnFilll_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles btnFilll .Click 

AddltemsO 

End Sub 
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Private Sub btnFill2_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnFi!t2.Click 
BindToArrayO 
End Sub 

Private Sub btnFill3_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnFill3.Click 
' K€ft m6t ListBox vko m&t DataTable chtia thdng tin vi cac file. 

Try 

Dim dt As DataTable = FiHTable(‘C:Y‘) 

If Not (dt Is Nothing) Then 
With IstFiles 

.DisplayMember - "FileName" 

.ValueMember = "Length" 

DataSource = dt 
End With 
End If 

Catch exp As Exception 
MessageBox.ShoW(exp.Message, Me.Text) 

End Try * 

End Sub 

Private Sub btnFill4_Click(0yVat sender As System.Object, ByVal e As 
System.EventArgs) Handles btnFilt4.Ctk:k r ' 

FillSelectionModeQ 1 " 1 

End Sub 

Private Sub btnFill5_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnFillS.Click 
BindToDataSet() 

End Sub 

Private Sub cboDemo_SelectedlndexChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles cboDemo.SelectedlndexChanged 

IbIResults.Text = cboDemo.SelectedValue.ToString 
End Sub 




14 -- Coding Techniques — 

Private Sub cboDropDownStyle_SeiectedlndexChanged(ByVaI sender As 
System.Object, ByVal e As System.EventArgs) Handies 
cboDropDownStyle.SelectedlndexChanged 
' Li'y gia tri dupe Hit ki trong cboDropDownStyle, vi gan vao 
' thuoc tinh DropDownStyle cua cboDemo 
cboDemo.DropDownStyle = _ 

CType(System.Enum.Parse(GetType(ComboBoxStyle), _ 
cboDropDownStyle.Text), ComboBoxStyle) 

End Sub 

Private Sub cboSelectionMode_SelectedlndexChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
cboSelectionMode.SelectedlndexChanged 
‘ Cho phip ngudi sit dpng chgn mpt trong cic kieu chgn sau: 

' One, MultipleSimple, MultipleExtended 
Try 

IstMuitiSelect.ClearSelectedO 
IstMultiSelect.SelectionMode = _ 

CType(System.Enum. Parse(GetType(SelectionMode), _ 
cboSelectionMode.Text), SelectionMode) 

Catch exp As Exception , ^ 

MessageBox.Show(exp.Message, Me.Text) 

End Try 
End Sub 

Private Sub lstFiles_SelectedlndexChangied(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles IstFiles. Selected IndexChanged 
' HiSn thj thing tin vS file dupe chon 

IblFilelnfo.Text = "Length: ’ & IstFiles.SelectedValue.ToString 

End Sub , , ... . .. 

Private Sub lstMultiSelect_SelectedlndexChanged(ByVal sender As Object, ByVal e 
As System.EventArgs) Handles IstMultiSelect.SelectedlndexChanged 

' HiSn thi danh sach cac phin tit dupe chon 
’ Thudc tinh Selectedlndices tri vi dSi tupng SelectedlndexCotlection. 

' Sit dt^ng phi/dng thitc CopyTo cua no dS chip cac phin tit vao 
‘ mot mang dS co thS kSt danh sach cAc phin tit dupe chgn vio ListBox. 

Try 

Dim alndices(lstMultiSelect.Selectedlndices.Count -1) As Integer 
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lstMultiSelect.Selectedlndices.CopyTo(alndices, 0) 
IstSelected.DataSource = alndices 


' Duyet qua danh sach cac phan tit diidc chon 
With IstSelectedltems 
.Items.Clear() 

' Begin/EndUpdate bit/tit hi£n thj cua control khi dang them 
' cac phan tit. ChldS thiy viec cap nhat Iqi rd rdng hdn. 

.BeginUpdateO 
Dim fi As Filetnfo 

For Each fi in IstMultiSelect.SelectedltemS 
. Items. Add(fi.Name) 

Next 

.EndllpdateQ 

End With ' : ; ,v 

Catch exp As Exception 
IstSelected.DataSource s Nothing 
End Try 

End Sub " ‘ ' V " v " y ' 

Private Sub lstProcessesAddltem_$el8dtedlndexChdnged(ByVal sender As 
System.Object. ByVai e As System.EveotArgs) HfthdteS * 
IstProcessesAddltem.SelectedlndexChanged 

' Bdi v) khdng sit dqng thuQc tfnh DataSource cua control, ndn khdng thS l£y thuQc 
' tlnh SelectedValue. Thay vdo dd, sCf dyng thu$c tlnh Selectedltem. 

T ry 

IbIFileNamel.Text = CType(tstProcessesAddltam:Selectedltem, _ 

Process). MainModule.FileName 

Catch exp As Exception 

' Khdng Idm g) ci nSu cd bit ky exception ndoxiyja 
IbIFileNamel .Text = String.Empty 
End Try 

End Sub 

Private Sub lstProcessesDataSource_SelectedlndexChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
IstProcessesDataSource.SelectedlndexChanged 
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Try 

lblFileName2.Text = CType(lstProcessesDataSource.SelectedValue, _ 

ProcessModule).FileName 

Catch exp As Exception 
lblFileName2.Text = String.Empty 
End Try 
End Sub 

Private Sub nudDropDownltems_ValueChanged(ByVal sender As Object, ByVal e 
As System.EventArgs) Handles nudDropDownltems.ValueChanged 
cboDemo.MaxDropDownftems = Clnt{nudDropDownltems. Value) 

End Sub 

Private Sub nudDropDownWidth_ValueChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles nudDropDownWidth.ValueChanged 
cboDemo.DropDownWidth = Clnt(nudDropDownWidth.Value) 

End Sub 

Private Sub Addltems() 

' Co thSm thim tCtng phin tit v&o mpt listbox ho&c combobox. 

' Bdi v) ta cd thS thim bit ky kiiu dii tUQng ndo, vi tuy vio ta sit - 
' dyrig thupc tint} ni q cua dii tUpng 64 bi4p Jhj., Quy djnh thuPc th\h 
' DisplayMember dS chi djnh tin cua thuQc t(nh mufn hUrt thj- 
* Trong trUdng hop niy, suf dong thuQc tlnh ProcessMame dihiin thj 

Try 

Dim prc As Process 

’ Loot bd tit ci c&c phin tit da co ra khdi control 
IstProcessesAddltem.ltems.ClearO 

' Cho dtf liSu vio control. Chi dinh thinh phin nio se dupe hien thj 
IstProcessesAddltem.DisplayMember - "ProcessName’ 

For Each prc In Process.GetProcessesO 
IstProcessesAddltem. Items.Add(prc) 

Next 

IstProcessesAddltem.Sorted = True 
Catch exp As Exception 
MessageBox.Show{exp.Message, Me.Text) 

End Try 
End Sub 
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Private Sub BindToArrayO 

' KS't vho mdt ming kha don giin - chi can gan v£o thudc tinh 
’ DataSourrce cua control. Trong trudng hop ndy, cung co th£ sCl 
' dung thudc tinh ValueMember . 

Try 

Dim prc As Process 
With IstProcessesDataSource 
.ValueMember = “MainModule" 

.DisptayMember = “ProcessName* 

DataSource = Process.GetProcessesQ 
End With 

Catch exp As Exception 
MessageBox.Show(exp.Message, Me.Text) 

End Try 
End Sub 

Private Sub BindToDataSet() 

Try 

' Ki't vdo mot DataTable 
Dim ds As New DataSetO 

' SqlDataAdapterl l£y dd lieu til bing Products trong database 
' Northwind trSn SQL Server 
SqlDataAdapterl .Fill(ds) 
cboDemo.ValueMember = “ProductlD" 
cboDemo.DisplayMember = “ProductName* 
cboDemo.DataSource = ds.Tables(O) 

Catch exp As Exception 
MessageBox.Show(exp.Message, Me.Text) 

End Try ■ 

End Sub 

Private Sub FillSelectionModeO 
Try 

Dim di As New Directorylnfo(*C:\“) 

With IstMuitiSelect 
.DisplayMember = “Name" 
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.ValueMember = 'Length" 

.DataSource = dLGetFiles() 

' Khdi tgo combobox chita cac kieu chon khac nhau 
cboSelectionMode.Text = .SelectionMode.ToString 
End With 

Catch exp As Exception 
MessageBox.Show(exp.Message, Me.Text) 

End Try 
End Sub >■ 

Private Function FillTable(ByVal Path As String) As DataTable 
’ XAy dt/ng mQt DataTable chila thdng tin ve cac file tren dTa ciing 
Dim dt As New DataTable() 

Dim dr As DataRow 
Try 

dt.Columns.Add("FileName", GetType(System.String)) 
dt.Colun|ps.Add("Length', GetType(System.lnt64)) 

* Class Directory Info trong namespace System. 10 
Dim di As New Directorylnfo(Path) 

' L£y thdng tin tSft ci cAc file khdng co lhudc tinh System, Hidden 

Dim fi As Filelnfo 

For Each fi In di.GetFiles() 

If (fi.Attributes And (FileAttributes.Hidden Or FileAttributes.System)) = 0 Then 
dr = dt.NewRowQ 
dr('FileName’) = fi.Name 
dr('Length') = fi.Length 
dt.Rows.Add(dr) 

End If 
Next 

Catch exp As Exception 
MessageBox.Show(exp.Message, Me.Text) 

End Try 

Return dt 
End Function 
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Private Sub LoadValues() 

’' Cho cac kieu ch<?n co thS vio cboSelectionMode. 

' cboSelectionMode. DataSource = _ 

' System. Enum. GetNames(GetType(SelectionMode)) 
cboDropDownStyle. DataSource = _ 

System.Enum.GetNames(GetType(ComboBoxStyle)) 

' Quin ly cac thuoc tinh cua cboDemo 
With nudDropDownWidth 
.Value = cboDemo. DropDownWidth 
.Minimum = cboDemo.Width 
.Maximum = cboDemo.Width * 2 
End With 

nudDropDownltems.Value = cboDemo.MaxDropDownltems 
End Sub 

Private Sub TabControl1_SelectedlndexChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles TabControll.SelectedlndexChanged 
' Bio dam la danh sich cac phin t\i dupe chpn dupe xoa khi rdi khoi tab 
IstSelected.DataSource = Nothing 
End Sub 
End Class 


14. Stf dung cac menu 

Chtfcmg trinh nay bieu diln edeh suf dung ede menu trong ede tfng dung 
Windows. 
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Cac control va cac thuoc tinh chfnh: 


ThuOc tmh 


Name 


IsMdiContainer 


Menu 




StatusBar 


MainMenu 




MergeType 

Text 



Menultem (View 


MergeOrder 



Menu Item (Window I 
Cascade) 


Text 


(Name) 


Gia trj 


frmMain 


True 


mnuMain 


sbarEdit 


mnuMain 


mnuFile 


Merqeltems 

&File 


mnuNew 


Mergeltems 

&New 


mnuExit 

10 


E&xit 


mnuView 


10 


Add 


&View 


mnuStatusBar 


True 


&Status Bar 


mnuWindow 


True 


20 


Add 


&Window 


mnuCascade 

&Cascade 


mnuTitleVertical 


Title &Vertical 


mnuTitleHorizontal 


Title &Horizontal 
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Text 

&File 

Menultem (File 1 Save) 

(Name) ' 

mnuSave 


MergeOrder 

2 


MergeType 

Mergeltems 


Text 

&Save 

Menultem (File 1 Print) 

(Name) 

mnliPrint 


MergeOrder 

3 


MergeType 

Mergeltems 


Text 

&Print 

Menultem (Edit) 

(Name) 

mnuEdit 


MergeOrder 

5 


Text 

&Edit 

Menultem (Edit 1 Undo) 

(Name) 

mnuUndo 


Text 

&Undo 

Menultem (Edit 1 Cut) 

(Name) 

mnuCut 


Shortcut 

CtrIX 


Text 

Cu&t 

Menultem (Edit 1 Copy) 

(Name) 

mnuCopy 


Shortcut 

CtrIC 


Text 

&Copy 

Menultem (Edit 1 Paste) 

(Name) 

mnuPaste 


Shortcut 

CtrlV 


Text 

&Paste 

Menultem (Edit 1 Text Size) 

(Name) 

mnuSize 


Text 

Text &Size 

Text Size 1 Small 

(Name) 

mnuSmall 


Checked 

True 


RadioCheck 

True 


Text 

&Small 

Text Size 1 Medium 

(Name) 

mnuMedium 


Checked 

True 


RadioCheck 

True 


Text 

&Medium 

Text Size 1 Large 

(Name) 

mnuLarge 


Checked 

True 


RadioCheck 

True 


Text 

&Large 


Cac chute nana chfnh: 

Chufcfng trinh ndy cho phdp suf dung control MainMenu trong ngur cdnh Id 
mot ufng dung MDI don gidn. Chiidng trinh suf dung hdu het cdc tlnh n&ng luc 
thiet ke cua control MainMenu, ke cd trpn menu, viet code cdc sir ki$n 
(Popup, Select, vd Click). Ta cung tim hi^u cdch suf dung cdc thuoc tinh 
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MdiList, RadioCheck, vd Checked. Ngodi ra, chuong trinh cbn bieu diln cdch 
xur ly nhidu sir kipn, hidn thi tren thanh trang thdi thdng tin ve cdc menu,... 

Chifcfng trinh ndy cho thdy dune nhiPu tinh ndng thu vi cua cdc menu vd 
thanh edng cu trong cdc umg dung Windows: 

> Trpn cdc menu item cd trong ckc form con vdi form cha. Xem ckc thupc 
tlnh MergeOrder vd MergeType. Mpt sd menu dupe them vdo menu cha 
(vi du menu Edit tren fmnEdit) vd mpt sd khde dupe trpn vdi menu cha 
(vi du: ckc phdn tuf trong menu Edit). Xdt ckc thupc tinh MergeType vd 
MergeOrder cua cdc menu File tr&n frmMain vk frmEdit. Thupc tinh 
MergeType dupe gdn Id Mergeltems, nghia 1 k menu File tren frmMain 
trpn vdi cdc phdn tur trong menu File cua frmEdit. Menu Edit tren 
frmEdit cd thupc tinh MergeType cd gid tri la Add - nghia la menu Edit 
cua n6 dupe them vdo menu cua form cha. Thuoc tinh MergeOrder didu 
khien vi tri cdc phdn tur dupe trpn trong cau true menu. Cdc gid tri cua 
thuoc tinh ndy c6 li&n quan ddn nhau, nhung gid tri thuc su thi khdng 
quan trong, hgoai trir trong mPi quan he vpi cdc phan tur khde. Tr£n 
frmMain, menu File I New cd MergeOrder Id 0, vd menu File I Exit c6 
MergeOder Id 10. Tren frmEdit, gid tri ndy cua menu File I Save Id 2, 
File I Print Id 3. Ode duPng phan tdeh c6 gid.tri Id 1 vd 4. Khi chon File 

I New trong form chinh, form con xuat hipn, vd cdc menu cua n6 trOn 
vdi menu File eda form chinh, vd menu Edit dupe th£m vdo form chinh. 
Thupc tinh MergeOrder cua menu chinh trong form cha la 0, 10, 20, 

30, 40. Menu Edit tr£n frmEdit c6 thuoc tinh MergeOrder cd gid tri Id 5. 
Khi form con dupe chon, menu Edit xudt hien giUa hai menu dau tien 
cua form cha (bdi yi 5 lPn hon 0 vd nho hern 10). 

> Su kien Popup eda menu xdy ra khi menu chudn bi xud't hien. Su kipn 
ndy cho phdp quydt dinh cdp phdp suf dung cdc menu con. Xdt menu 
File cua frmMain vd menu Edit cua frmEdit, m5i menu suf dung mpt su 
kien Popup dd cho phdp vd khong cho phdp suf dung cdc phdn tur trong 
menu. 

> Menu Window c6 thupc tinh MdiList dupe gdn gid tri la True, cho nen 
no hien thi mpt danh sdeh cdc cufa s<5 con. 

> Mpt so menu c6 cdc phim tdt (menu Edit cua frmEdit). co the hidn thi 
hodc dn thdng tin ndy bdng edeh suf dung thupc tinh ShowShortCut. 

> Mpt phdn tur cua mpt menu c6 the dupe chon 1dm phdn tur mac nhidn 
th&ng qua thupc tinh Defaultltem. Xem menu File i New tren form 
chinh. 

> Menu ViewlStatus Bar suf dung menu ddnh dau de bat hodc tdt hien thi 
thanh trang thdi. Xem thu tuc mnuView_Popup d! biet edeh ddnh dau 
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mot menu. Xem thu tuc mnuStatusBar_Click d$ th&y cdch chuyen doi 
trang thdi. 

> XlT ly cdc menu RadioCheck thi phu thuOc vko code. Menu Edit I Text 
Size cho ph6p chon cdc kfch thurdc font. Chon mot phfin tur thi ph&i 
ddnh d£u nd v& x6a ddnh dd'u cdc phdn tuf c6n lai. 

> C6 th£ thay ddi thuQC tinh Text cua m$t menu v&o bdT ky luc n&o. Xem 
xur 1^ cua mnullndo trong frmEdit (thu tuc HahdleEditltems). 

Project: Su dung Menu 

frmMain.vb 

Option Strict On 

Public Class frmMain 
Inherits System.Windows.Forms.Form 

* Code phat sinh form 6ddc bo qua 

Private Sub mnuCascade_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuCascade.Click 
Me.LayoutMdi(MdiLayout.Cascade) 

End Sub 

Private Sub mnuNew_Click(ByVal sender As System.Object, ByVa! e As 
System.EventArgs) Handles mnuNew.Click 
' ThUc hiSn tao mdt form con mdi 
AddNew() 

End Sub 

Private Sub AddNew() 

Try 

Dim frm As New frm£dit() 

Static intChild As Integer 
intChild += 1 
frm.MdiParent = Me 
frm.Text = ‘Child ‘ & intChild 
frm.Show() 

Catch exp As Exception 
MessageBox.Show(exp.Message, Me.Text) 

End Try 
End Sub 
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Private Sub mnuStatusBar_Click(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles mnuStatusBar.Click 
' B$t/t£t hien thi thanh trang thai 

Dim blnShow As Boolean = Not mnuStatusBar.Checked 
mnuStatusBar. Checked = blnShow 
sbarEdit.Visible = blnShow 
End Sub 

Private Sub mnuTileHorizontal_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuTileHori 2 ontal.Click 
Me.LayoutMdi(MdiLayout.TileHorizontal) 

End Sub 

Private Sub mnuTileVertical_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuTileVertical.Click 
Me.LayoutMdi(MdiLayout.TileVertical) 

End Sub 

Private Sub mnuView_Popup(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles mnuView.Popup 
' Xdc dinh trgng thai cua menu StatusBar 
mnuStatusBar.Checked = sbarEdit.Visible 
End Sub 

Private Sub mnuWindow_Popup(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles mnuWindow.Popup 

' Enable/disable cac menu trong menu Window 
Dim blnEnable As Boolean = (Me.MdiChildren.Length > 0) 
mnuCascade.Enabled = blnEnable 
mnuTileHorizontal. Enabled = blnEnable 
mnuTileVertical.Enabled = blnEnable 
End Sub 

Private Sub ClearStatus(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuCascade.Click, mnuExit.Click, mnuFile.Click, 
mnuNew.Click, mnuStatusBar.Click, mnuTileHorizontal.Click, mnuTileVertical.Click, 
mnuView.Click, mnuWindow.Click 

' Sau khi chgn mot menu, xoa ndi dung tren thanh trang thai 
ClearStatusBar() 

End Sub 
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Public Sub CiearStatusBar() 
sbarEdit.Text = String.Empty 
End Sub 

Private Sub HandleSelect(ByVa! sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuStatusBar.Select, mnuCascade.Select, 
mnuExit.Select, mnuNew.Select, mnuTileHorizontal.Select, mnuTileVertical.Select, 
mnuFile.Select, mnuView.Select, mnuWindow.Select 
Dim strText As String 
If sender Is mnuStatusBar Then 
strText = ‘Toggle display of the status bar" 

Elself sender Is mnuCascade Then 
strText = "Cascade child windows" 

Elself sender Is mnuExit Then 
strText = "Exit demonstration" 

Elself sender Is mnuNew Then 
strText = "Create new child window" 

Elself sender Is mnuTileHorizontal Then 
strText = "Tile windows horizontally" 

Elself sender Is mnuTileVertical Then 
strText = "Tile windows vertically" 

Else 

strText = String. Empty 
End If 

WriteToStatusBar(strText) 

End Sub 

Public Sub WriteToStatusBar(ByVal Text As String) 

' Thu tuc n£y Public die cac form con co the goi no 
sbarEdit.Text = Text 
End Sub 
End Class 

frmEdit.vb 

• Public Class frmEdit 

Inherits System.Windows Forms.Form 

‘Code phat sinh form dupe bo qua 
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Private Enum FontSize 
Small = 8 
Medium = 12 
Large - 16 
End Enum 

Private mblnModified As Boolean = False 

Private Sub mnuCopy_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuCopy.Click 
Copy() 

End Sub 

Private Sub mnuCut_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuCut.Click 
Cut() 

End Sub 

Private Sub mnuEdit_Popup(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles mnuEdit.Popup 
HandleEditltemsO 
End Sub 

Private Sub mnuFile_Popup(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuFile.Popup 
HandleFileltemsO 
End Sub 

Private Sub mnuLarge_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuLarge.Click 
SetLargeFont() 

End Sub 

Private Sub mnuMedium_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuMedium.Click 
SetMediumFontQ 
End Sub 

Private Sub mnuPaste_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuPaste.Click 
PasteQ 
End Sub 
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Private Sub mnuPrint_Ctick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuPrint.Click 
Print() 

End Sub 

Private Sub mnuSave_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuSave.Click 
Save() 

End Sub 

Private Sub mnuSmall_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuSmall.Click 
SetSmallFont() 

End Sub 

Private Sub mnuUndo_C!ick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuUndo.Click 
Undo() 

End Sub 

Private Sub txtEdit_ModifiedChanged(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles IxtEdit.ModifiedChanged 

' Khi TextBox co sij thay doi, thay d6i gia trj mblnModified 
mblnModified = True 
End Sub 

Private Sub ClearStatus(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handies mnuCopy.Click, mnuCut.Click, mnuEdit.Click, 
mnuFile.Click, mnuLarge.Click, mnuMedium.Click, mnuPaste.Click, mnuPrint.Click, 
mnuSave.Click, mnuSize.Click, mnuSmall.Click, mnuUndo.Click 
ClearStatusBar() 

End Sub 

Private Sub ClearStatusBar() 

Try 

CType(Me.ParentForm, frmMain).CIearStatusBar() 

Catch • 

' Khdng lAm gi ci 
End Try 
End Sub 
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Public Sub Copy() 
txtEdit.CopyO 
End Sub 

Public Sub Cut() 
txtEdit.Cut() 

End Sub 

Private Sub HandleEditltemsQ 

’ Xic djnh c6 cho phep stir dung cic menu Cut/Copy/Paste 

' Paste dupe cho phip khi ddi tUQng Clipboard chiia vin bin 
Dim iData As IDataObject = Clipboard.GetDataObject() 
mnuPaste. Enabled = iData.GetDataPresent(GetType(String)) 

' Cut vi Copy dugc cho phip ndu cd vin bin dupc chpn trong TextBox 
Dim blnEnable As Boolean = (txtEdit.SelectedText.Length > 0) 
mnuCut.Enabled = blnEnable 
mnuCopy.Enabled = blnEnable 

* Xii ly Undo 

If txtEdit.CanUndo Then 
mnuUndo.Text = *&Undo* 
mnuUndo. Enabled = True 
Else 

mnuUndo.Text =‘Nothing to Undo* 
mnuUndo.Enabled = False 
End If 
End Sub 

Private Sub HandleFileltems() 

mnuPrint.Enabled = (txtEdit.Text.Length > 0) 
mnuSave.Enabled = mblnModified 


End Sub 
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Private Sub HandleStatus(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuSave.Select, mnuCopy.Select, mnuCut.Select, 
mnuLarge.Select, mnuMedium.Select, rrmuSmall.Select, mnuPrint.Select, 
mnuPaste.Select, mnuUndo.Select, mnuSize.Select, mnuEdit.Select, 
mnuFile.Select 

Dim strText As String 
If sender Is mnuSave Then 

strText = ‘Save the current contents’ 

Elself sender Is mnuCopy Then 

strText = ‘Copy selected text to the clipboard* 

Elself sender Is mnuCut Then 

strText = ‘Cut selected text to the clipboard’ 

Elself sender Is mnuLarge Then 
strText = ‘Display text using large font* 

Elself sender Is mnuMedium Then 
strText = ‘Display text using medium font - 
Elself sender Is mnuSmslI Then 

strText = ‘Display text using small font - 
Elself sender Is mnu^rinf Then 
strText = ‘Print the current contents* 

Elself sender Is mnuPaste Then 
strT ext = ‘Paste the contents of the clipboard" 

Elself sender is mnullndb Then 
strText = ‘Undo changes to contents* 

Else 

strText = String,Empty 
End If 

CType(Me.ParentForm, frmMain).WriteToStatusBar(strText) 

End Sub 

Public Sub Paste() 
txtEdit.Paste() 

End Sub 

Public Sub Print() 

MessageBox.Show(‘Add code to print your document here", Me.Text) 

End Sub 
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Public Sub SaveO 

MessageBox.Showf Add code to save your document here", Me.Text) 
End Sub 

Public Sub SetLargeFont() 

SetSize(FontSize. Large) 

End Sub 

Public Sub SetMediumFontO 
SetSize(FontSize. Medium) 

End Sub 

Public Sub SetSmaflFontO 
SetSize( FontSize. Small) 

End Sub 

Private Sub SetSize(ByVal Size As FontSize) 

Dim fnt As New Font(txtEdit.Font.FontFamily, CType(Size, Integer)) 
txtEditFont = fnt 

' Xoa danh diu tit ci 
mnuSmall. Checked = False 
mnuMedium.Checked = False 
mnuLarge.Checked = False 
’ Danh diu phin ft? thfch hpp 
Select Case Size 
Case FontSize.Small 

mnuSmall.Checked = True 
Case FontSize.Medium 

mnuMedium. Checked = True 

Case FontSize.Large -> 

mnuLarge.Checked = True 
End Select 
End Sub 

Public Sub Undo() 
txtEdit.Undo() 

End Sub 
End Class 
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15. Quan ly nhieu form c&p cao nhltt (Top-Level) 

Biiu diin mqt ufng dung cd nhiiu form tuung tu nhu Microsoft Word. 



frtii 



.« 1 — 1*1 

3 


Changes 


Fk«i> 

Changes nart to tauvad. 


zl 

A 


Cac chute n|rm chfnh: 

> Nhiiu ting dung vdi nhiiu eufa si tii li$u {mii cufft s 6 md mot 

t 4 i H$u>, duuc hiln thj nhu 14 e$c eda si eip cao nhit (Top Level) xuSft 
hi#n trong danh sdch c 4 c t 4 c vu (Task List). Biiu nhy cho phip ngudi 
suf dung nh&n AM + Tali di chuyin qua lai giufa c4c thi Ii£u nhtf 14 chung 
duuc md trong cdc tjin trinh kh£c nhau, nhung thuc su khdng ph&i nhu 
v£y. ChUUng trinh n&y cung hoat dqng nhu trdn. 

> Khi ufng dyng bit diu, thing qua Sub Main trong class Forms, n6 tao 
m$t form instance mdi bang cdch goi phuong thutc New Form ciia class 
v4 them form laky v&o t$p hup cdc form. Ngay khi form d&u tidn duuc 
tao, d5ng l$nh Application.Run duuc goi di b^t dau tiin trinh ilng dung 
chinh dl khi d 6 ng form diu tidn thi khdng thodt umg dung. M 5 i t4i lieu 
c6 m^t menu item File I New. Nhan v4o menu goi thu tuc 

Forms.NewForm di md m0t t4i ligu mdi gid'ng nhu l&m trong Sub 
Main. 

> C4c form cdn cd cdc menu item File I Close va File I Exit. Chon File 1 
Colse di bdt d4u ddng tidn trinh. Moi form ch6 mot su kign ddng form 
ridng di cho phdp kiim tra ndi dung c6 thay doi hay chua (thdng qua 
thu0c tinh Dirty), neu cd thi hdi c6 luu lai hay khdng. 
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Project: Quan ly nhieu Top-Level Form 

frmMain.vb 

Option Strict On 
Public Class frmMain 
Inherits System.Windows.Forms.Form 

‘ CAc si/ kien n&y dik/c sCt dyng di thdng bao cho class Forms khi 
' ngudi sCf di/ng huy thao tac Save trong si/ ki$n FormjClosing hodc 
' khi chQn Exit tit menu File . 

Public Event SaveWhileClosingCancelled As System.EventHandler 
Public Event ExitApplieation As System.EventHandler 

Private m_Dirty As Boolean = False 
Private m_ClosingComplete As Boolean = False 
Private m_DocumentName As String 
Private m_FileName As String 

' Code ph&t sinh form dtlr/c bd qua 

Public Readonly Property Clo$ingCo / mpleie() As Boolean 
Get . ' • ; 

Return m_ClosingComplete i' 

End Get 
End Property 

M ’ ■ , ' { 

Public Readonly Property DocumentName() As String 
Get 

Return m_DocumentName 
End Get 
End Property 

Public Property Dirty() As Boolean 
* Thudc tinh nay dung d£ xac djnh c6 h/u lai di7 HSu trudc khi thoat 
Get 

Return m_Dirty 
End Get 
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Set(ByVal Value As Boolean) 

If Value Then 

If Not Me.Text.EndsWithC*") Then 
Me.Text = Me.Text & 

Me.sbDoclnfo.Text= “Changes need to be saved." 

End If 

Else '.i 

Me.sbDoclnfo.Text * *Ready* 

‘ X6a d&u * 

Me.Text = Me.Text.S«to4trErtg(0, (Me.Text.Length -1)) 

End If 

m_Dlrty =*. Value 
End Set 
End Property 

Public Property FileNameO As String 
Get 

Return m_FileName 
End Get 

Set(ByVal Value As String) 
m_FileNam© 3 Value, ~: v , - . , 

m_DocumentName s _ . e *■?:. 

SystomJp.Pal|j.GatpeJ(aipeWiWiou4Extension(rn_FileName) 

Me.Text * •,'*>* 

End Set 
End Property 

Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As 
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing 
■ Tty 

’ Gan gi& trj cho thuQc tlnh m_ClosingComplete bang True 64 
' class Forms bi4t let c6 thi loai bo no ra khdi tip hpp c£c form. 
m_ClosingComplete = True 

If Me.Dirty Then 

1 Hdi ngifdi stir dung Luu (Yes), khdng li/u (No), ho$c ngting vi$c dong form (Cancel). 
Dim strDocTitle As String 
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If Me.Text. EndsWith(“*) Then 
strDocTitle = Me.Text.Substring(0, (MeText.Length -1)) 

Else 

strDocTitle = Me.Text -i. 

End If 7 'v 

Dim strMsg As String * StringFwmatCDp you went to savefO)?*, strDocTitle) 

. . f, ■ . 

Select Case MessageBox.Sfcow^etiMsg, XStetang", _ 

l^«a§e@osiSyttem . YesVi^SMfbsl, _ ' ■ ■ - i .V . 
MessageSoxtoon.Exclamation, _ *■ .. . 

Mess^-i^aexOein ia tt B e tl Ph.BMMnf) : } s v ’u- •.■ 

Case DialogResutt. Yes 
1 Ufa l&i ti$u 
Me.SaveD©cument() 

Case DialogResUft.Ne 
* Kh6ng ttfu vd thrift 
' V&t Ihdm code A d&y 
Case DialogBesutt. Cancel 
’ DCtng vt$c ddng lorn 
e.Cancel = True 

‘ NSu hijy vide ddng form, cAn 6i nd trong Ujp hpp ric Forms 
m_ClosingComplete = False 

' PhAt s inh m$t st/ ki$n 6$ ting timg khdngddng ric Hi H$u khdc 
RaiseEvent SaveWhileCtosingCancelted(Me, Nothing) 

End Select 
End If 

Catch exp As Exception 

Message8ox.Show(exp.Message, exp.Source, _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 
End Sub 

Private Sub mnuExit_C!ick(ByVa! sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuExit.Click 
1 ThoAt ting dyng 

RaiseEvent ExitApplication(Me, Nothing) 

End Sub 
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Private Sub mnuNew_Click(ByVal sender As System.Object, ByVal e As- 
System.EventArgs) Handles mngtyew.Click 
‘ Create a new document instoace 
Forms.NewForm() 

End Sub 

Private Sub mnuSave_Cfick{SyVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuSave.Click 
Me.SaveDocument() 

End Sub t 

Private Sub mnuClose_Click(ByVal sender As System.Object, ByVal e As 
System .EventArgs) Handles mrtuCbse!£lick 
Me.CloseQ 
End Sub 

Private Sub bctData_TextChanged(ByVar sender As Object, ByVal "e As 
System.EventArgs) Handles txtOata.TextChanged 
' N&u n$i dung dupe thay d&i, gin thupc tfnh Dirty cua form li True 
Me. Dirty = True 
End Sub 

Private Sub SaveDocument() 

' Doyn code niy khdng thi/c hiin hJu file thy si/ 

Try 

' Kiim tra tii li$u co thay dSi hay chi/a 
If Me.Dirty Then 

' KiSm tra xem ta da co ten file cua tii lieu chi/a 
If Not Me.FileName Is Nothing Then 
' Litu vio tii liiu da tSn tyi 
Else 

' ChUa c6 tin file, hdi ngudi sCf dyng nh$p vio tin file. 

' SCt dyng cac hip thoyi thing dyng 

' Tyo m&t tin file di/a vio tin cua tii li$u vi dUdng din cua Ling dyng hi$n hinh 
Me.FileName = AppDomain.CurrentDomain.BaseDirectory Saved" & Me.Text 
End If 

' Khi tii li$u da dupe kfu, khdi tyo lai gia tri cua Dirty 
Me.Dirty = False 
End tf 
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Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 


End Try 
End Sub 
End Class 


Public Class Forms * 

‘ Tip hop niy dung d4 quin fy danh s&ch cic forrn Ui li$u. 
Private Shared m.Forms As New ColleclibfK) 


' f •; • - ;i'• ' i , Vv/ T> - '» - yi i 

* Bien d4m ddrig dS t$o cic twi 8$ . 


Private Shared m_FormsCreated As integer. * 0 
* ThuQc tinh niy ding d4 quy&t djnh dting vi$c tho& tfng dung it6u 


-Jr 


u*. 


* ngt/di stir dgng cfign Cancel trin h$p thogihdi c6 hlu {Save) hsykhdng. 

Private Shared.cn_CancelExjtAsBooiean »F^lsf % k , :tt v , 

' Dupe stfdgng <S4ktffn fra c6 dang $ trong qvk&nti the#* i i.& 

Private Shared m^ShutdowpinProgressAs Bool^ap A ^e^f ' 1?JW ,-s 


' S6 form hi$n dang dilpc md 
Public Shared Readonly Property Count() As Ihteger 
Get 

Return m_Forms.Count 
End Get 
End Property 


Public Shared Sub MainQ 
’ Md cita s6 tii li$u d£u tiin 
‘ Try 


Forms.NewForm() 

Catch exp As Exception 
' Khi c6 vin dS 

MessageBox.ShowCSorry, we were unable to load a document. Good Bye.", 
•Application Main", MessageBoxButtons.OK, MessageBoxIcon.Error) 
Application. Exit() 

End Try 
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' Quy djnh tier) tr'inh chinh chay bdn ngoai sd diSu khien cua mot form cu th£ de khi 
' dong mdt tai lieu th'i khdng thodt todn bd chddng trinh. 

Application.Run() 

End Sub 

Public Shared Sub NewFormQ 
Try 

Forms.m_FormsCreated += 1 
Dim frm As New frmMain() 

frm.Text = "Document" & Forms.m_FormsCreated.ToString() 
m_Forms.Add(frm ( frm.GetHashCode.ToStringO) 

' Moc (hook) sd kiSn Closed cua form d£ ta biet 
' khi dong cda $6 tdi lieu 

AddHandler frm.Closed, AddressOf Forms.frmMain__Closed 

' Hook sd kien SaveWhileClosingCancelled de ta biS't ngddi si? 

’ dgng co nhSin nut Cacel khi dupe hdi Idu. 

AddHandler frm.SaveWhileClosingCancelled, AddressOf 
Forms. frmMain_SaveWhileClosingCancelled 

' Hook si/ kien ExitApplication de biet ngddi sd dgng co muon 
’ thodt todn b$ chddng trinh bhng each chon menu Exit td mdt cda so tdi lie 
AddHandler frm.ExitApplication, AddressOf Forms.frmMain_ExitAppiication 

' Hien thi form 
frm.Show() 

Catch exp As Exception 

MessageBox.Show{exp.Message, exp.Source, MessageBoxButtons.OK, 
MessageBoxIcon.Error) 

If Forms.Count = 0 Then 

' Day Idi qua cho Main dS co th£ thoat chddng trinh 
Throw exp 
End If 
End Try 


End Sub 
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Private Shared Sub FormClosed(ByVal frm As frmMain) 

* Lo$i bd form da du/Qc ddng ra kh6i tip hpp 
m_Forms.Remove{frm.GetHastiCode.ToString()) 

’ Neu khdng con form nio, thoit chUdng trinh 
If m_Forms.Count = 0 Then 
Application.Exit() 

End If 
End Sub 

Public Shared Sub ExitApp() 

Try 

m_ShutdownlnProgress = True 
’ Thoat khi tit ci cic form da dUpc ddng 
Dim frm As frmMain 
Dim i As Integer f ' 

' Duyit qua tip hpp tCfng form m$t, ra Idnh cho mSi form ti/ dong. 

' Chi hdi hfu l$i khi form c6 dung difpc thay d6i. Niu ngUdi sCf 
' dong chon Cancel th\ khdng ddng form d6. 1 
For i = m_Forms. Count To 1'Step -1 v ' v '' r 
frm = CType(m_Forms(i), frmMalrt) 

If frm.Dirty Then 
frm.Close() 

End If f 

' KiSm tra biin cd (flag) di biSt ngUdi sd dong cd ddng vide thoit chUdng trinh 
If m_CancelExit = True Then 
m_CancelExit = False 
Exit Sub 
End If 
Next 

' Dong tit ca cac tii lieu khdng cd thay d6i n$i dung. 

If m_Forms.Count > 0 Then 
For i = m_Forrhs.Count To 1 Step -1 
frm = CType(m_Forms(i), frmMain) 
frm.Close() 

Next 
End If 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, 
MessageBoxIcon.Error) 
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Application.Exit() 

Finally 

m_ShutdownlnProgress = False 
End Try 
End Sub 

Private Shared Sub frmMain_Ctosed(ByVal sender As Object, ByVal e As 
System.EventArgs) 

Try ' 

’ Ta b£t si/ ki&n My khi m6t forni d£ ho&ri tit v$c ddng 
Dim frm As frmMain = CType(sender, frmMain) 


* HOy cAc event handier d$ thSm vAo luc tgo. 

RemoveHandter ♦rm.Cioi^ T AddressOf Forms.frmMain_Closed 
! RemcjveHdndlerliTO.Sa^yVliiteClosingCancened, AddressOf _ 

; Forms.frmMain.SaveWhiieClosingCancelled 
RemoveHandler frm.EKttAppHcaiion, AddressOf Forms.frmMain„ExitApplication 
1 Gpi Mm d 4 don d$p 
Forms.FormCiosed(fiTO) 

Catch exp As Exception 

1 MessageBox.Show (exp. Message, exp.Source, MessageSoxButtons.OK, 
MessageBoxIcon.Error) 

End Try 
End Sub 

Private Shared Sub frmMain_SaveWhi!eClosingCancelled(ByVa! sender As Object, 
ByVal e As System.EventArgs) 

' Si/ ki$n n&y se duqc bit niu ngi/di suf di/ng chgn Cancel khi dUQc hdi hfu. 

If m_ShutdownlnProgress Then 
' Chi cin thay d£i gia trj cua biin bSn trong tip hpp 
Forms. m_CancelExit = True 
End If 
End Sub 

Private Shared Sub frmMain_ExitApplication(ByVal sender As Object, ByVal e As 
System; Event Args) 

* Si/ kiSn n&y diipc bit khi ngUdi stidi/ng chQn menu Exit 
Forms.ExitAppO 
End Sub 
End Class 
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16. Sii dung Keo va Tha (Drag and Drop) 

Trong chiftfng trinh n&y ta hoc cdch suf dung chute ndng kdo vd thd vdi 
Visual Basic .NET, 

suf dung chute ndng ndy, cac control phdi c6 thu$c tinh AllowOi^pp^True. 



Cac chile nd 


Churang trinh n&y c6 ba vl du vl kdo vd thd: 

> Tir mpt TextBox vdohai TextBox khde, m<?t trong hai TextBox c6 thu^c 
tinh AllowDrop = False edm thd vdo nd. 

> Tif mpt TreeVlew vdo mpt TreeView khde, bilu di§n cdch di chuy^n ede 
node tii Tree View ndy sang TreeView khde. 

> Tif m§t PictureBox sang mpt PictureBox khde, bieu dien cdch sao chdp 
dnh tif mot control ndy sang mot control khde. 








141 


- Coding T'-ehmqiK-. — 


C6 th£ thifc hien sao ch6p (Copy) ho&o di ehttyln (Move) khi k£o vk th&. 
B£ Copy nh&'n v& giff phim Ctrl trong khi k£o. Khi l&m nhtf v$y, chu $ con 
tro chi Copy-Drop (hinh chuf nh4t Vil d&u +). Con tr& Move chi cd.hinh chflr 
nh&t. j . ... . .. • 

Chu y: Dur li$u c6 thl Dhag diibc cd thi 1& irt$t instance cua class String, 
Bitmap, ho&c MetaFile, hoSc m§t ddi tucmg c6 citi dftt cdc interface 
I Serializable hodc iDataOPject. ^ 

Phi§n bin hi$n h&nh khdng cho ph6p gin thuQc tinh AilowDrop cua 
PictureBox trfin trtnh thi£t k£, do d6 ph&i gin trong code. 

Project: Su Dung Drag and Drop 

frmMain.vb 

• Option Strict On 

• Public Class frmMain 

Inherits System.Windows.Forms.Form 
‘ Code phat sinh form diiQc bo qua 

‘ Hkng s6 sCf dung de phat hien co nhin phim Ctrl trong qua tr'inh keo 
Const CtrlMask As Byte = 8 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.load 
' Khdng co each nao de quy djnh thuoc tinh AilowDrop cho 
‘ PictureBox trong trinh thiet k&, do dd phai vi£t code. 
picLeft. AilowDrop = True 
picRight.AllowDrop = True 
End Sub 

' XiS ly si/ kien MouseDown cho TextBox bin trai. 

Private Sub TextBoxLeft_MouseDown(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.MouseEventArgs) Handles txtLeft.MouseDown 

If e.Button = MouseButtons.Left Then 
txtLeft. SelectAHO 
1 Gqi hinh ddng drag and drop 

txtLeft.DoDragDrop(txtLeft.SelectedText, DragDropEffects.Move Or 
DragDropEffects.Copy) 

End If 
End Sub 
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' XCf iy st/ ki&n DragDrop cho TextBox d dudi phfa bin phU. St/ k$n 

' niy tht/c hien khi th£ nut chu6t, k£t thuc thao tdc drag and drop 

Private Sub TextBoxLowerRight_DragDrop(ByVal sender As> System. Object, ByVai 

e As System.Windows.Forms.DragEventArgs) Handles txtLowerRight.DragDrop 

txtLowerRight.Text = e,Data.GetData(DataFormets^e>rt):ToStjr(rtg !t , ; 

■ r .. . i-i .(■ d i . 

* NSu khdng nh£n phim Ctrl, xda n$i dung nguSn cftf tht/c b&n df chuy4n. . 

If (e.KeyState AndCtrlMask) <> CtriMask. Then v.. 

txtLeft.Text = \ , . r ’ .1: 

End If 

'!■ l,--ft ,4- ’ ■ I i- 

End Sub 

‘ Xtjf ly st/ k$n DragEnter cho TextBox & dud*, Mn phM. Sykifn ndy - r *‘ 

' dupe gpi khi cd mpt d6i tupng dt/pc kdo vdo trongkhung cua contra? 

Private Sub TextBoxLowerRight_DragEntef(ByVst sender As Object, ByVal 

e As System Windows. Forms. DragEventArgs) Haftdted brtt cwSifl1 giht.Cheggnter 

' KiSm tra ndi dung kio vio lit hpp 1$. NSu khdng th) khdng cho thi 
If (e Data.GetDataPresent(DataFormats.Text)) Theiv 1 ’ h 

' NSu phlm Ctrl dupe nhin trong god trlrth k&o thl tht/c hrfti Copy. ' ■ 

' Neu khdng, thi/c hi^n Move. C .jj . ■ 

If (e.KeyState And CtriMask) = CtriMask Then • '•‘~- 

e.Effect = DragDropEffects.Copy ■ 1 1 

Else ; ’ -*< 

e.Effect = DragDropEffects. Move 
End If ’ 

Else 

e.Effect = DragDropEffects.None 
End If 

End Sub • ■ 

' Xii ly st/ ki$n MouseDown cho cic control PictureBox. 

Private Sub PictureBox_MouseDown(ByVaJ sender AsSystem.Obfect, ByVal e As 
System.Windows.Forms.MouseEventArgs) Handles picLeft.MouseDown, 
picRight.MouseDown 
If e.Button = MouseButtons.Left Then 
Dim pic As PictureBox = CType(sender, PictureBox) 

GqI thao tac drag and drop 
If Not pic. Image Is Nothing Then 

pic.DoDragDrop(pic.Image, DragDropEffects.Move Or DragDropEffects.Copy) 
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End if 
End j) 

End Sub 

' XiS ly si/ kien DragEnter cho cAc PictureBox. 

Private Sub PictureBox_DragEnter(ByVal sender As System.Object, ByVal e As 
System.WindowS. Forms: DragEventArgs) Handles picLeft.DragEnter, 
picRight.DragEnter 

‘ KiSm tra tlnhhgp cue hdi dung keo vAo 
If (e.Data.Getf)afePfe|ient(DataFofmats.Bitmap)) Then 
' KiSm tra c6 rtbJo CtrL 

If (e.KeySttirtei AndMftdMask) = CtrlMask Then 
e. Effect = DragDropEffects.Copy 
Else 

e. Effect = DragDropEffects.Move 
End If - , . d 

Else , f T ■ 

e. Effect = DragDropEftecte*None 

End If . 1 ‘, 

End Sub > 

. ■; -j . r • ; . y ■ 

' Xfir ty si/ ki£n DragDrop cho cA hai PictureBox. MQt thu tyc co the 
' dung cho hai PictureBox. Mnft cAch <$p kjSu sender vA kiSmtra 
' thu$c tinh Name d&&Ac dtnbcoatroi ndocAn lo$iP6 h)nh Anh. 

Private Sub PictureBoau$rag&fOp(B$VafSender As System.Object, ByVal e As 
System.Windows.Forms.DragEventArgs) Handles piqLeft. Drag Drop, 
pic Right. DragDrop r ^ , 

Dim pic As PictureBox = CType(sender, PictureBox) 

pic.Image = CType(e.Data.GetData(DataForma|s.Bitmap), Bitmap) 

' L&m cho h'mh Anh trong PictureBox khAc di/pc lo$i t>6 n&u khdng co nhan Ctrl. 
If (e.KeyState And CtrlMask) <> CtrlMask Then 
If pic.Name = *picLeft“ Then 
picRight. Image = Nothing 
Else 

picLeft. Image = Nothing 
End If 
End If 


End Sub 
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’ Xu'r ly si/ kien DragDrop cho ci hai control TreeView 

Private Sub TreeView_DragDrop(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.DragEventArgs) Handles tvwLeft.DragDrop, 
tvwRight.DragDrop 

' Khdi tao biin ddng 6$ chda node dupe kdo 
Dim OriginationNode As TreeNode = 

CType(e.Data.GetData("System. Windows.Forms.TreeNode"), TreeNode) 

' Gqi GetDataPresent khde di mdt chut d6i vdi TreeView vi TreeNode 
' khdng phii Id mdt thdnh ph£n cua class DataFormats. Nghla Id no 
‘ khdng phii Id m$t kiSu xac djnh trade. V) vay cin dung mot overload khac 
If e.Data.GetDataPresent(*System.Windows.Forms.TreeNode", False) Then 
Dim pt As Point 

Dim DestinationNode As TreeNode 

’ SCf dung PointToClient di tlnh vj tricua chuQt trdn TreeView dtch 
pt = CType(sender, TreeView).PointToClient(New Point(e.X, e.Y)) 

' SCf dung Point ndy di l£y node gin nhit trdn Tree View dkh 
DestinationNode = CType(sender, TreeView).GetNodeAt(pt) 

' Lenh If bao dam Id ngudi sCf dung khdng mdt ede node niu thi 
' chudt khdng dung vj trl hgp Id ; ^ 

If Not DestinationNode.TreeView Is OriginationNodte.TreeView Then 

DestinationNode.Nodes.Add(CType(OriginationNode.Glbfte, TreeNode)) 

' Md node cha khi thdm node mdi di th£y ro kit qui cua thad tdc thi chudt. 
DestinationNode. Expand() 

' Niu khdng co nh£n phim Ctrl, loai bd node g£c 
If (e.KeyState And CtrlMask) <> CtrlMask Then 
OriginationNode. Remove() 

End If 
End If 
End If 
End Sub 

' Xii ly si/ kien DragEnter cho ci hai control TreeView. 

Private Sub TreeView_DragEnter(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.DragEventArgs) Handles tvwRight.DragEnter, 
tvwLeft. DragEnter 

' Kiim tra tlnh hpp le cua ndi dung dugc keo 

If (e.Data.GetDataPresent("System.Windows.Forms.TreeNode")) Then 
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' Kiem tra co nhan Ctrl 

If (e.KeyState And CtrlMask) = CtrlMask Then 
e.Effect = DragDropEffects.Copy 
Else 

e.Effect = DragDropEffects.Move 
End If 
Else 

e.Effect = DragDropEffects.None 
End If 
End Sub 

' Xti ly stf kien Item Drag cho ca hai control TreeView 

Private Sub TreeView_ltemDrag{ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.ItemDragEventArgs) Handles tvwRight.ltemDrag, 
tvwLeft.ltemDrag 

If e.Button = MouseButtons.Left Then 
’ Gqi thao tac drag and drop 

DoDragDrop(e.ltem, DragDropEffects.Move Or DragDropEffects.Copy) 

End If 
End Sub 
End Class 

17. Thtta ke Windows Forms 
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VI du nky cho bi£t ckch sb dung thira k£ Windows Forms. M<jt Form thgc 
sii chi la mot class, giong vdi tat ca ckc class khkc trong .NET, ngoai trir 116 
co kha nkng hien thi true quan cho ngirdi sur dung. Be suf dung ki&u thira ke 
nay chi dcm gikn tao mot class c 6 ngu 6 n goc tir mot class tao ra form 
System.Windows. Forms.Form. 

Cac chufc nana chfnh: 

Chuong trinh nky sur dung frmMain d£ goi hai form khkc dirge phkt sinh tir 
frmBase.vb: frmDataGrid vk frmRichTextBox. Ckc class nky thira ke tir class 
frmBase bao gom mpt Label, m§t Button, vk ckc thupc tinh anh hudng den 
ckch trinh bky cba form, vk mpt hkm trk v£ mpt DataSet. Form dirge phkt 
sinh se thkm vko viing d giufa mOt DataGrid hokc mpt TextBox, hien thi cung 
mpt DataSet. 

Hai Label khkc dirge suf dung, vdi thu^c tinh Text lk mot chuoi trdng, vk 
dirge dkt tren frmBase. MQt dirge khai bko lk Protected vk cki cbn lai Ik 
Private. (Ckc control dirge dkt vko form bkng Visual Studio Designer dirge 
khai bko mkc nhikn lk Friend). Trkn ckc form dirge thira k£, thuf truy xuk't d£h 
ckc thknh phkn cua timg Label. Chu f lk chi c6 Label khai bko lk Protected 
mbi truy xuat dirge. 

Yeu cau: Sur dung database Northwind trong SQL Server hokc MSDE. 

De xem dirge ckc form phkt sinh tir frmBase trong trinh thikt k£, ckn phai 
bien dich project. N£u mb form thira k£ trtfbc khi bikn dich thi dbng nd, bidn 

i . ' ^. * " ? g , 

dich, vk md lai. '* • • 

Project: Thua ke Windows Forms 

frmMain.vb 

■ Option Strict On 

• Public Class frmMain 

Inherits System.Windows.Forms,Form 

■ ' Code phat sinh form dupe bo qua 

Private Sub btnShowDataGridForm_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnShowDataGridForm.Click 
Dim frmDG As New frmDataGridO 
frmDG.Show() 

End Sub 
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Private Sub btnShowRichTextBoxForm_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles btnShowRichTextBoxForm.Click 
Dim frmRTB As New frmRichTextBox() 
frmRTB.Show() 

End Sub 
End Class 

frmBase.vb 

Option Strict On 

■ Imports System.Data.SqlClient 
Public Class frmBase 
Inherits System .Windows, Forms.Form 

Protected Const SQL_CONNECTION_STRING As String = _ 

"Server=localhost;* & _ 

“DataBase=Northwind;‘ & _ 

“Integrated Security=SSPI“ 

Protected Const MSDE_CONNECTION_STRING As String = _ 
*Server=(local)\NetSDK;' & _ 

“DataBase=Northwind;“ & _ 

“Integrated Security^SSPI* 

Protected Const CONNECTION_ERROR_MSG As String = _ 

“To run this sample, you must have SQL or MSDE.“ 

Protected DidPreviouslyConnect As Boolean = False 

Protected DidCreateTable As Boolean = False 

Protected connectionstring As String = SQL_CONNECTION_STRING 

• ’ Code phit sinh form dUQc bd qua 

Protected Function GetDataSourceO As DataSet 
Static Connectionstring As String = SQL_CONNECTION_STRING 
Static DidPreviouslyConnect As Boolean = False 

Dim frmStatusMessage As New frmStatus() 

If Not DidPreviouslyConnect Then 
frmStatusMessage.ShowfConnecting to SQL Server") 

End If 
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Dim IsConnecting As Boolean = True 
While IsConnecting 

Try 

Dim cnNorthwind As New SqlConnection(ConnectionString) 

Dim da As New SqlDataAdapter( _ 

"SELECT ProductID, ProductName, UnitPrice, UnitsInStock ‘ & _ 

“FROM products*, cnNorthwind) 

Dim ds Products As New DataSet() 

da.Fill(dsProducts, “Products*) 

IsConnecting = False 
DidPreviouslyConnect = True 
frmStatusMessage.Close() t 

Return dsProducts 

Catch exc As Exception 

If ConnectionString = SQL_CONNEGTlON_STRING Then 
Connectionstring = MSDE_CONN£CTlON_STRlNG 
frmStatusMessage.Show(“Connecting to MSDE") 

Else 

frmStatusMessage.Close() 

MessageBox.Show("To run this sample, you must have SQL or MSDE.*, 
“Connection Problem", MessageBoxButtons.OK, MessageBoxIcon.Error) 
End 
End If 
End Try 
End While 

frmStatusMessage.CloseO 

End Function 
■ End Class 
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frmDataGrid.vb 

Option Strict On 
Public Class frmDataGrid 
Inherits frmBase 

’ Code phdt sinh form dilQc bd qua 

Private Sub btnClose_Click(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles btnClose.Click 
Me.Close() 

End Sub 

Private Sub frmDataGrtdJtoad(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles-MyBase.load 

With dgProducts 

.CaptionText = “Northwind Products" 

DataSource = GetDataSource().Tables(0) 

End With 

' Sti dung d6i tUQng TableStyte &§ Ap dying djnh d$ng pho DataGrid. 
Dim dgTableStylel As New D&ta6ridTableStyle() 

With dgTableStylel 

AlternatingBackColor-Color.Lavender . 

BackColor = Color.WhiteSmoke 
ForeColor = Color.MidnlghtBlue 
GridLineColor = Color.Galnsboro 

.GridLineStyle = System.WindowsForms.DataGrfdLineStyle.None 

.HeaderBackColor = ColorMidnightBlue 

.HeaderFont = New FontCTahoma", 8.01, FontStyle.Bold) 

.HeaderForeColor = Color. WhiteSmoke 

.LinkColor = Color.Teal 

.MappingName = "Products" 

.SelectionBackColor = Color.CadetBlue 
.SelectionForeColor = Color.WhiteSmoke 
End With 


' SCt dung ddi tupng ColumnStyle de dinh dang cho m6i cdt 
Dim grdColStylel As New DataGridTextBoxColumnQ 
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With grdColStylel 
.HeaderText = "ID#“ 

.MappingName = “ProductID" 

.Width = 50 
End With 

Dim grdColStyle2 As New DataGridTextBoxColumn() 

With grdCo!Style2 
.HeaderText ='Name" 

.MappingName = ’ProductName" 

.Width = 225 
End With 

Dim grdColStyle3 As New DataGridTextBoxColumn() 

With grdCo!Style3 
.HeaderText = "Price" 

MappingName * "UnitPrice" 

.Width = 70 
End With 

Dim grdColStyle4 As New DataGridTextBoxColumnO 
With grdColStyle4 
.HeaderText = "# in Stock* 

.MappingName = "UnitsInStock" 

.Width a 70 
End With 

dgTableStylel .GridColumn^tyles.AddRange _ 

(New DataGridColumnStyleO _ 

{grdColStylel, grdColStyle2, grdColStyle3, grdColStyle4}) 
dgProducts.TableStyles.Add(dgTabieStylet) 

' Gan tUa di vko Label thCla k4 
IbITitle.Text = "Inherited Form with DataGrid" 

End Sub 


End Class 
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frmRichTextBox.vb 

Option Strict On 
Imports System.Text 

Public Class IrmRichTextBox 
Inherits frmBase 

' Code phat sinh form duoc bo qua 

Private Sub btnClose_Click(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles btnClose.Click 
Me.Ctose() 

End Sub 

Private Sub frmRichTextBox_Load(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

' L£y DataSet 1 : 

Dim ds As DataSet = GetDataSourceQ W-w ■ 

' Thay vi suf dyng gh6p chudi thdng thi/dng, sit dpng class 
‘ StringBuilder dS t6i Uu vi$c gh£p chudi. 

Dim sb As New StringBuilder() 

' Dong d£u I Am ti/a dScAc cQt 

sb.Append(‘ , ====================?====—======«:====='') 

sb.Append(vbCrLf) 

sb.Append(*ID“) 

sb.Append(vbTab) 

sb.Append(“Name“) 

sb.Append(vbCrLf) 

Sb.Append('st==2!*=*===:================:=:==:======:======“) 

sb.Append(vbCrLf) 

' DuySt qua cAc ddng trong DataSet vA n6i chung bang StringBuilder 
Dim dr As DataRow 
For Each dr In ds.Tables{0).Rows 
sb.Append(drfProductlD')) 
sb.Append(vbTab) _ 
sb.Append{drCProductName“)) 
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sb.Append(vbCrLf) 

Next 

' ChuySn noi dung trong StringBuider sang Text de hien thj trong RichTextBox 

rtbProducts.Text = sb.ToString 

fbITitle.Text = "Inherited Form with RichTextBox" 

End Sub 
• End Class 


18. Kiem tra tinh hcfp 1§ cua cac TextBox 
(Validating TextBox) 

Chucrng trinh ndy bi&j di&n cdch tao mot tap cdc TextBox vdi cdc muc 
dlch cu the chi d£ nh&p cdc kilu duf lipu d&c bipt. VI du cdc TextBox nhap 
cdc dia chi email, cdc dia chi IP, sd' di$n thoai,.... Nd'u ngudi suf dung nh£p 
n^i dung v&o TextBox nhimg khdng dung vdi dinh dang duf lipu thi noi dung 
se chuydn sang m&u dd. 

M6i TextBox deu thira k£ mpt class ccf sd RegExTextBox. Class n&y ki£m 
tra tinh hcrp 1$ ciia npi dung theo mpt bi£u thufc. 


RgjKiem (ra tfnh hdp le cua dO lieu 


Regular Expression(5 Digit US Zip Code) jl2525 

E-Mai Addles* | abc^mfrvrxnm. com 

IP Addiess j 123.321 123.321 

Social Security Number J123456783 

US Phone Nisnbat . joDOTlI 1 vTT 

The lotowing conlfok have invaid values: 

rexPhone:The phone number rousi be in the form of [555] 555-1212 or 

555-555-1212 

rexS*n:The *odal security number mud be in the form of 555555555 
rexIpAddre**: The IP addiets mud be in the form of 111111,111.111 


dyjBate—j 


Cac chufc rtana chinh: 

> Thira k£ dupe suf dung thay doi edeh hoat dpng cua mpt control dS c6 
(TextBox). 

> Khi ngudi suf dung nh&n vdo nut "Validate", chucfng trinh duy$t qua ede 
control M tim t£t cd control RegExTextBox v& dp ki&i n6 vd dang ca 
sd de goi phufong thufc IsValid. 
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Project: Validating TextBoxes 
RegExTextBox.vb 

Option Strict On 

Imports System.Text.RegularExpressions 

Public Class RegExTextBox 
Inherits System.Windows.Forms.TextBox 

’ Chudi d$i diSn cho RegEx se dddc sd dpng de kiem tra noi dung 
' ben trong TextBox. 

Protected validationPattern As String 
' Chudi thdng bao khi ndi dung khong dung theo miu. 

Protected mErrorMessage As String 
' Dd'i tUdng RegEx dUdc sd dyng dS thUc hien kiem tra 
Protected mValidationExpression As Regex 
' Mau m£c nhien se sd dung khi n6i dung khong dung 
Protected mErrorColor As Color = Color.Red 

' Cho phep ngudi lap trinh quy dinh chudi thong bao Idi vao luc thiet 
' ke hoac luc dang chay. 

Public Property ErrorMessageQ As String 
Get 

Return mErrorMessage 
End Get 

Set(ByVal Value As String) 
mErrorMessage = Value 
End Set 
End Property 

' Neu noi dung khong phu hpp vdi RegEx, no se chuyen sang mau ndy 
Public Property ErrorColorQ As Color 
Get 

Return mErrorColor 
End Get 

Set(ByVal Value As Color) 
mErrorColor = Value 
End Set 
End Property 




' Cho phep ngi/di lip trinh xac djnh dupe noi dung trong TextBox cd 
' dung hay khdng. 

Public Readonly Property lsValid{) As Boolean 
Get 

If Not mValidationExpression Is Nothing Then 
Return mValidationExpression.lsMatch(Me.Text) 

Else 

Return True 
End If 
End Get 
End Property 

' Cho phep chi djnh regular expression (li mdt chuSi) se dope sit 
' dung de kiem tra tinh hdp le cua vin bin bin trong TextBox. 

Public Property ValidationExpressionQ As String 
Get 

Return validationPattern 
End Get 

Set(ByVal Value As String) 
mValidationExpression = New Regex(Value) 
validationPattern = Value 
End Set 
End Property 

* NSu dO liiu khdng phu hdp vdi RegEx, th'i doi mau cua van ban sang ErrorColor 
Protected Overrides Sub OnValidated(ByVal e As System.EventArgs) 

If Not Me.lsValid Then 
Me.ForeColor = mErrorColor 
Else 

Me.ForeColor = Me.DefauitForeColor 
End If 

' Bit cd khi nio thda ki‘ mdt control, vi override mdt trong cac thu 
’ tuc On..., cin phii goi phddng thde On... cua I6p cd sd. 

MyBase.OnValidated(e) 

End Sub 
End Class 
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EMailTextBox.vb 

Option Strict On 
Public Class EMailTextBox 

’ Cac textbox thda ke RegExTextBox tie kiim tra ndi dung bin trong 
' no co thda mdt regular expression. 

Inherits RegExTextBox 

Public Sub New() 

MyBase.New() 

InitializeCompohentQ 

' Quy djnh gia tri cho ValidationExpression di control ndy kiim tra 
' tfnh hqp 16 cua ndi dung ben trong TextBox phii 16 dia chi email. 
Me.ValidationExpression = “ A ([a-zA-Z0-9_\-l)([a-zA-ZO-9_\-\.]*)®(\[((25[0-5]l2[O- 

4] [0-9]l1 [0-9][0-9]l[1-9][0-9]l[0-9])\.){3}l((([a-zA-ZO-9\-]+)\.)+))([a-zA-Z]{2,}l(25[0- 

5] I2[0-4][0-9]I1 [0-9][0-9]l[1-9][0-9]l[0-9])\])$“ 

Me.ErrorMessage = "The e-mail address must be in the form of 
abc <Smicrosoft.com" 

End Sub 

• ' Code phat sinh difdc bd qua 
End Class 

IPAddressTextBox.vb 

Option Strict On 

• Public Class IPAddressTextBox 

Inherits RegExTextBox 
Public Sub New() 

MyBase.NewQ 

lnitializeComponent() 

' Quy djnh gia tri mac nhien cho ValidationExpression de control 
' ndy se kiim tra ndi dung bdn trong no la mot dia chi IP. 
Me.ValidationExpression = “^((25[0-5]I2[0-4][0-9]11 [0-9][0-9]l[1-9][0-9]l[0- 
9])\.){3}(25[0-5]l2[0-4][0-9]l1 [0-9][0-9]l[1 -9][0-9]II0-9])$‘ 

Me.ErrorMessage = “The IP address must be in the form of 111.111.111.111“ 
End Sub 

- ' Code phat sinh di/dc bd qua 

• End Class 
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PhoneTextBox.vb 

Option Strict On 

■ Public Class PhoneTextBox 

Inherits RegExTextBox 
Public Sub New() 

MyBase,New() 

lnitializeComponent() 

' Quy dinh gid trj m$c nhidn cho ValidationExpression de control ndy o 
' kiem tra noi dung bSn trong la mot $6’ dien thopi 

Me. ValidationExpression = " A ((\(\d{3}\) ?)l(\d{3}-))?\d{3}-\d{4}$* 
Me.ErrorMessage = ‘The phone number must be in the form of,(555) 555-1212 or 
555-555-1212.“ 

End Sub T 

■ ’ code phat sinh dupe bd qua 

■ End Class 

SsnTextBox.vb 

Option Strict On 

Public Class SsnTextBox 
Inherits RegExTextBox 
Public Sub New() 

MyBase.New() 

lnitializeComponent() 

' Quy dinh gia trj m$c nhien cho ValidationExpression ' 

Me.ValidationExpression = " A \d{3}-\d{2}-\d{4}$" 

Me.ErrorMessage = "The social security number must be In the form of 555-55- 
5555" 

End Sub 

■ ' Code phat sinh dupe bo qua 
End Class 

frmMain.vb 

• Option Strict On 

• Public Class frmMain 

Inherits System.Windows.Forms.Form 


• ' Code phat sinh form dupe bd qua 
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Private Sub Button 1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button 1 Click 
' Sr) dung di duyet qua tit ci cic control trin form 
Dim genericControl As Control 

' LUu thdng bio se hiin thj cho ngUdi suf dung bii't cac control chifa 
' noi dung khdng hqfp Ip. 

Dim validationMessage As String 

' Duyet qua tit ca cac control cd trin form 
For Each genericControl In Controls 

’ Niu control hiin hdnh Id mdt RegExTextBox, hope thCta ki RegExTextBox 
If TypeOf genericControl Is RegExTextBox Then 
' Ep kieu no thinh kiSu RegExTextBox. Kieu nay cho phep sCf 
' dyng thuoc tlnh Is Valid. 

Dim regExControl As RegExTextBox = CType(genericControl, RegExTextBox) 

' Niu ndi dung bin trong control khdng hqp li, thi cho control 
' niy vao danh sach cic control khdng hdp le. 

If Not regExControl.IsValid Then 
validationMessage &= regExControl.Name & V & _ 
regExControl.ErrorMessage & vbCrLf 
End If 
End If 
Next 

' Cd control nio chifa noi dung khdng hpp le khdng? 

If validationMessage <> ** Then 
’ Xu it thdng bao ra hdp vin ban. 

txtlnvalidControis.Text = "The following controls have invalid values : “ & vbCrLf & 
validationMessage 
Else 

’ Neu khdng co, thdng bao moi thif hdp le 
txtlnvalidControis.Text = "All controls contain valid input" 

End If 

End Sub 
£nd Class 
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19. T if ve Menu 


Bieu dien cdch tao c4c menu item theo $ rieng cua ngudi lap trinh. 


gjTexlM enu _ BBS 


r™ ...* 

■ Chooie a Font 


XitTiesNewRoman 

Courier New 



|§j§lcon Menu . : : -:;e EHj»]E 3 


! Fie 

QjwnCtri+O 
H s»v»ctii+s 





A 


Cac chufc nana chinh: 

> C£ch tao menu chda v&n b3n theo kieu rieng, 

> Cdch tao menu c6 m&u n£n bien thien v& bi£u tnong b&n canh. 

Project: Tu ve Menu 

IconMenultem.vb 

■ Imports System 

• Imports System.ComponentModel 

■ Imports System.Drawing 

■ Imports System.Drawing.Drawing2D 
Imports System.Drawing.Text 

■ Imports System,Reflection 
Imports System.Resources 

■ Imports System.Windows.Forms 

Public Class IconMenultem : Inherits Menultem 
Private m_lcon As Icon 
Private m_Font As Font 

' Mac nhien cac gia trj niy la gii trj cua he thd'ng. Diiu niy cho ph&p miu thich hpp 
' dupe hien thj khi ngUdi suf dung thay d6i thong s6 miu sic h'tin thj. 

' Cac gia tri niy co the override bing each gQi bd khdi tao tUdng ting cho class niy 
Private m_Gradient„Color1 As Color = SystemColors.Highlight 
Private m_Gradient_Color2 As Color = SystemColors.Control 
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Public Sub New() 

MyClass.New( H “, Nothing, Nothing, System.Windows.Forms.Shortcut.None) 
End Sub 

Public Sub New(ByVal text As String, ByVal icon As Icon, ByVal onClick As 
EventHandler, ByVal shortcut As Shortcut) 

MyBase.New(text, onClick, shortcut) 

' Thu6c tinh Owner Draw cho phep thay doi menuitem bang each xit ly 
' OnMeasureltem va OnDrawItem 
OwnerDraw = True 

m_Font = New FontfTimes New Roman“, 8) 
m Jeon = icon 
End Sub 


' Bo khdi tao nay cho phep quy dinh mhu nen bien thiSn tren menuitem 
Public Sub New(ByVal text As String, ByVal GradientColorl As 
System.Drawing.Color, ByVal GradientColor2 As System.Drawing.Color, ByVal icon 
As Icon, ByVal onClick As EventHandler, ByVal shortcut As Shortcut) 
MyBase.New(text, onClick, shortcut) 

' Thuoc tinh quan trong de co the tU ve menu 
OwnerDraw = True 

m_Font = New Font(‘'Times New Roman", 8) 
m_Gradient_Color1 = GradientColorl 
m_Gradient_Color2 = GradientColor2 
m_lcon - icon 
End Sub 

Private Function GetRealTextQ As String 
Dim s As String = Text 
' Noi them phin phim tat neu co 
If ShowShortcut And Shortcut <> Shortcut.None Then 

’ De nhan dUoc chudi chi gia tri cua Shortcut, ep kieu no thanh mdt gia 
1 tri Keys va stf dung class KeysConverter 
Dim k As Keys = CType(Shortcut, Keys) 
s = s & Convert.ToChar(9) & _ 

TypeDescriptor.GetConverter(GetType(Keys)).ConvertToString(k) 

End if 
Return s 
End Function 
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' 

' \i 

Protected Overrides Sub Or\D raw Item (ByVal e As DrawItemEventArgs) ; 

' OnDrawItem thUc hien cdng viec tht/c sd ve menu sau khi hoin tit cac thing s6 ' 
MyBase.OnDrawltem(e) 

Dim br As Brush 

If Not m_lcon Is Nothing Then 

e.Graphics.Drawlcon(m_lcon, e.Bounds.Left + 2, e.Bounds.Top + 2) 

End If 

Dim rcBk As Rectangle = e.Bounds 
rcBk.X += 22 

’ Ve mau nen cho menuitem vdi mot mau biS'n thien, 

If CBool(e.State And DrawItemState.Selected) Then 

br = New LinearGradientBrush(rcBk, m_Gradient_Color1, m_Gradient_Color2 ( 0) 
Else t 

br = SystemBrushes.Control 
End If 

' Ve hinh chit nhat chinh 
e.Graphlcs.FillRectangle(br, rcBk) 

' ChC/a ch6 trd'ng cho phim tit 
Dim sf As StringFormat = New StrlngFormat() 
sf.HotkeyPrefix = HotkeyPrefix.Show 

' Ve van ban noi dung cua menu 
br = New SolidBrush(e.ForeColor) 
e.Graphics.DrawString(GetRealTextO, m_Font, br, __ 

e.Bounds.Left + 25, e.Bounds.Top + 2, sf) 

End Sub 

Protected Overrides Sub OnMeasureltem(ByVal e As MeasureltemEventArgs) 

' Thu tuc sti kien Measureltem cung vdi st/ kiin OnDrawItem la hai sd kien 
' chinh can thiet can quin ly de tao cac menu rieng. 

' Do chudi tao thanh menuitem va sCt dung no de quy dinh kich thufdc 
' cua menuitem se duoc ve. 
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Dim sf As New StringFormat() 
sf.HotkeyPrefix = HotkeyPrefix.Show 
MyBase.OnMeasureltem(e) 
e.ltemHeight = 22 

e.ltemWidth = Cint(e.Graphics.MeasureString(GetReaUext(), m_Font, 10000, 
sf). Width) +■ 10 

End Sub 
End Class 

frmlconModMenu.vb 

Public Class frmlconModMenu 

Inherits System.Windows.Forms.Form 

' Code phit sinh form dupe bd qua 

Private Sub frmlconModMenu _Load(ByVal sender As System.Object, ByVat e As 
System.EventArgs) Handles MyBase.Load 

’ Cac menuitem cd bin vdi cac biSu tUtfng ben canh 

mnuMain.Menultems.Add(“&File“) 

Dim miFile As Menuitem = mnuMain.Menuitems(O) 

Dim handlerFile As EventHandler = New EventHandler( __ 

AddressOf MenultemFileClick) 

’ Tao cic Menuitem vdi cic biSu tUQng vi miu nSn chuin 
miFile.Menultems.Add(New lconMenultem(*&Open“, New lcon(“..\open.ico"), _ 
handlerFile, Shortcut.CtrlO)) 

miFile.Menultems.Add(New IconMenultemC&SaveV New lcon(\.\save.ico‘), _ 
handlerFile, Shortcut.CtrlS)) 
miFile.Menultems.Add(New Menultemf-")) 

miFile.Menultems.Add(New lconMenultemf&Exit\ New lcon(\Aexit.ico , ‘), _ 
handlerFile, Shortcut.None)) 

' Phin niy t$o cac menuitem vdi cic miu nSn tOy y 

'mnuMain.Menultems.AddC&File") 

'Dim miEdit As Menuitem = mnuMain.Menultems(O) 
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'Dim handler File As EventHandler = New E ventHandler(AddressOf _ 

' MenultemFileClick) 

'miEditMenultems.Add(New lconMenultem(”&Open", Color.LightBlue, Color. Yellow, _ 
' New lcon( H ..\open.ico"), handlerFile, ShortcutCtrlO)) 

‘miEdit.Menultems.Add(New lconMenultem( n &Save", Color.LightBlue, Color.Yellow, _ 
‘ New lcon( M ..\save.ico M ), handlerFile, Shortcut.CtrlS)) 

‘miEdit. Menultems.AddfNew Menultem(“-")) 

'miEdit.Menultems.Add(New lconMenultem( H &Exit H , Color.LightBlue, Color.Yellow, _ 

' New IconC.AexiUco"), handlerFile, Shortcut.None)) 

End Sub 

Private Sub MenuitemFileClick(ByVal sender As Object, ByVal e As EventArgs) 
Select Case CType(sender, Menultem).Index 
Case 0 'Open 

MessageBox.Show(‘You selected open") 

Case 1 ' Save 

MessageBox,Show(*You selected save”) 

Case 3 ' Exit 

Close() 

End Select 
End Sub 
End Class 

f rmT extModMenu. vb 

Public Class frmTextModMenu 
Inherits System.Windows.Forms.Form 

Const pointSize As Integer = 18 < 

Private miFaceName As Menultem 
* ' Code phat sinh form dupe bd qua 

' VI dq niy ve m$t menu chCia ba menuitem vdi vin bin tuy bi£n. Cic menultem 
’ dupe ve vdi klch thi/dc phu hyp vdi vin bin cd trin menuitem. 

Private Sub frmTextModMenu_Load(By Val sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

' Tao menu chlnh vi thim cac menuitem vio menu 
mnuMain.Menultems.Addf&Choose a Font") 
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Dim menultemsText() As String = {“&TimesNewRoman\ *&Courier New\ *&MS 
Sans Serif*} 

Dim menultems(menultemsText.Length - 1) As Menultem 
Dim menultemCount As Integer = Clnt(menultems.Length) 

Dim evOnClick As New EventHandler(AddressOf MenuFaceNameOnClick) 

Dim evOnMeasure As New MeasureltemEventHandler(AddressOf 
MenuFaceNameOnMeasureltem) 

Dim evDrawItem As New DrawltemEventHandler(AddressOf 
MenuFaceNameOnDrawItem) 

Dim i As Integer = 0 

For i = 0 To menultemCount -1 Step 1 

menultems(i) = New MenultemtmenultemsText(i)) 

* Cho phip cic Stf ki$n OnMeasureltem vi OnDrawnltem 
menultems(i).OwnerDraw = True 
' TMm cic thii tyc xCf ly cac menuitem 
AddHandler menultems(i).CIick, evOnClick 
AddHandler menuJtems(i).Measureltem, evOnMeasure 
AddHandler me$uUems(i).Drawltem, evDrawItem 
Next 

mnuMain.MetttH^r^&(^M 0 nultems.AddRange(menultems) 

End Sub * ; ? V( a- , - 

Private Sub MenuPaceNameOnClick(ByVal sender As Object, ByVal e As 
EventArgs) 

* Chi don giin cho ngtfdi stf dung bi&t da chqn menuitem nio. 
miFaceName =CType(sender, Menultem) 
miFaceName.Checked = True 

MessageBox.ShowfMenu Clicked: * & miFaceName.Text.Substring(l)) 

End Sub . 

Private Sub MenuFaceNameOnMeasureitem(ByVal sender As Object, ByVal miea 
As MeasureltemEventArgs) 

‘ Stf ki$n Measureltem vi OnDrawItem li hai stf kiSn chinh cin quin ly dS 
' tyo cic menu ri§ng. 

Dim mi As Menultem = CTypejsender, Menultem) 

Dim f As New Font(mi.Text.Substring(1), pointSize) 

* Do chuSi d4 xic dinh kich kich thudc cua menuitem dUtfc ve 
Dim siF As SizeF = miea.Graphics.MeasureString(mi.Text, f) 
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miea.ItemWidth = Clnt(Math.Ceiling(siF.Width)) 
miea.ItemHeight = Clnt(Math.Ceiling(siF.Height)) 
End Sub 


Private Sub MenuFaceNameOnDrawltem(ByVal sender As Object, ByVal diea As 
D rawltem E ventArgs) 

' Sau khi da thiSt l$p kich thi/dc trong si/ kiSn OnMeasureltem, ta c6 thS 
' ti£n h£nh ve menu. 

* MQt d6i ti/png graphics dupe truySn v&o til si/ ki$n OnDrawItem dS sit 
' dung ve menuitem. 

Dim mi As Menuitem = CType(sender, Menuitem) 

Dim grfx As Graphics = diea.Graphics 
Dim br As Brush 

Dim f As New Font(mi.Text.Substring( 1 ), pointSize) 

* Hiin thj phim t£t 

Dim strFrmt As New StringFormat() 
strFrmt.HotkeyPrefix = Drawing.Text.HotkeyPrefix.Show 

Dim rectCheck As Rectangle = diea.Bounds 
Dim d As Double = Systemlnformation.MenuCheckSize.Width * 
rectCheck.Height / Systeminformation.MenuCheckSize.Width 
rectCheck. Width = Clnt(d) 


Dim recText As Rectangle = diea.Bounds 
1 ChCfa ch6 cho diu check 
recText. X += rectCheck. Width 


diea.DrawBackgrbundO 1,4 " J 1 ” 

’ L&m ndi b$t menuitem khi ngudi si7 di/ngdi chuySn chuQt qua n6 
If ((diea.State And DrawltemState.Selected) <> 0) Then 
br = SystemBrushes.HighlightTeXt 5 ; u 

Else , 

br = SystemBrushes.FromSystemColor(SystemColors.MenuText) 


End If 


' ve chuSi chCfa chS cho phim tdt 

grfx.DrawString(mi.Text, f, br, recfext.Left, recText.Top, strFrmt) 
End Sub 
End Class 
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frmMain.vb 

Option Strict On 
Public Class frmMain 
Inherits System. Windows.Forms. Form 

'Code phat sinh form di/pc bd qua 

Private Sub btnTextModMe/iu_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnTextModMenu. Click 
Dim frmText As New frmTextModMenu() 
f rmT ext. ShowDiaiogO 
End Sub 

Private Sub btnlconModMenu_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnlconModMenu.Click 
Dim frmlcon As New frmlconModMenu() 
frmlcon.ShowDiaiogO 
End Sub 
End Class 


20. S vC dung cac ma dinh dang de dinh dang dff 
li$u trong cac chudi. 


Chi/cmg trinh n4y cho thSfy cdch hi£n thi cdc gid tri so, ng4y thdng v4 
bdng li§t k§ nhn 14 cdc chu5i b&ng cdch sir dung cdc code dinh dang chu4n v4 
c4c code dinh dang md r$ng. 
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Cac chufc nana chinh: 

> Hien thi cdc gid tri stf di/dc dinh dang nhif Id cdc chuSi suf dung dinh 
dang chuan vd dinh dang thy bien. Cdch thay dcfr dinh dang dtfa tr§n 
Culture Info duoc chon. 

> Hien thi ckc gik tri ngdy-gid dutoc dinh dang nhu \k ckc chuSi suf dung 
dinh dang chuf£n vd dinh dang tiiy bien. Cdch thay doi dinh dang dua 
trdn Culture Info dune chon. 

> Hidn thi cdc gid tri li$t kd dune dinh dang nhu Id ede chuSi siif dung ma 
dinh dang chu^n. 


Project: Su dung cac ma dinh dang 

frmMaln.vb 

Option Strict On 
Imports System.Threading 
Imports System.Globalization 
Imports System.Text 

Public Class frmMain 
Inherits System.Windows.Porms.Porrri 

' Code phit sinh form dtlQc bd qua ,{ 

1 1 r ‘ ‘ s M , .- . f- - 

’ Class Culture Ik m$t kiiu tOy bidn dupe set dyngdS toft dtfli^u yko mQt 
’ ComboBox. Chu y vi$c stidpng ckc thu& ttotipdbtic tbeychbiikcbi&n 
’ dan thuan. Ta cd thf suf dung efu true sau: 

' Public Class Culture 
’ Public ID As String 

' Public Description As String 

Sub New(ByVal strlD As String, ByVal strDesc As String) 

ID = strlD 

' Description = strDesc 

' End Sub 

' End Class 
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' Tuy nhien, ci'u true ndy phat sinh m6t ngoai le khi chay InvalidArgumentExcepMon 
' cho biet Id nd khdng thS ket vdo DisplayMember mdi. Thudc tinh khdng phAi 
' Id Readonly. 

Public Class Culture 
Private _ID As String 
Private _desc As String 

Sub New(ByVal strDesc As String, ByVal strlD As String) 

_ID = strlD 
_desc - strDesc 
End Sub 

Public Readonly Property ID() As String 
Get 

Return _ID 
End Get 
End Property 

Public Readonly Property Description!) As String 
Get 

Return _desc 
End Get 
End Property 
End Class 

Private crlf As String = ControlChars.CrLf 
Private FormHasLoaded As Boolean = False 
Private strCultureValue As String 
Private tab As String = ControlChars.Tab 

’ GqI phUdng thife hi£n thj cac vi dy dinh d$ng DateTime dt/a tren mdt 
’ Culturelnfo do ngudi sii dung chon. 

Private Sub cboCulturelnfoDateTime_SelectedValueChanged(ByVal sender As 
Object, ByVal e As System.EventArgs) Handles 
cboCulturelnfoDateTime.SelectedlndexChanged 
' Thu tuc ndy chi Idm vi$c chi khi Form da dupe load 
If FormHasLoaded Then 
LoadDateTimeFormatsO 
End If 
End Sub 
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' G(?i phuang thitc hiSn thj cac vi du djnh dang Numeric dpa trin m$t 
' Culturelnfo dt/pc ch<?n. 

Private Sub cboCulturelnfoNumeric_SelectedValueChanged(ByVal sender As 
Object, ByVal e As System. EventArgs) Handles 
cboCulturelnfoNumeric.SelectedlndexChanged 
If FormHasLoaded Then 
LoadNumericFormatsO . 

End If 
End Sub 

' Load c&c control ComboBox tCf mdt ArrayList vA goi cac phiiong thilc hiin thj cdc 
’ vi dp djnh dang. 

Private Sub frmMain_Load(ByVa! sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

' Kdt cac ComboBox vao mdt ArrayList chda cac ddi tUQng. 

Dim arlCulturelnfo As New ArrayList() 

With arlCulturelnfo 

.Add(New CultureCVietnamese - Vietnam", "vi-VN")) 

.Add(New CulturefEnglish - United States", "en-US")) 

.Add(New Culture("English - United Kingdom", "en-GB")) 

.Add(New Culture("English - New Zealand", "en-NZ")) 

.Add(New Culture(“German - Germany", "de-DE")) 

.Add(New CulturefSpanish - Spain", "es-ES")) 

.Add(New Cufture(‘French - France", "fr-FR")) 

.Add(New Culture("Portuguese - Brazil", "pt-BR")) 

.Add(New Culture(‘Malay - Malaysia", "ms-MY")) 

.Add(New CulturefAfrikaans - South Africa", "af-ZA")) 

End With 

cboCulturelnfoDateTime.DataSource = arlCulturelnfo 
cboCulturelnfoDateTime.DisplayMember = "Description" 
cboCulturelnfoDateTime.ValueMember = “ID" 

cboCulturelnfoNumeric.DataSource = arlCulturelnfo 
cboCulturelnfoNumeric.DisplayMember = "Description" 
cboCulturelnfoNumeric.ValueMember = "ID" 


LoadEnumFormatsO 
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LoadDateTimeFormatsO 

LoadNumericFormats() 

FormHasLoaded = True 
End Sub 

’ G<?i pht/dng thtic hiin thj cic vf dy djnh dyng dya trin ngi/di sCt dyng chQn 
' djnh dyng chain (".standard m ) hay tuy biin ("custom"). 

Private Sub RadioButtons_CheckedChanged(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles optStandardNumeric.CheckedChanged, 
optCustomNumeric.CheckedChanged, optCustomDateTime.CheckedChanged, 
optStandardDateTime.CheckedChanged 

If FormHasLoaded Then 

Dim opt AS RadioButton = CType(sender, RadioButton) 

Select Case opt.Marne 

Case "optStandard Numeric", ‘optCustomNumeric* 

LoadN umericFormatsO 

Case "optStandardDateTime", "optCustomDateTime" 

LoadDateTimeFormatsO 
Case Else 
LoadEnumFormats() 

End Select 
End If 
End Sub 

' Hiin thj cic vi dy djnh dyng DataTime 
Private Sub LoadDateTimeFormatsO 
Dim dtmNow As DateTime = Now 
Dim sb As New StringBuilder() 

strCultureValue = cboCulturelnfoDateTime.SelectedValue.ToString 
Thread.CurrentThread.CurrentCulture = New Culturelnfo(strCultureValue) 

sb.Append("When using * & strCultureValue & * Culture Info, today's date and time 
will format as follows:") 
sb.Append(crlf) 
sb.Append(crlf) 

If optStandardDateTime.Checked Then 
With sb 

.Append(dtmNow.ToString(“d‘)) 
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.Appendf [Short date pattern]*) 

.Append(crlf) 

.Append(dtmNow.ToString(*D")) 

.Append(* [Long date pattern] - ) 

.Append(crlf) 

.Append(dtmNow.ToString(T)) 

.Append(" [Short time pattern]*) 

.Append(crlf) 

.Append(dtmNow.ToString(‘T")) 

.Append(" [Long time pattern]*) 

.Append(crlf) 

. Append(dtmNow.T oString("F*)) 

■Append(* [Full date/time pattern (long)]*) 
.Append(crlf) 

.Append(dtmNow.ToString(T)) 

.Append(* [Full date/time pattern (short)]*) 
Append(crlf) 

Append(dtmNow.ToString(*G')) 

Append(" [General date/time pattetn (tong)]*) 
.Append(crlf) 

.Append(dtmNow.ToString(*g")) 

.Append(* [General date/time pattern (short)]*) 
.Append(crlf) 

.Append(dtmNow.ToString(*M")) 

.Append(* [Month day pattern]") 

Append(crlf) 

. Append(dtmNow.T oString(“R*)) 

.Append(* [RFC1123 pattern]*) 

.Append(crlf) 

.Append(dtmNow.ToString(“s')) 

.Append(“ [Sortable date/time pattern]*) 
.Append(crlf) 

.Append(dtmNow.ToString(‘u*)) 

.Append(* [Universable sortable date/time pattern]*) 
Append(crlf) 

.Append(dtmNow.ToString("y*)) 

-Append(* [Year month pattern]") 

.Append(crlf) 

.Append(crlf) 

End With 
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Elself optCustomDateTime.Checked Then 
With sb 

.Append(dtmNow.ToString('d, M*)) 

.AppendC [d, M]“) 

.Append(crlf) 

.Append(dtmNow.ToString(*d MMMM*)) 

.AppendC [d MMMM]*) 

.Append(crlf) 

.Append(dtmNow.ToString('dddd MMMM yy gg“)) 

AppendC [dddd MMMM yy gg]") 

Append(crlf) 

Append(dtmNow.ToString(*h , m: s*)) 

AppendC [h , m: s]") 

.Append(crlf) 

Append(dtmNow.ToStringChh,mm:ss')) 

.AppendC [hh.mnrssn 
.Append(crlf) 

.Append(dtmNow.ToStringCHH-mm-ss-tt")) 

AppendC [HH-mm-ss-tt]") 

Append(crlf) 

.Append(dtmNow.ToStringChh:mm, G\MT z“)) 

.AppendC [hh:mm, G\MT zD 
.Append(crlf) 

.Append(dtmNow.TpString("hh:mm 1 G\MT zzz*)) 

.AppendC [hh:mm, G\MT zzz]‘) 

End With 
End If 

txtDateTime.Text = sb.ToString 
End Sub 

* Hien thi cac vl dtj dinh dang Enum 
Private Sub LoadEnumFormatsO 
Dim day As DayOfWeek = DayOfWeek.Friday 
Dim sb As New StringBuilder() 

Thread.CurrentThread.CurrentCulture = New Culturelnfo{“en-US“) 
■ ; r With sb 

.Append(“When using any Culturelnfo, the system enumeration 
DayOfWeek.Friday will format as follows:*) 
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.Append(crlf) 

.Append(crlf) ; 

.Append(day.ToString(“G“)) 

.Append(" [G or g]‘) 

.Append(crlf) 

Append(day.ToString(*F*)) 

.Append(“ [F or f]") 

.Append(crlf) ; 1 : ? - 

.Append(day.ToString(“D*)) 

.Append(* [Dord]*) 

.Append(crlf) 

.Append(day.ToString(“X")) '" 

AppendC [X or x)‘) " : ■ , ; 

End With ■ ' 

txtEnum.Text = sb.ToString 
End Sub 

' HiSn thj c&c vf dy djnh d$ng Numeric 
Private Sub LoadNumericFormats() 

Dim intNumber As int32 = 1234567890 
Dim sb As New StringBuilder() 

strCuItu revalue = cboCulturelnfoNumeric.SelectedValue.ToString 
Thread.CurrentThread.CurrentCulture = New Culturelnfo(strCultureValue) 
sb.Append(*When using * & strCultureValue & * Culturelnfo, the Integer 
1234567890 will format as follows: 1 ) 
sb.Append(crlf) 
sb. Append (crlf) 

If optStandardNumeric.Checked Then 
With sb 

.Append(intNumber.ToString(*C“)) 

.Append(‘ [Currency]’) 

.Append(crlf) 

.Append(intNumber.ToString(’E’)) 

.Append(’ [Scientific (Exponential)]*) 

.Append(crlf) 

.Append(intNumber.ToString(’P’)) 

.Appendf [Percent]*) 

.Append(crlf) 
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.Append(intNumber.ToString(“N’)) 

Append!" [Number}") 

.Append(crlf) 

.Append(intNumber.ToString("F*)) 

.Append!" [Fixed-point]") 

Append(crlf) 

. Append(intN umber.ToString("X")) 

.Append(" [Hexadecimal]’) 

.Append(crlf) 

.Append(crif) 

End With 

Elself optCustomNumeric.Checked Then 
With sb 

.Append(mtNumber.ToString(‘#####")) 

.Append(" [#####]") 

.Append(crlf) 

.Append(intNumber.ToString(*00000")) 

.Append!" [00000]") 

.Append(crlf) 

.Append(intNumber.ToStririg{"(###) ### - ####")) 
.Append!" [(###) ### - ####]") 

Append(crlf) 

.Append(intNumber.ToString("#.##“)) 

.Append!" [#.##]") 

.Append(crlf) 

.Append(intNumber.ToString('00.00')) 

.Append!" [00.00]*) 

.Append(crlf) 

.Append(intNumber.ToString(*#,#")) 

.Append(" [#,#]’) 

.Append(crlf) 

.Append(intNumber.ToString{"#„")) 

.Append(" [#„]") 

.Append(crlf) 

.Append(intNumber.ToString("#.##")) 

.Append(" [#.##]*) 

.Append(crlf) 

.Append(lntNumber.ToString("#,„")) 

.Append(" [#,..)") 
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.Append(crlf) 

.Append(intNumber.ToString(‘# 1 ##0 1 ,“)) 

.Append^ [#,##0„n 
.Append(crlf) 

.Append(intNumber.ToString(“#0.##%")) 

Append(" [#0.##%]") 

.Append(crlf) 

.Append(intNumber.ToString(‘0.###E+000")) 

.Appendf [0.###E+O00n 
.Append(crlf) 

.App©nd(intNumber.ToString('##;(##)’)) 

.Append(“ [##;(##)]') 

.Append(crlf) ■ * . . 

End With 

End If 1 • 

txtNum eric.Text = sb.ToString " 4 ' ■ ; y j 

End Sub . : ^ 

End Class . ' 

21. Stf dung Regular Expression 

Chirong trinh n£y cho bi£t cdch suf dung cAc Regular Expression, Nfeu chua 
quen vdi regular expression, d&y lit mQt cdch chuln v& dfi ducrc xfiy dung t6t 
de phAn tfch cdc file van bdn cung nhif tim vd c6 th£ thay th£ cdc chu8i con 
theo cdc mdu. ; 
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Cac chute nana chinh: 

> Tab "Simple Samples" Id mpt gidi thieu v§ sur dung cdc, regular 
expression. Ta se bi£t cdch tim m6t stf xuat hi$n ddu ti6n trong chuSi, 
cung nhir cdc vi du phtfe tap hon. 

> Tab "Screen Scrape" cho thdy cdch suf dung regular expression cao cdp 
hem. C6 th£ nhdp vdo m§t dia chi Web vd xem duoc cdc li£n k£t hodc 
cdc hinh dnh c6 trong trang d6 (edn ket ndi vdo Internet). Cdc thuQc 
tlnh cua HTML tag dUdc hien thi trong mot ListView. C6 th<? nhdp dup 
chuQt vdo mOt hinh dnh di xem nd, hodc nhdp dup vdo m<)t li§n k£t d£ 
xem n§i dung trang d6 vdi Internet Explorer. 

> Tab "RegEx Tester" cung c&p m§t edeh thuan tien de thuf nghiem vdi 
cdc regular expression. N6 cung bi£u diin edeh tim kiem, thay th£, vd 
tdeh chudi. 

Project: Su dung Regular Expressions 
ImageAttrlbutes.vb 

• Option Strict On 

Public Class ImageAttributes 
Public Src As String 
Public Alt As String 
Public Height As String 
Public Width As String 

Sub New(ByVai strSrc As String, ByVal sir Alt As String, ByVal strHeight As String, 
ByVal strWidth As String) 

Src = strSrc 
Width = strWidth 
Height = strHeight 
Alt = strAlt 
End Sub 

• End Class 

frmlmageViewer.vb 

■ Option Strict On 

- Public Class frmlmageViewer 

Inherits System.Windows.Forms.Form 

• ' Code phit sinh form dUQc bd qua 
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' Phi/ong thtic nay overload phUdng thdc Show m$c nhiSn 64 c6 th4 truySn vio 
' mot tham $4 de hiSn thi h)nh inh dua trin mdt Stream dupe tri v4 tCt 
' GetHttpStream() trong frmMain. 

Public Overloads Sub Show(ByVal strlmgSrc As String) 

Dim frmMain As New frmMain() 

With piclmage 
Try - 

' Gin thu0c t(nh Image cua PictureBox bing Image dupe phit sinh bdi 
’ Stream tri Idi cua GetHttpStream 

.Image = Image.FromStream(frmMain.GetHttpStream(strlmgSrg)) r ,, 
Catch exp As Exception 

MsgBox(exp foStrmg, MsgBoxStyle.Critical, Me.Text) 

End Try 


‘,r w 


i •'ft'" y ' • r- 

.SizeMode = PictureBoxSlzeModeCenterlmage 
End With 


IbllmageFilename.Text - strimgSfc 
Me.Show() 

Application.DoEventsO 
End Sub 


' *■: Vi 7 

• £\- 

’ "i H. J-,.? : - 


-ft i 


‘ Nut ddng form 

Private Sub btnClose_Click(ByVal sender As System.Obfect^V^e Ai ' 
System.EventArgs) Handles btnClose.Ctick '&••>*■ ; J >^Vy;, . h 

Me.Hide{) 

End Sub 
End Class 


■> 

'jlc 


frmMain.vb 

■ Option Strict On 

• Imports System.Text.RegularExpressions 

■ Imports System.IO 

■ Imports System.Net 


■ Public Class frmMain 

Inherits System.Windows.Forms.Form 
• ' Code phit sinh form dupe tx 5 qua 
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Private htlmages As Hashtable 

Protected frmlmageViewer As frmlmageViewer 

Private frmStatus As frmStatus 

Public strDomain As String 

Public strllrlEntered As String 

Private wreqScrape As HttpWebRequest 

Private wresScrape As HttpWebResponse 

’ Xil ly nut Find trin tab "RegEx Tester " Thu tyc niy tun cac phin phu hpp trong 
' vSn bin nguon sau do hien thj nhdm vi gia tri fim dUdc trong TextBox ket qui. 
Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnFind.Click 
Dim re As Regex 

Dim reOpt As RegexOptions = GetRegexOptions() 

Try 

re = New Regex(txtRegEx.Text, reOpt) 

Catch exp As Exception 

MsgBoxfAn error was encountered when attempting to parse the " & _ 
“source text. This is often caused by an invalid regex pattern." & _ 

“ Check your expression and try again. Exp.Msg=" & exp.Message, _ 
MsgBoxStyle.Critical, Me.Text) 

Exit Sub 
End Try 

' Lay tip hqp cac ket qua phi hpp vdi miu 

Dim me As MatchCollection = re.Matches{txtSource.Text) 

’ Hien thj s6 phan tim thay vi xda cic kS't qui da co 
IbIResultCount.Text = mc.Count.ToString & “ matches" 
txtResults.Clear() 

Dim m As Match 

' Duy$t qua cac ket qui tim dUdc, va hien thj cac gia tri nhdm va/hoic 
‘ gii tri tim difpc. 

For Each m In me 

AppendResultsf" & m.Value & "’ at index " & m.Index) 

If m.Groups.Count > 1 And chkShowGroups.Checked Then 
Dim g As Group, i As Integer 
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' Bd qua group 0, d£y IA toAn bd d6i tUdng Match 
For i = 1 To m.Groups.Count -1 
' LAy m$t tham chiS'u dS'n group tUdng Cfng 
g - m.Groups(i) 

AppendResults(String.Format(‘ group({0}) = ‘{1i, g.Value)) 
If chkShowCaptures.Checked = True Then 
' LA'y tap hpp tim th£y cua group nay 
Dim cc As CaptureCollection = g.Captures 
* HiSn thj thdng tin trdn mdt ket qui tim thay 
Dim c As Capture 
For Each c in cc 

AppendResults(String.Formate ' & ^ 

"capture '{0}‘ at index {1}", c.Value, c.Index)) 

Next 


End If 
Next 

End If 1 

Next 

End Sub 1 T' • - ' Vi ' •' 

* Xfifty stf ki$n cHck chd hut “Find the Number*.'kiii tMAd diu tidn trong m$t 
' chuSi ky ti/ thi hi4n thj s6 dd vA vj trl bit diu cua nd'S trong chuSi. 

Private Sub btnFindNumber_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnFindNumber.Click 


‘ Tgo m$t instance cua RegEx vA truySn vAo m$t bd mSu, bd nAy diftm m$t 
' ho Ac nhiSu con s6. 

Dim re As New Regex("\d+“) 

* Gpi Match, truySn vAo vAn bin nguSn 

Dim m As Match = re.Match(txtFindNumber.Text) 

' Nd’u tim thAy mdt ket quA, hien thj kit quA. Neu khong, hien thj mdt thdng bao 
If m.Success Then 

IbIResults.Text = String.Format('RegEx found * & _ 
m.Value & * at position ' & m.Index.ToString) 

Else 

IbIResults.Text = "You didn't enter a string containing a number!" 

End If 


End Sub 
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' Neu tim thay, thay the vin bin trong vin bin nguSn bing vin bin thay the 
Private Sub btnReplace_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnReplace.Click 
Try 

txtResults.Text = Regex.Replace(txtSource.Text, txtRegEx.Text, _ 
txtReplace.Text, GetRegexOptionsO) 

Catch exp As Exception 

MsgBox(exp.ToString, MsgBoxStyle.Critical, Me.Text) 

End Try 
End Sub 

' XCl ly nut " Scrape " 

Private Sub btnScrape_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnScrape.Click 
Dim strHttpSource As String 

If UrllsValid() Then 

' Liy chudi chifa dja chi cua trang Web. 

Try 

strHttpSource = ConvertStreamToString(GetHttpStream(txtURL.T ext)) 
Catch exp As Exception 
' Hiin thj thing bio l6i 

MsgBox(exp.Message, MsgBoxStyte.Critical, Me.Text) 

Exit Sub 
End Try 

. 1 

Dim strRegExPattern As String 

' Gan dia chi Web vio m$t biin 
strllrlEntered = Trim(txtURL.Text) 

' Liy tin Domain di ed dyng cho nhiSu myc dich khac. 

Dim astrDomain() As String = Regex.Split(strUrlEntered, V) 

' Phin tut diu tiin (0) li "http: H vi phin tut thut ba thi/c si/ li Domain name 
strDomain = astrDomain(O) & 7/‘ & astrDomain(2) 

If optLinks.Checked Then 

ShowStatusIndicatorsfConnecting to Web page to screen scrape “ & _ 
’the links. Please stand by...“) 


IvwLinks. Items.Clear{) 
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' BiSu thitc regular expression d ddy ditgc sit dung di phStn tich lien kit HTML. 

’ VI do: <3 href= H http://www.ntbooksvn.com M >NT Books</a> ditgc giii thlch 
’ nhu sau: 

’ <a Bit diu mdt lidn kit HTML 

‘ ls+ Mdt hoic nhiSu ky tu khoing tring 

' href TUp tuc vdi vin bin chlnh xac trong lidn kit HTML 

’ Is* Khdng cd hoic nhiSu ky ti/ khoing tring 

' = TUp tuc vdi vin ban chinh xic trong lidn kit HTML 

' Is* Khdng cd hoic nhiSu ky tu khoing tring 

' "? Diu rtgo$c kip 

' ( Bit diu nhom dinh nghla mdt chudi con: URL thi/c 

' / A "" >b M$t hoic nhiSu ky ti/ diu phi hop ngoqi trii cic ky tU trong 
' diu ngoic vudng 

' ) Kit thdc nhom djnh nghla diu tidn 

' "*? Diu ngoic kip 

* > Vin bin chlnh xic trong lidn kit HTML 

' (.+) Nhdm chita bit ky ky tu nio: Vin bin hiSn thj 

' </a> Kit thuc lidn kit HTML 

strRegExPattern = “<a\s+href\s*=\s*“?([ A ““ >J+)“*?>(.+)</a>* 

Else 

ShowStatuslndicators(‘Connecting to Web page to screen scrape the * & _ 
‘images. Please stand by...') 

htlmages = New HashtableO 
Ivw Images. Items.ClearO 

' Bieu thitc regular expression dS liy ra cic hinh inh cung titong tU nhit 
' miu di Hy cac lidn kit HTML. Tuy nhidn, trong tritdng hup niy phUo top hdn 
’ bdi vi chiing ta Hy bin thing tin thudc tlnh khic mi cd thi nim khdng dung fair tU 

’ Di giim cac tritdng hup, ta gii sit mdt si quy tit vA cic tag <itng> dupe xit ty 
' trdn trang Web: 

' 1. Thuoc tlnh sre ludn ludn cd. Diy IS thudc tlnh bit bude. 

' 2. Thuoc tlnh sre difng triidc width vi height. Niu khdng, width vi 
' height khdng di/gc IS'y thing tin. 

' 3. Thudc tlnh alt difng sau width vi height. Niu khdng, bd qua thing 





— Coding Techniques -- 


181 


' tin cua alt. 

' 4. Width vi height co thi theo sau src theo b£t ky thd ty nio 

' DiSu niy bio dim li tit ci cac hinh inh trong trang Web dapc liy thdng tin. 
' Tuy nhien co thd mdt s6 thuoc tinh khdng li'y dUdc thong tin. 

' Mdt so cum ky tu chinh stf dung trong miu niy li: 

' [ A >]+ Tit ci cac ky ty trtf >. 

* (?: Bit diu mdt nhdm khdng theo doi. Cym niy dung vdi)? dS 

' tyo m$t group cd the cd hoic khdng. 

' / Stf dyng vdi width vi height nhu li mdt biiu thtfc Or. Chu y li cip 

1 diu tiin width dufng trade, cip thtf hai cd thtf ty ngupc Ipi. 

strRegExPattern = “<img{ A >]+(src)\s*=\s‘"“?([ A “'>]+)*"?■ & __ 
•(?:[ A >J+(widthfheight)\8‘=\s*“?([ A ">]+)““?\s+(heightlwidth)\s*=\s‘""?' & _ 
*(l A ••>]+)“?)?(?:[ A >}+(alt)\s*=\s"‘?([ AM >l+)' # ?)?* 

End If - 

Dim re A& New Regex(strRegExPattern, RegexOptions.IgnoreCase) 

Dim m As Match = re.Match(strHttpSource) 


* Xtf ly source code HTML. Bdtvi source ti mQt chuSi dil, thiy v) stir dyng 
' phUdng thufc Matches, stf dyng MatchQ dd tri v4 mtfi tin mtft phin tim thiy. 
' ThuQc tinh Success quyit djnh cd cdn tim thiy phin nio khic hay khdng. 

' NextMatch() thyc hifn vi$c lip tyi. 

While m.Success 
If optfmages.Checked Then 
Dim strWidth, strHeight As String 

' Bdi vi miu tim kHm cd khi n&ng cd hoic khdng cd cic thuQc tinh width 
' vi height, xic djnh thutfc tinh nio dtfpc li$t kd trade vi gin gia trj 
‘ group thich hyp. 

If m.Groups(3).Value.Tol_ower = “width" Then 
strWidth = m.Groups(4).Value 
strHeight = m.Groups(6).Value 
Else ' Thudc tinh height xui't hidn trade 

strWidth = m.Groups(6).Value 
strHeight = m.Groups(4). Value 
End If 
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' Goi Addlmage de them mot instance cua dd'i tUdng ImageAttributes vAo 
' mdt HashTable. Xem thu tuc Addlmage de ro hdn. 

Addlmage(New lmageAttributes{m,Groups(2).Value, _ 
m.Groups(8).Value, strHeight, strWidth)) 

Else 

' Tao mot d6i tUdng ListViewItem va quy djnh ti/a dS cua c$t diu tiin ("src") 
Dim Ivi As New ListViewltem() 

Ivi.Text = m.Groups(l).Value 
IvwLinks. Items. Add(lvi) 

End If * 


' Tiep tuc vdng lap ftm phdn phu hpp ki> tidfp 
m = m.NextMatchQ 
End While 



HideStatusIndicatorsQ , ... .. 

' HiSn thi cac control tUdng ting vdi c£ek&t qui 
If optlmages.Checked then 


If Not IsNothing(htlmages) Theh *, „ 

FilllmagesListView() 

Else 


MsgBox("No Images were found whose attributes matched the ’ & _ 
"regular expression. 1 , MsgBoxStytelnfermation, MSnText) 

'End If / " x' 

• . •> . . ;• ' /.-A-''-.l* ■ • 

Else ; %. 

If IvwLinks.Items.Count = 0 Then f 


MsgBox("No links were found whose Uri matched the regular 1 $ _ 
"expression.", MsgBoxStyle.Information, Me .Text) 


End If 
End If 
End If 


End Sub 


' Thu tuc xti ly nut "Split". Thu tuc nAy tAch (chia) vAn bin nguSn vAo mQt ming 
' chudi thay vi mot MatchCollection (nhu trong thti tuc xti ly "Find"). 

' RegEx. Split ttidng tt/ nhti String. Split ngoai trti I A no djnh nghTa gidi h$n being 
' each sti dung mdt regular expression thay v) mdt ky tu. 

Private Sub btnSplit_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSplit.Click 
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' Xoa cac kSt qui da c6 vi split vin bin ngudn 
txtResults.Clear() 

' d day ta goi phitcing thCtc Shared Split, khdng cinmQt instanace cua RegEx. 

' Mot miu tot de thCt vdi split li t$o m$t ming chufa cac ky /</ tach nhau bing 

' dau ph£y. Trong trUdng hQp hiy, RegEx.Splil(txt&ource. Text, se cho 

’ ki t qui gidng vdi do^n code sau: 

' txtRegEx.Text.Split(N4w Chari) {OChar(‘‘, m )}) 

' Microsoft. VisualBasic.SplitftxtRegEx. Text, *7 

■ , • r.C; • Co H ’ *, ; > -• ; ' -- 

’ Ta cd thS thafy tidi regular exprebsidn dibdqua cic phin tdtrdng trong 
‘ ming chuSiMft qui: is'/J+te* / Xi ' * ! 

Dim astrResults() As String 

Try . - • c ■£.”< ' .o'. V;. - O * '• ■ ' • 

astrResuits = Regex.Split(txtSource.T ext, txtRegExfText, _ 

GetRegexOptionsQ) 

Catch exp As Exception v C ; : >v . o - • - ^ 

MsgBox(*An error:wa» eitooufttefed when attempting to parse the" & _ 

"source text. This is often caused by an invalid regex pattern." & _ 

' Check your expression and try again. Exp.Msg=" & exp.Message, _ 
MsgBoxStyle.Critical, Me.Text) q. , /r 

Exit Sub ■ ^ .r..- f cr ■ ■;&. . , <■ 

End Try ^ ^ ■ 

' Di tich m$t ming chudi th J ft nhit hai phin tit phii ditgc t$o 
If astrResults.Length > 1 Then 
AppendResults("The source text was split into' & _ 
astrResults.Length & “ items.") 

Dim s As String 
For Each s In astrResuits 
AppendResults(s) 

Next 

Else 

AppendResultsfThe source text could not be split." & _ 

"Check your regular expression pattern and try again.") 

End If 


End Sub 
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' Xii ly nut "Validate!” tren tab "Simple Samples'. 

Private Sub btnValidate_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnValidate.Click 
Dim IsValid As Boolean = True 

' Khi thuc hiin ki£m tra tfnh hpp l$, hai phin tut miu dupe sue dpng thddng xuyin: 

' A vi $ Chu6i ngudn cd th£ chi chtia nhdng gi d giuta hai diu niy, 

' vi dp: m$t ngiy thing. 

Bpc miu ki£m tra vio cic ky tp niy d£ bio'dim tfnh chinh xac. 

’ Vi dp, n£u khdng bpc bing cic ky ti/ niy, cd th£ truySn vio Ung dpng 

' m0t ngiy nhVsau: m kjdi12-25-2000xpL" 

* Is* Tpi vj trf diu vi vj tri cu6i cua mot chuSi, cho bi£t li khoing tring 

* cd th£ chip nh$n. 

' Miu sau ki£m tra dut liiu nh$p vao cd phii li mot zip code dung theo djnh dpng 
' ddddd hoic ddddd-dddd, vdi d li mdt ky s£ 0-9. Cic phin tur m£u chfnh se 
' sue dung li: 

' Id Bit ky chU s£ nio (0-9). 

' I Ky hiiu (tUdng Png vdi Or) cho biet li Zip code cd the li 5 ky so 

' hoic li 5 ky sd' theo sau li mot diu gpeh ngang vi 4 ky sd'. 

If Not Regex.lsMatch(txtZip.Text, “ A Vs*(\d{5}l(\d{5}-\d{4}))\s’$") Then 
txtZip.ForeColor = Color. Red 
IsValid = False 
Else 

txtZip.ForeColor = Color. Black 
End If 

' Miu sau ki£m tra chudi nhip vio cd phii li mdt ngiy cd dang mm-dd-yy hoic 
' mm-dd-yyyy. Cic phin tCf miu chinh: 

' \d{1,2) Cic si ngiy vi thing chi cd th£ cd 1 hoic hai chi7 s£. Sd dung 
’ (\d{4}l\d{2}) cd nghla li nim chi cd th£ cd 2 hoic 4 chut s£. 

’ (/{-) Cd thi dung diu s6 hoic diu gpeh ngang Urn ky tp phin cich. 

' 1/ Diu phin cich giQa ngiy vi nim phii gid'ng vdi diu phin each giPa 

' thing vi ngiy. So 1 lidn hi tdi nhdm diu tiin, dupe djnh 

' nghla bdi cic diu ngoic ddn, vi dp (/)-). 
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If Not Regex.lsMatch(txtDate.Text, _ 

‘ A \s*\d{1,2}(/l-)\d{1,2}\1 (\d{4}l\d{2})\s*$‘) Then 

txtDate.ForeColor = Color.Red 
IsValid = False 
Else 

txtDate.ForeColor = Color.Black 
End If 

' Miu sau kiim tra chuoi nhap vAo cd phai la mdt dia chi email dung theo 
' d$ng " name@domain.comThi/c si/ cd the khdng phii I A ".com" co th£ Id cAc 
' ky it/ theo sau d£u chAm cuoi cCmg. TSn (name) co the co nhiiu tCf phAn tAch 
' bdi mdt hoAc nhiSu dAu cham. TSn Domain cung cd the cd nhiSu tCt phAn cAch 
' bdi cAc dau chAm. 

' ([\w-]+\.)*? Bit ky ti/ nAo (a-z, A-Z, 0-9, gach dudi) ho Ac gach ngang, theo sau 
’ Id mot dA’u chAm. 

' [\w-] d cA hai phla cua ky ti/ @ d£ bAo dAm dia chi 

' cd d$ng name@domainname 

' +1. Bao dAm cd it nhat mdt dAu cham trong domain name 

i 

If Not Regex.lsMatch(txtEmail.Text, _ 
■ A ([\w-]+\.)*?[\w-]+@l\w-]+\.{[\w-]+V)*?[\wl+$“) Then 

txtEmail.ForeColor = Color.Red 
IsValid = False 
Else 

txtEmail.ForeColor = Color.Black 
End If 

If IsValid Then 
IblValid. Visible = True 
Else 

IblValid.Visible = False 
End If 


End Sub 
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' Thu tuc nky XLf ly sd ki$n Doubleclick trSn Images ListView. 

‘ Nhk'p dup chudt vko mdt hinh inh se md form frmlmageViewer, ySu ciu hlnh inh 
' Id mot Stream td Web server, vk hien thi no trong mot PictureBox. 

Private Sub lvlmages_DoubleClick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Ivwlmages.Doubleclick ' 

’ Dal tat ca code trong thu tgc kiem tra hpp le de bao dam ngddi sd dpng khdng 
’ thay doi dia chi thknh mdt dia chi sai trddc khi nhaip dup chudt 
If UrllsValidQ Then 

Dim strlmgSrc As String = Ivwlmages.Selectedltems(O).Text 

ShowStatusIndicatorsfConnecting to Web page to retrieve the “ & _ 

‘selected image. Please stand by...‘) 

If IsNothing(frmlmageViewer) Then . _ 

frmlmageViewer = New frmlmageViewer() 

End If 

' Ndu dddng din image dupe chQn khdng phii li mdt dja chi diy du, Ikm cho 
' no dung vk hien thj hinh inh trSn form Imag&Viewer. 

If Microsoft.VisualBasic.Left(strlmgSrc, 7) <>‘http://" Then 
strlmgSrc = MakeRelativellrlAbsolute(strlmgSrc) 

End If . 

frmlmageViewer.Show(strlmgSrc) 

HideStatusIndicatorsO 
End If 

End Sub 

' XCl ly sd kiSn Doubleclick cho "Links" ListView. Nha'p dup vko mot lien ket se 
' md trinh duyit Internet Explorer vk hien thj trang dddc yeu cau. 

Private Sub lvLinks_DoubleClick(ByVa1 sender As System.Object, ByVal e As 
System.EventArgs) Handles IvwLinks.Doubleclick 

If UrllsValidO Then 

Dim strClickedUrl As String = IvwLinks.Selectedltems(O).Text 
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ShowStatusIndicatorsfStarting Internet Explorer and connecting to " & _ 

"the selected Web page. Please stand by...") 

’ Xdy di/ng lai dudng din niu chi/a day du, va md no tren IE 
If Microsoft.VisualBasic.Left(strClickedUrl, 7) <> "http://" Then 
strClickedilrl = MakeRefaiiveUriAt&oUjte(strClickedUri) 

End If 

;\ ^ - i 1 " ' - 

Process.Start(“IExplore.exe'\ strClickedilrl) 

HideStatuslndicators() 

End If 
End Sub 

* Xii ly stJ ki$n CheckedChanged cho cac control RadioButton trSn tab "Screen 
‘ Scrape". Cac control ListView dupe hoan chuySn dpa tren option ndo dupe chon. 
Private Sub RadioButtons_CheckedChanged(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles optlmages.CheckedChanged, 

optLinks.CheckedChanged 
If optLinks.Checked Then 
IvwLinks. Visible = True 
Ivwlmages. Visible = False 
Else 

Ivwlmages. Visible = True 
IvwLinks.Visible = False 
End If 
End Sub 

* Thu tyc ndy them mot dot tupng ImageAttributes vdo HashTable neu nd chua dupe 
’ cho vao. Thuoc tfnh "sre" dupe sti dung nhu Id khoa dS tim kiem. Neu khoa Src da 
‘ t6n t$i, dot tupng khong dupe them vdo. Dieu ndy tranh dupe viec cac h'mh anh 

' xud't hien nhieu Ian trong danh sach. 

Protected Sub Addlmage(ByVal imgAttr As ImageAttributes) 

If Not htlmages.Contains(imgAttr.Src) Then 
htlmages.Add(imgAttr.Src, imgAttr) 

End If 


End Sub 
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' Thu tyc nky h6 try cho vide n6i cac ket qua 
Sub AppendResults(ByVal msg As String) 
txtResults.AppendText(msg & ControlChars.CrLf) 

End Sub 

’ Hkm nky dye m$t Stream trk ve bdi dd'i tuyng HttpWebResponse va chuyen 
‘ no sang mdt chudi dS RegEx xil ly. 

Function ConvertStreamToString(ByVal stmSource As Stream) As String 
Dim sr As StreamReader 

If Not IsNothing(stmSource) Then 
Try 

sr = New StreamReader(stmSource) 

' Dye vk trk vS tokn by nyi dung cua stream 
Return sr.ReadToEnd 
Catch exp As Exception 

' Khdng hiSn thj MsgBox. Chi chuySn thdng bko iSi cho GetHttpStream() 
Throw New ExCeption() 

Finally 

’ Giki phdng ck Stream vk StreamReader 

wresScrape.Close() 

sr.Close() 

End Try 
End If 

End Function 

' Thu tyc nay duyet qua mdt HashTable vk thdm mdt ListViewItem chda 
' ListViewItem.Subttems cho mdi d6i tuyng ImageAttributes trong HashTable. 
Protected Sub FilllmagesListView() 

Dim strSrc As String 

For Each strSrc In htlmages.Keys 
' Tao mdt d6i tuyng ListViewItem vk cho nyi dung vao cdt dau tien 
Dim Ivi As New ListViewItemQ 
Ivi.Text = strSrc 


' DUa ndi dung vao cac cdt edn lai vk thdm doi tuyng ListViewItem vko ListView 
Dim imgAttr As ImageAttributes = CType(htlmages(strSrc), ImageAttributes) 
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With Ivi.Subitems 
.Add(imgAttr.Alt) 

.Add(imgAttr.Height) 

.Add{imgAttr. Width) 

End With 

' Cho ListViewItem vao tip hpp cac Item cua ListView 
tvwlmages. Items. Add(lvi) 

Next 
End Sub 

' Him nay stf dyng cac class cua .NET duoc phat sinh ti/ System.Net.WebRequest 
' tie li'y Stream tri Idi HTTP va li nguon cho RegEx phin tich hoic li htnh inh de 
' hiSn thi khi dupe ggi bdi trmimageViewer.ShowQ. 

Function GetHttpStream(ByVal url As String) As Stream 
' Tpo m6t yiu ciu sti dyng WebRequestFactory. 
wreqScrape = CType(WebRequest.Create(url) ( HttpWebRequest) 

With wreqScrape 

.UserAgent = “Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.1)* 

.Method = ’GET* 

.Timeout = 10000 
'End With 

Try ' - ^ ^ ^ ^ . 

* Tri Stream tri fill "* '' Kj> 

wresScrape * CType(wreqScrape.GetResponse(), HttpWebResponse) 

Return wresScrepe.GetResponseStreamO 
Catch exp As Ekcd^horT ^ 

’ Khi m$t til ed thi do sa/ Url hoic chUa kdt ndi Internet, t?o rrtdt thing 
' bio iSi tri v4 cho him g<?i. 

Throw New ExceptionfThere was an error retrieving the Web page * & _ 

■you requested. Please check the Url and your connection to ’ & _ 

"the Internet, and try again.*) 

End Try 
End Function 

' ThCt tuc h6 trq cho vi$c li'y cic option cho regular expression 
Function GetRegexOptionsQ As RegexOptions 

' S& dung bit ky chQn li/a nio cua RegExOptions cung tUdng td vdi dit toin bo 
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' regular expression vao trong dau ngodc don (vi du: Idm cho todnbd mlu trong 
' mot nhom riing) vd sau do md dau no ben trong diu ngodc ddn md vdi ty 
‘ tu option. Niu muon diSu khiSn tot hdn trdn m$t option, t$o mpt ntidm bin trong 
‘ miu yd dung cung cu phap trin. Trong trUdng hpp khdng’tnutfn Sddphg cdc 
' RegExOptions, tit no bdng each phu djnh nd, vi dp: di tit tfnh ndng phdn bipt chO 
' hoa yd chd thudng, go ?-/; bin trong diu ngodi don md eda mfyt nhom. 

' Cac option mac nhidn dupe tit ‘ 

' IgnoreCase bit/tit tinh ndng phdn bi$1 chd hoa chd thddng cho todn bQ.mSu. Sd 
' dung option ndy tddng dddng vdi go (?i:miu g6c) trong regular expression 
If chklgnoreCase.Checked Then GetRegexOptions = heg6kOf!rtidn9 lgnorec5ase 

* Singleline thay d6i edeh cd xd eda ty tp$)8nf(. f dS nd tfi&a bit ty ty tijt ndo (thay 
’ cho each mdc nhiin Id thddbittyty tp ngopi trU ty tp di ng mdi, (r hrtyc \h). Sd 
’ dung option ndy tddng dddng vdi dutig (Tsiin&u <j«5c) trong Oti phdp regular 
'expression. ' v ' / ■ - ^ 1 

• a 

.. >. v'' . , u ; . y-r ■■■to- rA*v 

' Chu y Id nhieu RegExOptions c6 the sd dyng khi dupe phdn t^cp bang todn.td Or. 

' Ngodi ra, cd the cho phip nhiiu option bdng edeh sd dyng cuqhdp cua regular 
' expression bdng edeh ddt ede option vdi nhau sau ty tp ?. vi dy, di bit tinh ndng 
' Singline vd ignore case, cd phdp nhu sau: (?si:miu g6c). 

If chkSingleLine.Checked Then . 

GetRegexOptions = GetRegexOptions Or RegexC^tiont.Si^etin^ 

End If . , ‘ , ;■ 

' Multiline thay d6i each cu xd cua ede ty tp A vd $ di chung jhda ttf diu din cu6i 
' cua mdt dong thay v) td diu din quii eda m$t chuSi Cu phdp tddng dng tropg 
' regular expression Id: (?m:mau g6c). 

If chkMultiline.Checked Then 

GetRegexOptions = GetRegexOptions Or RegexOptions.Multiline 
End If 

End Function 

’ Thu tuc ndy tit form thing bao trpng thai dupe hiSn thj bdi ShowStatusIndicators 

Private Sub HideStatuslndicators() 

frmStatus.HideQ 

Me.Cursor = Cursors.Default 

End Sub 
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' Hkm nay nh$n mdt dja chi UJdng ddi vk chuydn no thknh dja chi tuyet ddi. Day la 
' ham hS trp cho sU kien Doubleclick trSn tab "Screen Scrape". Cac thudc tinh "href" 
‘ vk " url" cd the chila mdt dudng din tuydt ddi, tUdng ddi vdi gdc, hokc mot dudng 
' din ti/ong ddi. Ndu dudng din dupe chgn chUa Ik dudng din tuyit ddi, ham nay 
' noi vko phia trudc no tin domain vk m$t diu sd ndu cin. 

Public Function MakeRelativeUrlAbsolute(ByVal strRelativeUrl As String) As String 

' Ndu Ik dt/dng din tUdng ddi vdi gdc (bit diu bkng T), nd cin thim domian name 
‘ di/ng trtidc. Ndu la mQt dja chi ti/dng ddi nd cin thim dja chi do ngUdi sd dung 
’ nhkp vko. 

1 Ndu Ik dudng din tUdng ddi vdi gdc " 

If Microsoft.VisuaJBasic.Left^strRetetiveUrl, 1) - 7* Then 
' dkt tin domain dOng trade 
Return strDomain & strRelativeUrl 
Elself Microsoft.VisualBaaiaLeftti^Wteti^tfef, 3).s t&ari 1 j 
' Bo cac ddu chdm vk thim tin domain . 

Return strDomain & Microsoft.Vfsua1Basie.Replace(strRelativeUrl, \./\ V) 

Else ‘ Lk dudng din tuong tidi 

' kidm tra dja chi nhkp vko cd kit thuc bkng 7", ndu khdng cd th) thim vko 
If Microsoft.VisualBa$ic.Right(strUrtEntered, 1) = V“ then 
Return strUrlEntered & strRelativeUrl ' 

Else 

Return strUrlEntered & V & strRelativeUrl 
End If 
End If 

End Function 

' Thu tuc nky hiSn thj mdt form cho bidt cong vi$c dang dupe tht/c hien vk 
' chuydn con trd chudt sang WaitCursor. 

Private Sub ShowStatuslndicators(ByVal strMsg As String) 

frmStatus = New frmStatus() 
f rmStatus. Show(strMsg) 

Me.Cursor = Cursors. WaitCursor 


End Sub 
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' Heim niy kiem tra dia chi nhip v£o co bit diu b&ng http:// khdng 
Function UrllsValid() As Boolean 

If Microsoft.VisualBasic.Left(Trim(txtURLText), 7) <> “http://" Then 
MsgBoxfThe Url must begin with http://.") 

Return False 
End If 

Return True 
End Function 

■ • , ■ ‘ .• t : r - 1 v - ^ , 

• End Class 4, 

22. Sii dung Clipboard 

Vi du ndy chi edeh dftt vko Vh lfly cAc item ra khdi Clipboard vdi nhilu 
dinh dang khde nhau. N6 bi£u diin cAc phuong thufcv& thu^c tmh chlnh dirge 
suf dung khi l£m vi$c vdi Clipboard. 
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Cac chute nana chinh: 

> Chuli “The Clipboard is Cool!" dirge cung cap d nhilu dinh dang khde 
nhau CIA ede biln cua class). Chu5i n&y c6 thl dirge copy v&o Clipboard 
d mot dinh dang, hodc dirge dira vdo Clipboard vdi nhilu dinh dang 
cung liic, tdt cA diu d trong menu Edit. 

> Mot hinh dnh cd thl dirge load v& dua vdo Clipboard tir menu Edit. 
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> Menu Paste As duac phht sinh d<>ng tir cdc dinh dang khdc nhau cd 
trong Clipboard. 

> C&c th&nh phAn edihl du$c copy ttf cdc dng dung Windows khdc vk 
ddn v&o ba vi tri trong chuctag trinh n&y, vk ngixac lai. 

Chay dng dung vk thuf dung ckc khh bang trong menu Edit. Vi du chon 
Edit -> Copy Text As -> RTF. Sau d 6 dhpn Edit -> Paste As -> Rich Text 
Format. Sau dd ta cd th£ thAy dffljfc 1 sd khdc nhau khi van bdn duftfc ddn vao 
RichTextBox vb TextBox. 

Sau dd lam tucfng tif vdi HTML. Chu y ia RichTextBox khdng h5 tro dinh 
dang HTML. Thuf dhn ni?i dung vhb m$t trinh soan thdo HTML (Visual 
Studio NET HTML document) d$ th£y k£t quh. 

Thur dung tinh nang Edrt -1> Copy AS -> All Formats,tht cd cdc phi§n ban 
dinh dang cua van bah dtfdc'd&t v&o Clipboard. Sau dd cd th4* ddn vdi dinh 
dang Text, RTF, HTML vA ^ML. 


Project: Su dung Clipboard 

frmMain.vb 

Option Strict On 

■ Public Class frmMain 

Inherits System .Windows.Forms.Form 

' Cac chuoi sau chtia nhiSu kiiu djnh dang cua vkn ban " The Clipboard is Cool!" 
Dim strText As String =’The Clipboard is Coon- 
Dim strHTML As String = “<P>The <BxFONT size='4'>“ & _ 
"<U>Clipboard</Ux/FONTx/B>" & _ 

"is <FONT size='5‘>Cool!</FONTx/P>“ 

Dim strRTF As String = ,l {\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{" & _ 
“\fO\fswiss\fcharsetO Arial;}}\viewkind4\uc1\pard\f0\fs20 The \ul\b\fs24 M & _ 
"Clipboard\ulnone\bO \fs20 is \fs36 Coo!!\par}'' 

Dim strXML As String = "<?xml version='1,0'?><Message>The Clipboard " & _ 
"is Cool!</Message>“ 

‘ mylmage hJu mdt hinh anh trong bo nhd 
Dim mylmage As New System.Drawing.Bitmap(\.\twodogs.jpg") 


• * Code phat sinh form di/pc bd qua 
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' Sao chep h)nh inh vdo Clipboard vdi djnh dang bitmap 
Private Sub mnuCopylmageAsBitmap_Click(Byyal sender As System.Object, 

ByVal e As System :E vent Args) Handles mnuGopylmageAsBitmap.Click 
Dim myDataObject As New QataQbjectQ 
myDataObject.SetDataiDataFermatsBitmap, True, mylmage) 

Clipboard.SetDataObject(myDsta9|^jact, , 

End Sub 

■ . ■■/;■' ;■ a, . .'S& , U ■}•.■■■ 1 

' Chep “ The Clipboard te CooiTvAo Clipboard vdi tit pidjnh dang go th& Dieu nAy 
' chi co thi thtfc hi$n dupe bing cAch dyng m$t instance DataObject. Phuong 
' thCic SetData dupe goi chotMt-cA Gdc tfnb darip.cOng^dj tSn djnh dang cua chung. 
Private Sub mnuCopyTextA$AUF(^^^CIic^y[yal S^,^der As System.Object, 
ByVal e As System.EventArgs) Handles mnuCopyTe^AsAIIFormats.Click 
Dim myDataObject As New DataObjectQ 

5 «#, . t 't ^ | j 1 

' DAt dinh dang vAn ban vA Unicode vAo DataObject 
myDataObject.SetData(DataFormats.Text ( strText) 
my DataObject.SetData(DataFortnat$,UnicodeText, strText) 

’ DAt djnh dang HTML vAo DataObject 
myDataObject.SetData(DataFormats.Html, strHTML) 

' D$t djnh dgng RTF vAo DataObject 
myDataObject.SetData(DataFofmats.Rtf, strRTF) 

' DAt dinh dang XML vAo DataObject 
myDataObject.SetDatafMylnternalXmlFormatV strXML) 

' DAt myDataObject (chOa tit cA djnh dang) vAo Clipboard 
Clipboard.SetDataObject(myDataObject, True) 

End Sub 

' Chep chudi "The Clipboard is CoolF vao Clipboard vdi dinh dang HTML. 

' Chuoi HTML duoc cho vAo DataObject tri/dc de chi dinh djnh dang cho no. 

Private Sub mnuCopyTextAsHTML_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles mnuCopyTextAsHTML.Click 
Dim myDataObject As New DataObject() 
myDataObject.SetData{DataFormats.Html, strHTML) 

Clipboard.SetDataObject(myDataObject, True) 

End Sub 
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' Chep chuSi"The Clipboard is CoolT vio Clipboard vdi djnh dang RTF. 

Private Sub mnuCopyTextAsRTF_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles mnuCopyTextAsRTF.Click 
Dim myDataObject As New DataObject() 
myDataObject.SetData(DataFormats.Rtt, strRTF) 

Clipboard.SetDataObject(myDataObject, True) 

End Sub 

’ Chep chudi"The Clipboard is Cool! u vio Clipboard vdi djnh dang text. 

' Chu6i vin bin di/dc chep trdc tiip vio Clipboard 

Private Sub mnuCopyTextAsText_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles mnuCopyTextAsText.Click 
Clipboard. SetDataObject(strText, True) 

End Sub 

' Chep chudi "The Clipboard is CoolT vio Clipboard vdi djnh dang XML. 

‘ Bdi v) XML khdng ddpc Clipboard hS trp, diy li djnh dang rieng cua dng dang. 

' Vi bdi vi djnh dang nay it co y nghla cho cac dng dyng bin ngoii, tham sd thd 
' hai di/dc gan li False, bit bade Clipboard khdng cho phep cac Ctng dung 
' khac sd dyng di7 lieu niy . 

Private Sub mnuCopyTextAsMXL_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles mnuCopyTextAsMXL.Click 

Dim myDataObject As New DataObject() 
myDataObject.SetData(“My!nternalXmlFormat\ strXML) 

Clipboard.SetDataObject(myDataObject, False) 

End Sub 

' MnuEdit Popup bio dim li khi menu Edit dupe nhi'n chudt thi menu Paste As se 
' co cic chile ning ti/Ong dng cho cic dinh dang dd lieu co trong Clipboard 
Private Sub mnuEdit_Popup(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles mnuEdit.Popup 

Dim myPasteAsMenu As Menultem ' Sd dung di xiy dpng menu Paste As 
Dim myTypes{) As Menultem ' Sd dung di hiin thi cac dinh dang khac nhau 
Dim strArrayQ As String ' Ming chda cic dmh dang co ho trp 
Dim i As Integer 
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’ Neu Clipboard cd dCt ti$u, nh$p vio ming danh sach tat ci dinh d$ng co ho Ur) 
If Not (Clipboard.GetDataObjectQ Is Nothing) Then 

' GetFormatsQ tri vS mQt ming chudi chUa cic dinh dpng co hd trp 
strArray = Clipboard.GetDataObjeCt().GetFornnats() 

ReDim myTypes(strArray.Length -1) 

' Tao cic Menultem mdi sCr dyncf thung phi/dng 
' thdc PasteAsMenuEventHandler dS xii ly 
For i = 0 To strArray.Length -1 

myTypes(i) = New Memiltem(strArray(i), New _ 

System.EventHandler(AddressOf PasteAsMenuEventHandler)) 
Next i •- .' r,:i > 

End If {■ ft - ■ -C •• ■ 

■ - ■ r ■' \ .* 

’ Bio dim lit cic thu tpc cua .NET Ffatnework hi&n thi menu 
Me.mnuEdit.OwnerDraw = False 

' Tqo menu Paste As vdi cic menu com li cic dinh dpng cd sSn 
myPasteAsMenu = New MenultehnCi&Pastti As*. myTypes) 

' Niu no da dupe thim vio rSiJxda ^ ' v ! 

If mnuEdit.Menultems.Count = ^Theh ; ^ ^ V ' I 1 . v 
mnuEdit.Menultems.RemoveAt(2y - , ' - . 

End If -' "■'« . t \v" '.v. ■ • ’ - 

' Them menu Paste As vio menu Edit 1 *•' ; ■ ?’■ 

M e.mnu Ed it.Menu Items. Add (my Paste AsMenli) : 

End Sub 

■ .. . T.-: ■ ■> : ft ' ' -‘i 

1 PasteAsMenuEventHandler xCf ly tit ci cic 14hn Paste, khdng qualn tim din 
1 djnh dang nio da dupe chpn. 

Private Sub PasteAsMenuEventHandler(ByVal sender As Object, ByVal e As 
System.EventArgs) 

Dim strType As String 1 chUa gia tri djnh dpng 
Dim obj As Object ' chUa dtl lidu se dupe din 

1 Xoa noi dung tit ci cic dich din 
Me.rtbPaste.Clear() 

Me.txtPaste.Clear() 

Me.picturePaste.Image = Nothing 

' Liy dmh dang do ngUdi suf dung chpn nhu li mot chuSi 
strType = CType{sender, Menultem).Text 
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' Bio dim ii Clipboard c6 h6 trp dinh dang dupe chQn 
If Clipboard.GetDataObject().GetDataPresent(strType) Then 
' Gin dO li$u trong clipboard vio obj vdi djnjh ding da ydu cAu 
obj = Clipboard.GetDataObject().GetData(strType) 

If Not obj Is Nothing Then 

' Din vio RichTextBox bing phi/dng thdc Paste 
Me.rtbPaste.Paste(DataFormats.GetForinat(stfType)) 

’ Din vin bin mieu ti vio TextBox 
If obj.GetType().ToString() = 'System.String* Then 
Me.txtPaste.AppendText(CType(obj, String)) 

Else 

Me.txtPaste.AppendText(obj.GetType.ToStrlng()) 

End If -C . 

' Tht/c hi$n din vio PictureBox. N&u khdng dUpc, PictureBox khdng hS trp 
* djnh ding niy, do dd xda n$i dung itnh 
Try v ■ '■ ■? ■ - 

picturePaste.Image = CType(obj, Image) j 
Catch ex As Exception 

picturePaste. Image ^Nothing 
End Try 
End If 
End If 



End Class 


Phan II - Security 

23. Tao hpp thoai Login 

Project ndy bi£u di&n cdch tao m$t hop thoai login dl? ngufdi suf dung dang 
nhap vdo titig dung v& gidi han cic chufc n§ng trong tfng dung. Ngudi sd dung 
trudc tien phdi dang nhap, chi dime 3 lan thd neu khdng thdnh cdng, cd th£ 
dung phimng cdch dang nh§p ridng cua ufng dung hodc dung Windows 
Authentication (account dang nh$p vdo Windows). Sau khi dang nhap, quyln 
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han cua ngirdi suf dung dirge ki$m tra. Neu la th&nh vien cua "Manager" hoSc 
Windows Administrator thi form chlnh hi&i thi danh sdeh ngtrdi suf dung chufa 
trong mgt file XML, n£u kh6ng phdi thi form hi$n thi la form trong. 


1 Login Dialog Boh 


H0E3I 



• ; JP • - 

uWn«w; j 


P.eOK | 


- --P 

V • 

Passwacfc | 

yr; 

Cancel j 

W Bypass via Acjmmtiata Account 

•j -V"# 



Cac chufc nanq chlnh: 

> Mpt ddl tirgng Windows Principal dirge suf dung d£ xdc dinh ngirdi sur 
dung cd dang nhap vao Windows vdi quy£n Administrator hay kh&ng. 

> Bdl tufgng Generic Principal dirge suf dung d£ xdc dinh ngirdi suf dung cd 
phdi la thanh vi£n cua "Manager". 

> Mot file XML dirge load vao mgt DataSet va dirge dung d£ ki£m tra 
thdng tin ngirdi suf dung. 

> N£ii dang nhap vdi quydn Administrator ho&c Manager (t£n Account: 
Bob) thi danh sdeh ngirdi sur dung va mat ma hi£n thi l£n. N0u dang 
nhap vdi account John thi khdng hi£n thi gi ca. 

File Users.xml dirge luu trong thir muc bin va dirge suf dung d0 luu thdng 
tin account cua ede user. Vi d£ don gidn, file XML nay khong dirge ma hda, 
vige ma h6a trdnh dirge ngirdi suf dung xem true ti£p n0i dung cua file xml. 

Trong Users.xml cd 2 account: 


Name 

Password 

Role 

Bob 

pass 

Manager 

John 

pass 

Sales 


users.xml 

■ <?xml version=‘1.0" encodings utf-8‘ ?> 

■ <users> 

<user> 

<name>Bob</name> 

<password>pass</password> 

<role>Manager</role> 

</user> 

<user> 

<name>John</name> 
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<password>pass</password> 

<role>Sales</role> 

</user> 

■ </users> 

Users.vb 

• Option Strict On 

■ Imports System.Security.Principal 

• Imports System.Threading 

• Imports System.10 

Public Class Users 

Function lsLogin(ByVal strName As String, ByVal strPassword As String) As 
Boolean 

' Thu tuc kiem tra ngi/di sti dung co tdn tgi trong file XML hay khdng 
Dim dsUsers As New DataSetQ 
Dim drRowsQ As DataRow 

Try 

' Dqc file XML vAo m$t DataSet vA Ipc trin ten (name) vd mit ma (password) 
' iIS dupe m$t t$p hpp Dataflows. PhUOng thifc nAy khdng phAn biit chtJ 
' hoa va chtJ thi/dng 
dsUsers. ReadXml(T.AUsers.xml') 
drRows = dsUsers.Tables(0).Select('name = “ & _ 

strName & " and password = & strPassword & '") 

' PhAi viSt code ki4m tra khi thdm user vAo danh sach d£ bio dim khdng trung ten 
' Ndu cd mQt ddng trong t$p hgp th) m$t record dupe t)m thAy 
If drRows.Length > O Then 
Return True 
Else 

Return False : 

End If 

Catch e As FileNotFoundException 

MsgBox(‘Users.Xml file not found.*, MsgBoxStyle Critical, _ 

'Unable to Authenticate user.') 

End 

End Try 
End Function 
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Function GetLogin(ByVal strName As String. ByVal strPassword As String) As 
GenericPrincipal 

' Ham trk ve mdt Generic Principal ti/Ong itngcho login account > 


Dim dsUsers As Mew DataSet() 
Dim drRowsO As DataRow 

Try 



' Dqc XML vko DataSet yk \qc i&y mdt t$p hpp DataRows .-•> 

dsUsers.ReadXml(*.AUsers.xmr) 

drRows = dsUsers.Tables(0).Sefect(*rtame = " & _ : 

strName & and password * V & strPassword & ”•) :«■' 

Catch e As FileNotFoundException > ? ■ 

MsgBoxCUsers.Xfol fit# not found/, MsgBoxStyle.Critical, ’Shuttirtg £)bwn../) 

End • .•:•••••*•'T 

End Try >■ ’ ! 


' Tqo Generic Identity tUdng urng cho User 
Qjm Genidantity As New Genericldentity(strName) 

* Dinh nghia quykn hgn cho user Ik mdt mkng 
Dim RolesO As String = {CStr(drRows(0).ltem('Role*)), “} 

Dim GenPrincipal As New GenericPrincipal(Genldentity, Roie$) 


Return GenPrincipal 
End Function 


Function lsAdministrator() As Boolean 

1 Hkm kiSm tra Windows Login c6 phki Ik Administrator 

1 single role'based validation 

* Dim WinPrincipal As New WindowsPrincipal(Windowsldentity.GetCurrent()) 

* repeated role-based validation 

AppDomain.CurrentDomain.SetPrincipalPolicy(PrincipalPolicy.WindowsPrincipal) 
Dim WinPrincipal As WindowsPrincipal = CType(Thread.CurrentPrincipal, 
WindowsPrincipal) 

’ Ki4m tra ngUdi sCf dung c6 Ik Administrator 
If WinPrincipal.lslnRole(WindowsBuiltlnRole.Administrator) Then 





- - (ori t ag T e e! i o i q iu > t 
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Return True 
Else 

Return False 
End If 

End Function 

■ End Class 

frmLogln.vb ? v ^ a £ 

• Imports System.Threading . 

• Imports System.Security .Principal 

Public Class frmLogin 

Inherits SystemtWindows.Forms.Form 

-, - f-y m \ t . *■ -I 

■ * Code phit sinh form dtigc bd qua 

Dim intLoginAttempts As Integer 

•f ‘ - 

Private Sub bthCanc^Lciick(ByVal sender As System.Object, ByVal e As 
System.EventAr gs) Handles btnCancel.Click 
End f 

End Sub 

Private Sub btnOK_Click(ByVef sender As System.Object, ByVal e As 
System.EventArgs) Handles btnOK.CIick 

* T$o instance cua class Users 
Dim objUser As New Users() 

Dim GenPrincipal As GdneHcPrincipal » 

Dim strName As String = txtUserName.Text 
Dim strPassword As String = txtPassword;Text 

* Kiim tra Windows Administrator. Administrator co th4 bd qua h$ th6ng 
‘ an foetn cua ting dung 

If chkAdministratorAccount.Checked Then 
If objUser.IsAdministrator Then 

* Hi£n thj Users Name 

MsgBox(Thread.CurrentPrincipal.Identity.Name & _ 

■ has logged in successfully!*, MsgBoxStyle.Information, “Login Successful") 

* Hien thj form Main 

• Dim Main As New frmMain() 
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Main.ShowDialogO 

' Dong form Login ; 

Me.C!ose() 

Else 

’ Ting s6 lin thi/c hi$n login .■ 

intLoginAttempts += 1 

MsgBox(‘User not an Administrator. Please provide a Use{ Nar^and* 
Password. “, MsgBoxStyle. Exclamation, Me.Text) t . , r . • 

End If t: 

•f- i ?**•; ;• - - 

Else ■ 

‘ Ki£m tra user login co tdn t$i ' 

If objUser.lsLogin(strName, strPasswprd}Then . . \ ><• 

GenPrincipal = objUser.GetLogin(strNarae, strPassword) .. 

Thread.CurrentPrincipal = GenPrincipal ■ , _ ^ , 

, ■ ■ ijit'* t. - r* j . .. 

MsgBox(Thread.CurrentPrincipal.ldentity.Nf»ne 4 ■* : 'J 

has logged in successfully!’. XffiH SyQcepsful") 


'' ' v/Cj > [ - 

Dim Main As New frmMaktO s 
Main.ShowDialogO v 

Me.Ck>se()... . ,v , t t<i . 

Else 'V ' ' . * . ■ 

intLoginAttempts += 1 


jy*' -»v,5- .7? -< 


1 Sac 3 lin ding nh$p khdng Ihinf) cdng th) thoit chi/dng trlnh 
If intLoginAttempts >= 3 Thea- * 

MsgBox(*Too many failed login attempts', _ 

MsgBoxStyle.Exclamation, Me.Text) 

. End 
Else 

MsgBox(‘User Name not found. Please try again', _ 

MsgBoxStyle.Exclamation, Me.Text) 

End If 
End If 
End If 


End Sub 
End Class 
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frmMaln.vb 

Option Strict On 
Imports System.Threading 

Public Class frmMain . ,/'*.! .: 

Inherits System.Windows.Forms.Form 

' Code phat sinh form dupe bd qua 

Private Sub frmMain_Load(ByVal sender As System-Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
' KiSm tra quySn hpn C r 

’ N6u Ik Manager hope Administrator tht hi&n thj danh skehuser 
If Thread. CurrentPrincipal.IslnRoleC Manager*) Or 
Thread.CurrentPrincipal. IslnRoleCBuiltlMAdministrators") Then 

' Ldy danh sich User 
Dim dsUsers As New DataSet<) 

dsUsers.ReadXml(\Ausers.xmr) 

' KSt danh sach user vAo Grid vA hiin thj 
With dgllsers 

.CaptionText = "User Accounts* 

.DataSource = dsUsers.Tables(O) 

End With 

Else 

MsgBoxfYou must be a member of the Manager or Administrator's roles to “ & _ 
“view username and password information*, MsgBoxStyle.Exclamation, _ 
“Insufficient Permissions*) 

End If 
End Sub 
End Class 

24. Ma hoa va gi&i ma dtf li£u 

Ma hda Symmetric sur dung mpt kh6a bi mat, ditoc chia s£ d£ ma hda vd 
gidi ma dur lieu. Md h6a dung kh6a bi mat odn dtrcrc gpi Id ma h6a can ddi bdi 
vi dimg cCmg m$t khda d£ ml hda vd gidi ma, 1dm cho vi$c bao v§ khda Id 




quan trong. Ma hda private-key nhanh hem Id ma hda public-key ldm cho nd 
ly tudng vdi vipc ma h6a trdn ede stream dtf lipu ldn. Tuy nhidn, trong thUc 
t£, ma h6a public-key dupe sur dung k£t hop vdi ma h6a private-key d i 
chuydn private key cho ddi tdc khde. 



Cac chufc nana chinh: v - 4 

> Chuong trinh ndy chi edeh suf dung Rljndaet hodc TripleDES d£ ma hda 
vd gidi md ede file van bdn. Khi ddnh ddu chon "Encrypt With 
password", khda khdng dupe phdt sinh tu dOng md dupe phdt sinh tir 
mpt m£t md (password) dd dupe xd ly ("salted"). Hon th£ ntfa, salt vd 
initialization vector (IV) dupe luu trong mpt file .dat. Vdi edeh ndyta 
thdy dupe edeh di gift mpt tdi lipu cho ai dd dupe an todn: tdi lipu dupe 
ma hda c6 thP gift di trdn dudng khdng an todn, file .dat vd password 
dupe truypn di an todn vdi phuOng phdp ma h6a assymetric (hddc 
public key). 

Thay vi tao mpt file khda .dat ta c6 thP ghi salt vd IV vdo ddu tdi lipu da 
dupe ma hda nhu Id vdn bdn chua ma hda. Khi gidi md, doe salt vd IV t£r tdi 
lieu da ma hda nhu Id doe tren file .dat. Vdi edeh ndy, chi c4n tdi lipu dupe 
ma hda vd password. 

Project: Ma hoa va giai ma du lieu 
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SampIeCrypto.vb 

Option Strict On 

Imports System.lO 

Imports System.Security.Cryptography 
Imports System.Threading 

Class SampleCrypto 


' Thu tyc n£y t?o mdi m$t <36i tUQng symmetric algorithm vdi kieu dUoc chyn 
Public Sub NeW(ByVal strCryptoName As String) 

crpSym = SyrnmetricAlgorithm.Create(strCryptoName) 
ReDimByteArraysQ 
End Sub 

Private abytfV() As Byte 

Private abytKeyO As Byte 

Private abytSalt() As Byte 

Private crpSym As SymmetricAlgorithm 

Private strPassword As String = 

Private strSaltIVFile As String = ““ 

Private strSourceFile Ak String = " 

Public Property PasswordQ As String 
Get 

Return strPassword 
End Get 

Set(ByVal Value As String) 
strPassword = Value 
End Set 
End Property 

Public Property SaltlVFile() As String 
Get 

Return strSaltIVFile 
End Get 

Set{ByVal Value As String) 

If File.Exists(Value) Then 
strSaltIVFile = Value 
Else 
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Throw New FileNotFoundException(‘The SalilV .dat file for the “ & 
"selected crypto type was not found. Before encrypting or * & _ 
"decrypting you must create this file.*) 

End If 
End Set 
End Property 


Public Property SourceFileNameO As String 
Get 

Return strSourceFile 
End Get 

Set(ByVal Value As , 

If Fiie.Exists(Vatue) Thfn 
strSourceFile * Value 
Else v- ;? ; 

Throw New FaeNotFoui)dException(Value & “ does not exist.") 

End If ■■■''■: - ■■ . \ •• •, 

End Set , 

End Property fewVj*- r. 1 

' ii.V-i ■ ■ 

’ Thu tyc n&y t$o m$t file .dyt chtia daff vt IV * , c.v vj , • 

Public Function CreateSaltlVFiie(ByV&t stiSayeteptyh Aa §tri**9)i tAs Boolean 


' Dmh lyi kfch thude c&c ming cho phO h<?p ; , a . V v ? -> .n i : 
ReDimByteArrays() 


' Tyo mdt 66i tUQng FileStream di ghi salt vii IV vdo mdt file • j ' 
Dim fsKey As New FileStream(strSaveToPath, FileModeOpenOrCreate, 
FileAccess.Write) 


' Phdt sinh mdt gti trj salt ngiu nhiin. Cac byte ngiu nhidn niy dufgc n6i 
' vio password trt/dc khi phat sinh khda (key). Ti/dng ty cho IV. 

Dim rng As RandomNumberGenerator = RandomNumberGenerator.Create() 
rng.GetBytes(abytSalt) 


Dim pdb As New PasswordDeriveBytes(strPassword, abytSalt) 
‘ Liy cung so byte cua abytKey trong ReDimByteArraysQ 
abytKey = pdb.GetBytes (abytKey. Length) 





- ('uduig To^hniquOf* 
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’ Phat sinh mdt IV ngiu nhidn mdi 
crpSym.GeneratelV() 
abytIV = crpSym.IV 

Try 

fsKey.Write(abytSalt, 0, abytSalt.Length) 
fsKey.Write(abytlV, 0, abytIV.Length) 
strSaltIVFile = strSaveToPath 
Return True 

Catch exp As Exception 

Throw New Exception (exp. Message) 

Finally 

fsKey.Close() 

End Try 
End Function 

’ Thu tyc ndy gi&i m§ mdt file 
Public Sub OecryptFileO 

' .n ‘ t? p , r ' ' , l L±S '1 

' NSu khdng stir dung password th) stir dyng c&c fflitri mac nhiSn cua 
‘ d6i ttiqfng symmetric algorithm 
If strPassword <> ” Then ’ ' 

OpenSaltlVFileAndSetKeylVO 
End If 


' Tao mdt FiteStreamdS <1pc file da mH hda 

Dim fsCipherText As New FileStream(strSourceFile, FileMode.Open, 
File Access. Read) 

' Tao mdt FileStream dS ghi v&o Hie ft mi thdi 
Dim fsPlainText As New FileStreafnfternp.dat", FileMode.Create, 
FiieAccess.Write) 

' Doc file da ma hda vh gititi ma 

Dim csDecrypted As New CryptoStream(fsCipherText, _ 

crpSym.CreateDecryptor(), _ 
CryptoStreamMode.Read) 

' Tao m^t StreamWriter di ghi Mho file tam 
Dim swWriter As New StreamWriter(fsPlainText) 

’ Dqc stream da giAi ma vdo StreamReader 
Dim srReader As New StreamReader(csDecrypted) 




208 


-- Coding Technique - 


T ry 

' Ghi stream da gidi ma 
swWriter.Write(srReader.ReadToEnd) 

Catch expCrypto As CryptographicExceptlon 
Throw New CryptographicExcep|ipnQ'; , ^ . 

Finally * . • ny ; ' • , .■>. 

' D6ng vd giiiphdng tdi nguySn rpv t ?; ?, . V ktn W 


swWrlter.CloseO 
csDecrypted.CloseO 
End Try 

SwapFiles(True) 

End Sub 







,‘v . : • t'y 

' Thu tyc ndy md hda mQt file c . 1 

Public Sub EncryptFile() , *-t .» 

‘ -■ ... " h?«' ty r -C 

* khdrtg sCt dyng password thl sQ dyng cdc gid trj m$c nhtdn cua 
' doi ti/yng symmetric^ ! /' -5 >'■“ 

If strPassword <> •" Then , 

OpenSaltlVFileAndSetKeylV() 

End If . ■ - A-: 7' „ • ■ 


’ Tyo m$t FileStream d£ dQC tit file nguSn 

Dim fslnput As New FileStream(str$purceFile,EileMode.Op©fi 4 -FileAccess.Read) 

’ Tyo mQt mang byte tit ddi ti/yng FileStream ’ ' 

Dim abytlnput(Clnt(fslnput.Length * 1)) AS Byte 
fslnput.Read{abytlnput, 0, Cint(fslnput.Length)) 
fslnput. CloseQ 

1 Tao mgt FileStream de ghi ra file tarn 

Dim fsCipherText As New FileStream(‘temp.dat", FileModb.Create, 

FileAccess.Write) 

fsCipherText. SetLength(O) 

Dim csEncrypted As New CryptoStream(fsCipherText, _ 

crpSym.CreateEncryptor(), _ 
CryptoStreamMode. Write) 
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' Truyen vao ming byte cua file nguon vk ghi ra cac byte da ma hoa 
' vao file temp.dat. Dong logic nhi/sau: 

' abytlnput -—> Encryption ---> fsCipherText. 
csEncrypted.Write(abytlnput, 0, abytlnput.Length) 

csEncrypted.FlushFinalBlockO 

csEncrypted.CloseO 

SwapFiles(False) 

End Sub 

' Thu tuc nay md file .dat, doc vko salt vk IV, sau do quy dinh khoa vk IV cua 
' doi tuong crypto 

Private Sub OpenSaltlVFileAndSetKeylV() 

ReDimByteArrays() 

’ Tao mdt FileStream doc noi dung cua file .dat chita salt va IV 
Dim fsKey As New FileStream(strSaltlVFile, FileMode.Open, FileAccess.Read) 
fsKey.Read(abytSalt, 0, abytSalt.Length) 
fsKey.Read(abytlV, 0, abytIV.Length) 
fsKey.Close() 

' Phat sinh key tit salted password 

Dim pdb As New PasswordDeriveBytes(strPassword, abytSalt) 
abytKey <= pdb.GetBytes(abytKey.Length) 


' NS'u class crypto hiin hanh Ik TripleDES, kiem tra key dude sft dung khong 
' phii la mQt trong cac key yS'u {Weak Keys) (vi du: key da bj tan cong) 

If crpSym.GetType Is GetType(TripleDESCryptoServicfeProvider) Then 

' Di sd dung phUdng thdc IsWeakKey cin ep kiSu bii'n SymmetricAlgorithm 
' sang class cd sd TripleDES hokc TripleDESCryptoServiceProvider 
Dim tdes As TripleDES = CType(crpSym, TripleDES) 

If tdes.lsWeakKey(abytKey) Then 

Throw New Exception(The current key is listed as a Weak Key. h & _ 
“You should generate a different key before proceeding further/) 

End If 


End If 
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' Gin cic ming byte vio cac thuoc tinh Key vi IV cua dd'i tddng crypto 
crpSym.Key = abytKey 
crpSym.IV = abytIV 
End Sub 

’ Thu tyc niy djnh l$i kich thddc cac ming byte cho c6 dd dii dung vdi 
’ dd'i tddng crypto 
Private Sub ReDimByteArrays() 

‘ Phyc vy cho myc dich xem thdng tin, ghi ra cac kich thddc key hyp le 
Debug.WriteLine(crpSym.GetType.ToString & ” legal key sizes in bits:”) 

Dim myKeySizes As KeySizes 
For Each myKeySizes In crpSym.LegalKeySizes 
With myKeySizes 

Debug.WriteLine(‘Max=“ & .MaxSize & * bits “ & _ 

“(“ & (.MaxSize / 8) & “ bytes)”) 

Debug.WriteLine(“Min=“ & .MinSize & " bits " & _ 

“(” & ( MinSize/8) & “ bytes)”) 

Debug.WriteLjne(“SkJp=r“ & .SkipSize & “ bits “ & _ 

V & (.SkipSize / 8) & ” bytes)') 

End With 
Next 

If crpSym.GetType Is GetType(System.Security.Cryptography.RijndaelManaged) 
Then , • 

’ Nhd rang kich thddc cua ming luc nio cung Idn hdn 1 so vdi chi sd cao nh$t 
‘ cua mang, chi s6 khai bao ming ., Do <J6 ReDim t#i kich thddc phii nhd 
' hon 1 so vdi kich thddc key hyp IS . 

ReDim abytKey{31) 

' Chieu dai cua salt bing V 2 chi4u dii cua key. , 

ReDim abytSalt(15) 

' Khong co thudc tinh LegalIVSizes. Do dd d£ li'y dupe ming byte IV hyp 
’ le co the lam nhd sau: 

crpSym.GeneratelV() * 

' abytIV = crpSym.IV 

Debug. WriteLine("Valid abytIV.Lengths " & abytIV.Length. ToString) 

ReDim abytlV(15) 

Else 

ReDim abytKey(23) 
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ReDim abytSalt(11) 

ReDim abytlV(7) 

End If 

End Sub 

' Thu tijc nay chep n$i dung cua file t$m v&o file nguSn trong qua tr)nh 

‘ ma hoa vi giii ma 

Private Sub Swap Fites (By Val UseFileAccessWait As Boolean) 

If UseFileAccessWait Then 
WaitFo rExclusiveAccess (strSou rceFile) 

End If 

' Thay Ih4 n^i dung file nguSn b&ng n$i dung file t$m vi xoa file t$m 
FileCopyCtempdat", strSou rceFile, True) 

File.Delete('temp.dat') 

End Sub 

' Thu tqc n&y dOng <34 ting t6c' fruy xu4\ d4n mdt file mi vtfa mdi di/gc doc. 

‘ No dupe sCf dung sau khi gi&j mi. 

Private Sub WaitForExclu8iveApc^ss(ByVal fullPath As String) 

White (True) 



Dim fs As FileStream “ ; 

fs = New FileStream(fullPath, File Mode. Append, _ 
FileAccess. Write, FfleShare.None) 
fs.CloseO 
Exit Sub '*** 

Catch e As Exception 
Thread.Sleep(300) 

End Try 
End While 
End Sub 

• End Class 

frmMain.vb 

• Option Strict On 


Imports System.10 
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Imports System.Text.Encoding 
Imports System.Text.RegularExpressions 
Imports System.Security.Cryptography 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code phat sinh form dddc bd qua 

Private crpSample As SampleCrypto 
Private FormHasLoaded As Boolean = False 
Private strCurrentKeyFile As String 
Private strSourcePath As String 
Private strRijndaelSaltIVFiie As String 
Private strTripleDESSaltIVFile As String 

‘ Xti ly nut"Create Salt / IV Key " 

Private Sub btnCreateKey„Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCreateKey.Click 
Try 

If PasswordlsVa(id() Then 
crpSample. Password = txtPassword.Text 
Else 
Exit Sub 
End If 

If crpSample.CreateSaltlVFile(strCurrentKeyFile) Then 

MsgBox(‘Salt and IV successfully generated and saved to a .dat “ & _ 
vbCrLf & “file in the Visual Studio .NET Solution root folder.", _ 
MsgBoxStyle.Information, Me.Text) 

End If 

Catch exp As Exception 

MsgBox(exp.Message, MsgBoxStyle.Critical, Me.Text) 

End Try 
End Sub 

' XCf ly cho hai nut " Encrypt" vd "Decrypt" 

Private Sub EncryptDecrypt_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnEncrypt.Click, btnDecrypt.Click 
Dim btn As Button = CType(sender, Button) 




- Coding Techniques — 


213 


Try 

If chkAdvanced.Checked Then 
If lsValid() Then 
With crpSample 

.SaltIVFile = strCurrentKeyFile 
Password = txtPassword.Text 
End With 
Else 
Exit Sub 
End If 
End If 

crpSample.SourceFileName = strSourcePath 

If btn.Name = "btnEncrypt" Then 
crpSample. EncryptFileQ 
Else 

crpSample. DecryptFile() 

End If 

txtCrypto.Text = ReadFileAsString(strSourcePath) 

Catch expCrypto As CryptographicException 
MsgBox(’The file could not be decrypted. Make sure you entered * & 
"the correct password. “ & vbCrLf & _ 

"This error can also be caused by changing * & _ 

"crypto type between encryption and decryption.", _ 

MsgBoxStyle.Critical, Me.Text) 

Catch exp As Exception 

MsgBox(exp.Message, MsgBoxStyle.Critical, Me.Text) 

End Try 
End Sub 

’ XCf ly nut " Load " 

Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnLoad;Glick 
With odlgSourceFile 
.InitialDirectory = *G:\" 

' File ngudn co thi c6 bit ky kiSu nAo. BQ Iqc Filter gidi han 




214 


— Coding Techniques — 

' Text Format chi vdi myc dfch demo 
.Filter = “Text Format (\txt)l\txt“ 

.Filterlndex = 1 

If .ShowDialog() = DialogResult.OK Then 
Try 

txtCrypto.Text = _ 

ReadFileAsString(.FileName) 
strSourcePath = .FileName 
Catch exp As ArgumentException 

MsgBox(exp.Message, MsgBoxStyle.Critical, Me.Text) 

End Try 
End If 
End With 
End Sub 

' XCf ly $i/ki$n CheckedChanged cho checkbox chkAdvanced 
Private Sub chkAdvanced_CheckedChanged(ByVal sender As System.Object, 
ByVal e As System. EventArgs> Handles chkAdvanced.CheckedChanged 
If chkAdvanced.Checked Then 
IbIPassword. Enabled = True 
txtPassword.Enabled,*? True ,/ 
btnCreateKey.Enabled = True 
Else 

IbIPassword.Enabled = False , 

txtPassword. Enabled = False 
btnCreateKey.Enabled = False 
End If -» .. . 

End Sub 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As , 
System.EventArgs) Handles MyBase.Load 
' Quy djnh kiSu crypto mdc nhiSn 
crpSample = New SampleCrypto(“Rijndael’) 

' Quy djnh dudng din de hJu cac file khoa li thU myc g6c cua solution bing 
' each loai bd "bin" trong ten thy myc hien hinh. 

Dim strCurrentDirectory As String = _ 

Microsoft.VisualBasic.Left(Environment.CurrentDirectory, _ 
Len(Environment.CurrentDirectory) - 3) 
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strRijndaelSaltIVFile = strCurrentDirectory & “RijndaelSaltlV.dat" 
strTripleDESSaltIVFile = SfcCurrentDirectory & 'TripleDESSaltlV.daf 

' Quy d[nh file khdat m$c nhj&o cho ki&u crypto m$c nhien 
strCurrentKeyFile 5 ? StrRijndaelSattIVFile : 

btnEncrypt.SelectQ 

FormHasloaded = True 
End Sub 

’ XCs ly siS ki$n Che&edCh*ngedc()&c4c radiobutton . 

Private Sub l^a«HoBtarttO{|B_(^eckedChaniged(ByVat sender As System.Object, 
ByVal e As System.EyentAffls) Handjjes qp^RijndaelAdv.pheckedChanged, 
optTripleDESAdv.CheckedChanged 
if FormHasloaded Than 
If optRijndaelAdv.Checked Then 
crpSample = New SampleCrypto(“Rijndael“) 

StrCurrentKeyFile = StrRijndaelSattIVFile 
Else 

crpSample = New SampleCrypto("TripleDES") 
strCurrentKeyFile = strTripleDESSaltIVFile 

End If . >r , C- 

End If 
End Sub 

' Kiem tra dO lieu nhhp frdn form 
Private Function lsValid() As Boolean 
If Not PasswordlsValid() Then 

Return False ■ ■ ' ' r * ' • 

End If 

If strSourcePath = Then 

MsgBoxfYou must first load a.source'file!", MsgBoxStyle.Exclamation, 
Me.Text) 

Return False 
End If 

Return True 
End Function 
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' Kiem tra password 

Private Function PasswordlsValidQ As Boolean ’■ 

If Not Regex. lsMatch(txtPassword.Text, " A \s*(\w){8}\s*$“) Then 
MsgBoxfYou must enter an 8-digit password consisting of numbers " & _ 
“and/or letters.", MsgBoxStyle. Exclamation, Me.Text) 

Return False 
End If 

Return True 
End Function 

’ Dqc noi dung cua m$t file vi chuy&n n& sang mdt chuSi 
Shared Function ReadFileAsString(ByVal path As String) As String 
Dim fs As New FileStream(path‘, FileMode.Open, FileAccess.Read, 
FileShare.Read) 

Dim abyt(Clnt(fs.Length -1)) As Byte 
ts.Read(abyt, 0, abyt.Length) 
fs.Close() v - 

Return UTF8.GetString(abyt) 

End Function 
• End Class 

25. Windows Role-Based Security 

ChiTcmg trinh n&y chi cAch lflfy thfing tin login v& group cda cdc Windows 
User. Dilu nky cho ph6p ufng dung cflfp ph6p sir dung cdc tlnh n3ng cOa dug 
dung difa tren dinh danh (identity) cQa ngudi sir dung. Ngo&i ra, n6^6n chi 
cdch tao role- based security th6ng qua code. 

,!{ f' 
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Cac chute nanq chfnh: 

> Form chmh cd mpt Tab control chufa hai trang. Trang dau tien ldy 
thdng tin cua ngufti suf dung dang nhap Windows de tao m§t ddi tupng 
WindowsPrincipal. Cac thuoc tmh cua Windowsldentity dupe hi£n thi. 
Trong code suf dung phuong thtfc IsInRole ddnh ddii ede control 
CheckBox dpa trdn nhdm cua thdnh vien. 

> Tab thti hai chufa ede Button thifc hien code md mQt form da dupe bao 
vp dua tren ede ydu cdu an todn. Ndu user 1 d thdnh vi&n cua Windows 
group, form dupe bao ve se md ra. Ndu security exception xdy ra tuong 
tfng vdi user khdng Id thdnh vien cua group, mpt thdng bdo se hiPn thi. 

Khi nhdn nut" Retrieve User Information", chuong trinh ki£m tra user 
hipn dang suf dung c6 Id thdnh vidn cua bdn nhdm: 

• Administrators 

• Power Users 

• Users 

• Managers 

Group Managers Id mot nhdm do ngudi suf dung tao. N£u user khdng Id 
thdnh vien cua nhdm dupe yeu cdu, checkbox bdn canh tdn nhdm se khdng 
dupe ddnh dau. Ngodi ra n£u group Managers khdng t6n tai, checkbox cung 
khdng dupe ddnh dau. 

Neu cd su thay doi thdnh vien nhdm trong Windows de kiem tra ede tlnh 
ndng cua chuong trinh (vi du nhu tao nhdm Managers vd thdm.user vdo n6), 
thi can phai fog off vd log on lai dl ede thay doi cd tdc dung. 


Project: Windows Role-Based Sercurity 
frmMain.vb 

Option Strict On 

Imports System.Security.Principal 
Imports System.Security Permissions 

Public Class frmMain 

Inherits System.Windows.Forms.Form 
1 Code phat sinh form dupe bd qua 

Private idWindows As Windowsldentity 
Private prinWindows As WindowsPrincipal 




' Ldy ten may tinh 

Private machName As String = System.Environment.MachineName 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

' Quy djnh PrincipalPolicy la WindowsPrincipal de anh xa cac group cua 
' he dieu hanh vdo cac role. 

' Ddng lenh ndy cin co cho cac yiu cdu (Demand) role-based security 
AppDomain.CurrentDomain.SetPrincipalPolicy(PrincipalPolicy. WindowsPrincipal) 
End Sub 

Private Sub btnAdminRun_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnAdminRun.Click 

’ Xoa noi dung TextBox 
Me.txtDisplay.Text = String.Empty 

' Doi titdng PrincipalPermission cho phep kiem tra security cua ngifdi sit 
' dung hien hanh bdng each truySn vao ten user va ten group (hodc role). 

' Neu truyen vdo Nothing, tSt cd thdnh vidn cua mot role eg th£ dupe xem x6t, 

' khdng riSng user ndo. 

' Chu y la khdng thS sufdyng WindowsBuiltlnRole d ddy - ta phii truySn vdo 
' mot chuoi sit dgng tit khoa BUILTIN va ten Windows group. 

Dim op As New PrincipalPermissionfNothing, "BUlLTIN\Administrators") 

T ry 

op.Demand() 

Dim frm As New frmProtectedO 
frm.Show() 

frm.txtProtected.Text = String.Format( _ 

"Demand succeeded.{OJUser is a member of the Administrators group. - , _ 
ControlChars.CrLf) 

Catch ex As System.Security.SecurityException 

’ Khoi Catch xit ly cac exception nSu ai do khdng Id thdnh viin cua 
‘ nhom Administrators nhutng c6 thijtc hien code. 
txtDisplay.Text = String.Format( _ 

"Security Exception:{0}{1}{2}Not a member of the Administrators group.", _ 
ControlChars.CrLf, ex.Message, ControlChars.CrLf) 

End Try 
End Sub 
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Private Sub btnLogin_Click(ByVal sender As SystenrQbject, ByVal e As 
System. EventArgs) Handles btnLogin.Click 

‘ Tgo m$t d6i tupng Windowsldentity cho user hipn hdnh sti dpng 
' phddng thdc GetCurrent 
idWindows = WindowsIdentity.GetCurrentQ 

' Tpo 66i ti/png WindowsPrincipal dpa trSn doi tupng Windowsldentity . 

' D6i ti/png WindowsPrincipal chda Group cua user hien hdnh. 
prinWindows = New WindowsPrincipal(idWindows) 

' Danh ddu cac CheckBox dUa tren user co thudc mot role cu the n&o. 
ckAdministrator.Checked = _ 

prinWindows. lslnRole(WindowsBuiltlnRole. Administrator) 
ckPowerUsers.Checked = _ 

prinWindows. IslnRole(WindowsBuiltlnRole.PowerUser) 
ckUsers. Checked = _ 

prinWindows. lslnRole(WindowsBuilttnRole.User) 

' Ten may tinh cdn co dS Idm vide vdi cac tin group /</ tao 
' NS'u group Managers khdng tSn tai, CheckBox khdng dupe danh dau 
' va khdng xiy ra exception nio 
ckManagers. Checked = _ 
prinWindows.lslnRole(machName & “\Managers“) 

' HiSn thj cac thudc tinh cua Windowsldentity 
txtLogin.AppendTexKString.FormatfName: {0}{1}“, _ 
idWindows.Name, ControlChars.CrLf)) 

txtLogin.AppendText(String.FormatfAuthenticationType: {0}{1}\ _ 
idWindows.AuthenticationType, ControlChars.CrLf)) 
txtLogin.AppendText(String.Format("tsAuthenticated: {0}{1} H , _ 
idWindows.^Authenticated, ControlChars.CrLf)) 
txtLogin.AppendText(String.Format('“lsAnonymous: {0}{1}", _ 
idWindows.IsAnonymous, ControlChars.CrLf)) 
txtLogin.AppendText(String.Format(‘lsGuest: {0}{1}“, _ 
idWindows.IsGuest, ControlChars.CrLf)) 
txtLogin.AppendTextfString.FormatflsSystem: {0}{1)“, _ 
idWindows.IsSystem, ControlChars.CrLf)) 
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txtLogin.AppendText(String.Format("Token: {0}{1}", _ 
idWindows.Token, ControlChars.CrLf)) 

IbIProperties. Visible = True 
End Sub 

Private Sub btnManagerRun_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnManagerRun.Click 
txtDisplay.Text = String. Empty 

' MachineName l& bit budc khi suf dung cac group tu tao. NSu user khdng 
' phii li thinh viin cua group, ho$c group khdng t6n tpi, m$t security exception 
' se dupe thrown vi Demand se ditng . 

Dim op As New PrincipalPermission(Nothing, machName & “\Managers") 

Try 

op.DemandQ 

Dim frm As New frmProtected() 
frm.Show() 

frm.txtProtected.Text = String.Format( _ 

"Demand succeeded.{0}User is a member of the Managers group.", ^ 
ControlChars.CrLf) 

Catch ex As System.Security.SecurityException . , 

txtDisplay.Text = String.Format( _ 

"Security Exception:{0}{1}{2}Not a member of the Managers group.*, _ 
ControlChars.CrLf, ex.Message, ControlChars.CrLf) 

End Try 
End Sub 

Private Sub btnPowerRun_Click(ByVal sender As System.Object, ByVale As 
System.EventArgs) Handles btnPowerRun.Click 
txtDisplay.Text = String.Empty 

' group Power Users li m$t group xiy di/ng sin cua Windows 
Dim op As New PrincipalPermission(Nothing, "BUILTIN\PowerUsers") 

Try 

op.Demand() 

Dim frm As New frmProtectedO 
frm.Show() 

frm. txtProtected. Text = String. Format( _ 

"Demand succeeded. {OJUser is a member of the Power Users group.", _ 
ControlChars.CrLf) 
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Catch ex As System.Security.SecurityException 
txtDisplay.Text = String.Format( _ 

“Security Exception:{0}{iy{2}Not a member of the Power Users group.", 
ControlChars.CrLf, ex.Message, ControlChars.CrLf) 

End Try 
End.Sub 


Private Sub btnUnion_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnUnion.Click 
txtDisplay.Text = String. Empty, 

■ y. 

' Co thi t$o m&t Demand <34 ki4m tra nhiSu group bdng cdch sti dung phddng 
' thcfc Union. VI dy ndy <3di hdibser phii Id thdnh vien cua Power Users hodc 
' Managers. N4u user kh6ng Id thdnh vidn cua ci hai group, mdt security 
‘ exception se dupe thrown. 

‘ Tyo cac instance PrintipalPermission cho PowerUsers vd Managers 
Dim opPower As New PrincjpalPermission(Nothing, “BUILTINVPowerUsers") 
Dim opMgr As New PrincipaiPerrnissi6n(Nothing, machName & “\Managers") 


' Sd dyng Union d4 k4t hyp Managers vd Power Users 
Try 

opPower.Unlon(dplfilgr).demandO j i 

Dim frm As NevjMrmProtectedO — r ^ 
frm.ShowQ ' r ; : ; 

■. J if •' * .) l|i 1 F f ..■ 5 ’ ■ 

frfn.txtProtppted.TejAs String. FonFafy . 


■Qemand succeeded{0}User is a member of the Power Users or the 
Managers grbup.\ J ^ '.Vf 1 ‘ .. \ ;5 ' 

Controtdhars:Cft^ v , ? ^ " *' 1 ^ 

‘ a '.A 1, rix X ..h - J 


'fc. ■ .,>! 


Catch ex As System.SecuritylSecurityException 
txtDisplay.Text = String.Format( _ 

"Security Exceptloihr:{0}{1}{2}Nbt d fhember of Managers or Power Users.", 
ControlChars.CrLf, ex.Message, ControlChars.CrLf) 

End Try 
End Sub 


End Class 
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26. Stf dung thuat toan ma hoa Hash (b&m) 

Cdc gid tri Hash (Hash Value hodc Hash Digest) Id cdc sd duy nhdt vd cac 
ky c6 dong dai dipn cho mpt phdn da lieu. Thay ddi dCi chi mQt ky tO' trong 
file nguon c6 thd ldm cho gid tri hash thay doi hodn todn. Hash done su dung 
cho vi$c bdo ddm tinh todn ven cua da lipu. VI du, bdng cdch so sdnh gid tri 
Hash phdt sinh trade khi gufi message vdi gid tri Hash phdt sinh sau khi 
nhan message, ngadi nhdn c6 the xdc dinh daac messege cd bi ha (l5i mdt dff 
lieu, hodc sai) hay khbng. Chacfng trinh ndy bidu didn edeh stir dpng ede chdc 
ndng hash vdi muc dlch ndy. ■_ , 


g ’ 


Sd dufiq thu.iit (uAft ma hoa Hash 


NortSwid ptodupU btng MimMd ove* Iho w»». 


<?Kml vertiort*‘T(r dandatone»'‘yM'7> 
<NewO«aSei> 

<Tabte> 

<Pi&dudtO>l </Piaiuc»lD> 

<f^odudtlanfi>Chak/ProdLiclHante> 

<Un*Pric«>ie<AJr*lPiice> 

</TaUs> 

<TaUe> 

<ftoducdO>2</ProdudiD> 

<ftoduc>N«rm>Ctangr</pToductMame> 

<lWPrice>19</pnjtPice> 

</Tate> 

<Tabb> 

<Product©>3<ModucdD> 

< PlodudNamoAfiiseed SynjfK /PioductN ame> 
<Untf“nc«>1^pAintf 1 Mc«) 




RwMrtWl | 



Cac chufc njnfl chinh: r- 4 ^ > a 1 ^ 

Nga ednh: Gid sur edng ty North wind dd gOTm^t dan! sdeh cie sdn phdm 
vd gid cho chung ta. Da li£u daac truydn trdn m0t kdt otfi std todn, nhang cd 
hai ben deu mutfn bdo ddm Id danh sdeh khftng hi l&itrbn^ qud trinh truydn. 

> Khi chay Ong dung ndy, mpt tdi lidu XML ttogc vd^hpfa tdt cd cdc 

sdn phdm ldy ta database SQL Server Northwii^ t ys| chuydnDataSet 
vdo tdi lieu XML. Gid l$p ndy thay cho ngadi gift tl£ U0u ngudn. 
Noi dung cua tdi li$u ndy sau dd dope dpcvdo mOt StreamReader vd 
chuyin thdnh m0t chufii d! hil» thi tr^gTextjBcfX. c^y; thay 

cho viec nhan tdi li0u daac truyesi. ^ ’ , 

> Ngodi ra, khi Form daac load, -{Q0t-f4P5 hash 4l9 e ^ daac tao dl sa 
dung 1dm "khda" gdc dd ta c6thd ki|m tra tdi lifu XML daac. truydn. 
Nhdn vdo nut Compare! dd so sdnh hash digest ctia "tdi li0u nhdn 
daac" vd hash digest gdi ta Northwind. Thay ddi n$i dung cua TextBox 
vd nhdn Compare! dd thdy kdt qud. 

> Chaang trinh ndy sa dung ba kieu hash khde nhau: MD5, SHA1 , vd 
SHA384. 
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Project: Cryptographic Hash Algorithms 


frmMain.vb 

Option Strict On 
Imports System.Data.SqlClient 
Imports System.Security.Cryptography 
Imports System.10 
Imports System.Text 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code phat sinh form dUdc bo qua 

Protected Const COMPARE .INSTRUCTIONS As String = _ 

’Click Compare! to generate a hash digest based on the product listing " & 
“to the left. The original and new hash digests will then be compared “ & _ 
‘to authenticate the displayed product listing." 

Protected Const CONNECTION_ERROR_MSG As String = _ 

"To run this sample, you must have SQL or MSDE 
Protected Const MSDE„CONNECTiON_STRING As String = _ 
"Server=(local)\NetSDK;“ & _ 

"DataBase=northwind;" & _ 

“Integrated Security=SSPI" 

Protected Qoost SQL^CONNECTION_STRING As String = _ 
"Server=localhost;‘ & _ 

"DataBase=northwind;“ & _ 

“Integrated Security=SSPI‘ 

Private DidPreviouslyConnect As Boolean = False 
Private FormHasLoaded As Boolean = False 
Private tjash As Byte() 

Private strConn As String = SQL_CONNECTION_STRING 
Private strOriginaIXML As String 
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' Xii ly nut "Compare!". No so sanh tiing byte, hash digest g6c vdi 
' hash digest phat sinh tU TextBox bSn trai. 

Private Sub btnCompare_Click(ByVai sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCompare.Click 

’ Tpo mot doi tupng Encoding dS co the sit dung phi/dng thdc GetBytes 
' de tao cac ming byte 
Dim uEncode As New UnicodeEncoding() 

’ Tao mot ming byte tit file XML g6c dupe gifi tit Northwind 
Dim bytHashOriginal As Byte() = uEncode.GetBytes(txtHashOriginal.Text) 

' Phat sinh mot hash digesl tit ndi dung cua TextBox. Ndi dung nay gii lap cho 
' XML nhin dupe tU Northwind thdng qua dudng truyen. Ta cin so sanh gia trj 
' hash mdi vdi gia trj hash g6c d4 bio dim XML khdng bi Idi trong 
‘ qua trinh truySn. 

Dim strHashForCompare As String ='GenerateHashDigest(txtXML.Text) 

' Tii hash digest mdi, tao mdt ming byte dS so sinh vdi ming byte chUa 
' hash digest goc. 

Dim bytHashForCompare As Byte() = uEncode.GetBytes(strHashForCompare) 
' Hi4n thi hash digest mdi trong TextBox 
txtHashForCompare.Text - strHashForCompare 

' Duyet qua ti't ci cac byte trong cac gia trj hash 
Dim i As Integer 

For i = 0 To bytHashOriginal.Length - 1 

' So sanh titng byte, nS'u cd bat ky gia trj khdng bang nhau thi hien 
’ thi mdt thdng bao va thoat vong lip. 

If bytHashOriginal(i) <> bytHashForCompare(i) Then 
IbIResults.Text = “Data has been corrupted!" 

Exit For 
Else 


' Tit ci cic byte bing nhau do do XML dupe truyen thinh cong. 
IbIResults.Text = "Comparison Successful." 

End If 
Next i 


End Sub 
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' Xii ly nut"Restore XML". Giup nhanh chong co dupe XML goc khdng bi tSi. 

Private Sub btnRestore_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnRestore.Click 
txtXML.Text = strOriginaIXML 
End Sub 

' Thu tpc niy gpi m$t thu tyc khic d4 tpo tii lidu XML gic, dpc ndi dung XML, hiSn 
' thj nd trong TextBox Idn, sau dd gpi mdt him phit sinh MD5 hash digest d4 
’ hiSn thj trong TextBox d phia trSn. 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

' Tao tii li$u XML gii lip cho danh sich sin phim gic I4y td Northwind 
CreateOriginalProductsList() 

' Md tii liiu XML vi chuyin thinh mot chudi. Gii lip cho danh sich 
' sin ph£m nh$n dupe 

Dim sr As New StreamReader("..\products.xmr) 

strOriginaIXML = sr.ReadToEnd 

sr.CloseO 

’ Hiin thj XML nh$n dupe vi hash digest dupe sCt dyng de kiem tra XML da nhin. 
' Hash digest nay phat sinh til npi dung goc, khdng phii td XML hien thj 
' trong TextBox 

txtXML.Text = strOriginaIXML 

txtHashOriginal.Text = GenerateHashDigest(strOriginalXML) 
txtHashForCompare.Text = COMPAREJNSTRUCTIONS 

' Gpi Select() de chuyin tiiu diim (focus) din nut "Comparer tranh vide 
' XML trong TextBox ddpc td ddng chon. 
btnCompare.Select() 

' Gia trj nay sd dpng de tranh code trong thu tyc sp kien CheckedChanged 
' chpy trddc khi form dupe load. 

FormHasLoaded = True 
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' Thu lyc niy xO ly CheckedChanged cho ba RadioButton. ThO tyc niy phit sinh 
' mdt hash digest mdi di/a trin kiiu dupe chQn vi khdi tyo tai giao diin (Ul). 

' Code dUQc dit trong kiSm tra FormHasLoaded d£ bio dim no khdng chyy 
' tri/dc khi form dupe load 

Private Sub RadioButtons_CheckedChanged(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles optSHAI .CheckedChanged, 
optMD5.CheckedChanged, optSHA384.CheckedChanged 

If FormHasLoaded Then 

txtHashOriginal.Text = GenerateHashDigest(strOriginalXML) 
txtH as h ForCompa re. Text = COMPAREJNSTRUCTIONS 
IbIResults.Text = "" 
btnCompare.Focus() 

End If 
End Sub 

‘ ThO tyc niy tyo tii li$u XML stir dyng cho so sinh hash 
Sub CreateOriginalProductsList() 

* Hiin thj thing bio cho biSt dang thi/c hiQnkdt n6i: 

Dim frmStatusMessage As New frmStatus() 

If Not DidPreviouslyConnect Then 
frrnStatusMessaige.Show("Connecting to SQL Server") 

End If 

' Thi/c hi$n k£t n6i 

Dim IsConnecting As Boolean = True 
While IsConnecting 
Try 

Dim scnnNW As New SqlConnection(strConn) 

Dim strSQL As String = _ 

"SELECT ProductID, ProductName, UnitPrice " & _ 

"FROM Products" 

' D6i tupng SqlCommand sti dyng dS thyc hi$n cic l$nh SQL 
Dim semd As New SqlCommand(strSQL, scnnNW) 

’ SqlDataAdapter sCt dung ddi tupng SqlCommand d£ dUa dd lieu vio DataSet 
Dim sda As New SqlDataAdapter(scmd) 
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' Tqo mot DataSet mdi vk dUa di1 Hu vko DataTable diu tiSn cua nd 
Dim dsProducts As New DataSetO 
sda.Fill(dsProducts) 

' ChuySn DataSet sang XML 
Try 

dsProducts.WriteXm)(’..\products.xml') 

Catch exp As Exception 

MsgBox(exp.Message, MsgBoxStyie.Critical, Me.Text) 

End Try 

’ DO Hu da tSy xong, thoat vdng Ikp vk ddng form tr$ng thki 
tsConnecting = False 
DidPreviouslyConnect = True 
frmStatusMessage.CJose() 

Catch expSql As SqlException 

MsgBox(expSql.Message, MsgBoxStyie.Critical, Me.Text) 

Exit Sub 

Catch exp As Exception 

If strConn = SQL.CONNECTION .STRING Then 

' Khdng thS kit n6i vko SQL Server. ChuySn qua MSDE 
strConn = MSDE_CONNECTION_STR!NG 
frmStatusMessage.ShowCCpnnecting to MSDE a ) 

Else 

' Khdng thS kSt nSi vko SQL Server hokc MSDE 
frmStatusMessage.Close() 

MsgBox(CONNECTION_ERROR_MSG, MsgBoxStyie.Critical, Me.Text) 
End 
End If 

End Try 

End While 


End Sub 
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1 Him niy thi/c hiin cdng vi$c ma hoa, phit sinh cac kiSu hash digest 
Function GenerateHashDigest(ByVal strSource As String) As String 
Dim uEncode As New UnicodeEncoding{) 

Dim bytProducts() As Byte = uEncode.GetBytes(strSource) 

If optMD5.Checked Then 

Dim md5 As New MD5CryptoServiceProvider() 
hash = md5.ComputeHash(bytProducts) 

Elself optSHAI .Checked Then 

Dim shat As New SHA1CryptoServiceProvider() 
hash = shal .ComputeHash(bytProducts) 

Else 

Dim sha384 As New SHA384Managed() 
hash = sha384.ComputeHash(bytProducts) 

End If 

* Base64 fit m$t pht/dng thi/c ma hda di7 li$u nhj phin sang d?ng vin bin ASCII 
Return Convert.ToBase64String(hash) 

End Function 
End Class 


Phan III - Ket hcfp nhieu phan 


27. Dieu khifsn Internet Explorer 

Chirang trinh nky bilu diin cdch dilu khiln Internet Explorer. 


a f)»PU khien lr»t» met f 




IE Properties 

Tn>e In a URL, and dkk "Siamt". Internet Explore <yi open wihthe property* that you specify 

Address: [hHp:V/>*ww.f*booktvncom Browse 

Opbon*: Portion and Size: 

r Show Addat. Bat To *» [0 


f - MenuBar 
r Ratable 
r Statu* Bar 
l~ Thealol Mode 


H «l*» |45T 

Wtth l&40~ 
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Cac chufc n5na chfnh: 

> Chifcmg trlnh nky chi cdch suf dung Internet Explorer 14m m$t ActiveX 

Control. , v • , 

> Cdch di£u khien Internet Explorer v4 quydpoh nhiSu thuQc tlnh nhu 
kich thitdc, cAc thanh c6ng cu,... 

C&c control chinh: 


Loei * 

WBSSSSStKKKKB 

GUI tri 

AxWebBrowser 

(Name) 

ieForHostina 


Project: Di^u kHUn IE 
frmMain.vb 
Option Strict On 
Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code phtit sinh form dtipc tx 5 qua 

Protected htmIDocActiveX, htmIDocAutomation As mshtmUHTMLDocument2 
Protected WithEvents ieForAutomation As SHDocVw.InternetExplorer 
Protected ieElement As mshtmUHTMLEIement 
Protected frmStatus As frmStatus 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

' ieForHosting IA mdt ActiveX control. D6i ttipng AxSHDocVw. WebBrowser 
' dupe sCt dqng khi mu6n ch$y IE nhti l& m$t control nhting v&o ting dung. 
ieForHosting.Navigate(*www.ntbooksvn.com") 

E nable N av If H istory () 

End Sub 

Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnBrowse.Click 
ieForHosting.Navigate(tbAddress.Text) 

End Sub 

Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnBack.Click 
htm IDoc ActiveX. pa re ntWi ndow. history. go( -1) 
tbAddress.Text = htmIDocActiveX.url 
* End Sub 
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Private Sub btnForward_Click(ByVal sender As System.Object, ByVa! e As 
System. EventArgs) 

htmlDocActiveX.parentWindow.history.go(+1) 
tbAddress.Text .= htmtOocActlveX.urt 
End Sub 


Private Sub btnBrowse2^CIick(ByVal sender A% System.Object, ByVal e As 
System.EventArgs) Handles btnBrowse2.Cnck 

' Md Internet Explorer, vA c£u hkth Qiao di$n di/a trip cic option dupe chon 
if ieForAutomation Is Nothing Then 
ieForAutomation = New SHDocVw.1nternetExplorer() 


End If 

ieForAutomation 

ieForAutomation 

ieForAutomation 

ieForAutomation 

ieForAutomation 

ieForAutomation 

ieForAutomation 


AddressBar = chkAddressBar.Checked 
FuilScreen = chkFullScreen.Checked 
MenuBar = chkMenuBar.Checktid 
Resizable = chkResizable.Check£d ' 

StatusBar = chkStatusBar.bhecketf V 

t'JLii 


' it m* 
v 


TheaterMode = chkTheaterMdde.t 
ToolBar = Convert.Tolnt32{chkTool83; .Chewed) 


If IsNumeric(txtHeight.Text) Then 

ieForAutomation.Height = lnt32.Parse(txtHeight.Text) 
End If 

If IsNumeric(txtWidth.Text) Then 
ieForAutomation.Width = lnt32.Parse(txtWidth.Text) 
End If 

If IsNumeric(txtTop.Text) Then 

ieForAutomation .Top = lnt32.Parse(txtTop,Text) 

End If 

If IsNumeric(txtLeft.Text) Then 

ieForAutomation.Left = lnt32.Parse(txtLeft.Text) 

End If- 


Me.Cursor = Cursors. WaitCursor 
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frmStatus = New frmStatus() 

frmStatus.Show("Connecting to Web page and processing HTML. Please stand 
by...') 

ieForAutomation. Visible = True 
ieForAutomation.Navigate(tbAddress2.Text) 

End $ub 

Private Sub chkAddressBar_CheckedChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles chkAddressBar.CheckedChanged 
* Thanh Address chi hien thj khi cho phep Toolbar 
If chkAddressBar.Checked = True AndAlso _ 
chkToolBar.Checked = False Then 

If MessageBox.ShowfYou must also enable the toolbar for the " & _ 
"address bar to be visible. Do you want to enable the ‘ & _ 

"tool bar?', _ 

"Enable ToolBar?*, _ 

MessageBoxButtons.YesNo, _ 

MessageBoxIcon.Question) = DialogResult.Yes Then 

chkToolBar.Checked = True 

End If 
End If 
End Sub 

’ XCf ly khi trang Web da load xong 

Private Sub ieForAutomation_DocumentComplete(ByVal pDisp As Object, ByRef 
URL As Object) Handles ieForAutomation.DocumentComplete 

Me.lnvoke(New HideStatusDelegate(AddressOf Me.HideStatus)) 

End Sub 

Private Sub ieForAutomation_OnQuit{) Handles ieForAutomation.OnQuit 

ieForAutomation = Nothing 
End Sub 
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’ Xti ly khi trang Web da load xong. Neu khdng thijc hi$n gan htmIDocActiveX d 
' vj tri khac trong chuong trlnh thi se nhdn di/pc mdt tham chiSu null nSu tdi li$u 
' chua load xong.. 

Private Sub ieForHosting_DocumentComplete(ByVal sender As System.Object, 
ByVal e As AxSHDocVw.DWebBrowserEvents2_DociimentCompleteEvent) 
Handies ieForHosting.DocumentComplete 

htmIDocActiveX = CType(ieForHosting.Document, mshtml.!HTMLDocument2) 
Me.lnvoke(New OnCompleteDelegate(AddressOf Me.OnComplete), _ 

New Objecf() {htmIDocActiveX}) 

End Sub 

Protected Sub EnableNavlfHistory() 

' N&u chUa c6 History, khdng cho sit dyng cac nut Forward va Back 
If htmIDocActiveX Is Nothing OrElse 
htmIDocActiveX.parentWindow.history.length = 0 Then 
btnBack.Enabled = False 
btn Forward. Enabled = False 
Else 

btnBack.Enabled = True 
btnForward.Enabled = True 
End If 
End Sub 

' An form trang thii khi load xong trang web 
Delegate Sub HideStatusDelegateO 
Protected Sub HideStatusO 
frm Status. Hide() 

Me.Cursor = Cursors. Default 
End Sub 

' XlS ly khi ActiveX control hodn tit vide load tii li$u 

Delegate Sub OnCompleteDelegate(ByVal htmIDoc As mshtml.lHTMLDocument2) 

Public Sub OnComplete(ByVal htmIDoc As mshtml.lHTMLDocument2) 

tbAddress.Text = htmIDoc.url 
* 

EnableNavlfHistory() 

End Sub 
End Class 
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Phan IV - File 

28. Truy xu&'t File System 



Chtfcmg trinh n&y cho ph6p tim hi4u s&u hon mgt control TreeView chtfa 
th6ng tin thtf muc vh file system, chon cdc thu muc hoSc 0c file v& xem 
th6ng tin ve cdc d6i ttfgng da chon. Cu the \k cho thay mgt stf phtrcfng thifc 
chia s& (shared) ctia cdc class Directorylnfo vk Filetnfo, ciing vdi cdc phucfng 
thtfc cua instance eua cdc class n&y. Ngo&i ra, chtfcfng trinh cbn suf dung tinh 
thira k£ class FileSystemlnfo cfia hai dtfi tirong Directorylnfo vk Filelnfo, suf 
dung ciing mgt thu tuc d4 hi4’n thi th6ng tin cho ck hai loai doi tirong. 

Project: File System 

frmMain.vb 

■ Option Strict On 
Imports System,IO 
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Phan IV - File 

28, Truy xu&t File System 



Churong trinh ndy cho phdp tim hilu s&u hem m6t control TreeView chtfa 
thdng tin thif muc vd file system, chon ede thif muc hodc 0c file vd xem 
thong tin vl ede ddi tuong dd chon. Cu th£ Id cho thay mot so phuong thde 
chia sd (shared) cua ede class Directorylnfo vd Filelnfo, ciing vdi ede phuong 
thurc eda instance eda ede class ndy. Ngodi ra, chitong trinh cbn suf dung tlnh 
thifa kd' class FileSystemlnfo cua hai ddi tuong Directorylnfo vd Filelnfo, suf 
dung ciing mpt thu tuc dl hiln thi thdng tin cho cd hai loai doi tirgng. 

Project: File System 

frmMain.vb 

• Option Strict On 

• Imports System.10 
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Public Class frmMain 

Inherits System.Windows.Forms.Form 

'Code phat sinh form di/qc bd qua 

Private Sub frmMain_Load(ByVal sender As Object, ByVai e As System.EventArgs) 
Handles MyBase.Load 
LoadTreeView() 

End Sub 


' SCf dung vdn bin nay cho cac node gii trong TreeView. 
Private Const DUMMY As String = ’DUMMY" 




' DCmg dS theo doi m$t phin tCt dupe ch<?n Id mQt fife hay thU mgc 
Private Enum ItemType ^ 

Directory = 1 - 

File = 2 . - " 

End Enum '"V'•* -f >-.-■&<>*/ ; 

" J " L ' 

Private Sub mnuRefresti_Click(ByVal sender Ail Syst^.Qtjject, 0y\^eA&, 
System.EventArgs) Handies mnuRefresh.CAcfc ' 

i .' . - ■ : 


LoadTreeView() 

End Sub 

Private Sub tvwRoot_ 
System .Windows. Forms. 


■fxK 


0 A8 


Try 


With e.Node 
Select Case .Tag 
Case ItemType.File 


‘d'i\ - . ■ ■ 


' D6i tuqng Filelnfo khdng hd trg c&c thuQc tlnh Parent vk Root 
IblParent.Text = String.Empty 
IbIRoot.Text = String. Empty 


' Disable/Enable ckc label. 
IbIParentLabel. Enabled = False 
IbIRootLabel. Enabled = False 
IbILengthLabel.Enabled = True 
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' LA'y m$t d6i tiling Filelnfo ttidng ting vdi file dtipc chQn, 

' sau do hiSn thj cAc thuQc tinh ctia n6 
Dim fi As New Filelnfo(.FullPath) 
ibILength.Text = fi. Length .ToString 
DisplayFSIProperties(fi) 

Case ItemType.Directory 

’ D6i ttipng Directorylnfo khdng cd thuQc tinh Length 
ibILength.Text = String.Empty 

' Disable/Enable cac label. 

IbILengthLabel.Enabled = False 
IbIParentLabel.Enabled = True 
IbIRootLabel. Enabled =True 

' L£y d6i ttipng Directorylnfo ttidng ting vdi thti muc dtipc chQn, 

’ sau do hiSn thi cAc thuoc tinh ctia no. 

Dim di As New Directorylnfo(.FullPath) 

IbIParent.Text = di.Parent.Name 
IbIRoot.Text = di.Root.Name 
DisplayFSlProperties(di) 

Case Else 

’ Xoa cAc label 
ClearProperties{) 

End Select 
End With 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

End Try 
End Sub 

Private Sub tvwRoot_BeforeExpand(ByVal sender As Object, ByVal e As 
System. Windows.Forms.TreeViewCancelEventArgs) Handies 
tvwRoot. BeforeExpand 

' Trtidc khi md mdt node, lo$i bd cAc node con da cd. HAm nAy giA lap each 
' lAm vide ctia Windows Explorer: nSu cd cAc file ho$c thti mijc trong 61a th) 

' TreeView hien thj chung. NSu khdng, chi don giin lAm bid’n mit dA'u + khi 
' thi/c hidn md node. 
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Try 

e.Node.Nodes.Clear() 

' Li'y cic tin thu myc vi cic tin file 
AddFolders(e.Node) 

AddFiles(e.Node) 

Catch exp As lOException 

' Co th£ dia chUa sin sing. Chi bo qua l6i. 

Catch exp As Exception 

' Ni'u l6i khic xiy ra, hi£n thj thing bio 
MessageBox.Show(exp.ToString, Me.Text) 

End Try 
End Sub 

Private Sub AddFiles(ByVal nod As TreeNode) 

Dim strPath As String = nod.FullPath 
Dim strFile As String 

With nod 

For Each strFile In Directory.GetFiles(strPath) 

With nod.Nodes.Add(Path.GetFileName(strFile)) 

.Tag = ItemType.File 
End With 
Next 
End With 
End Sub 

Private Sub AddFolders(ByVa) nod As TreeNode) 

Dim strPath As String = nod.FullPath 
Dim strDir As String 

With nod 

For Each strDir In Directory.GetDirectories(strPath) 

! Path.GetFileName chi tri vi phin tin cua dudng 
' din diy du duqc tri vi til phudng thtic GetDirectories 
With nod.Nodes.Add(Path.GetFileName(strDir)) 

' Lifu l$i phin tO niy li m$t thu myc. Ta cin thing tin nay sau niy. 
.Tag = ItemType.Directory 
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' ThSm m$t node gii d£ d£u + xuat hiSn. 
. Nodes. Add(DUMMY) 

End With 
Next 
End With 
End Sub 


Private Sub ClearProperties() 
!blParent.Text = String. Empty 
IblRoot.Text * String.Empty 
lb I Length. Text == String.Empty 
. IblAttributes.Text = String.Empty 


IblCreationTIme.Text = String.Empty 
IblLastAccetusTime.Text ■« String .Empty 


IblLastWriteTime.Taxt = String.Empty 
(blExtension r Text.» Sldfi^j .Empty 
IbIFullName.Text *$ftrtag.Empty 


lblName.Text= Striftg.Empty 
End Sub 


Private Sub DisplayFSIProperties(ByVal fsi As FileSystemInfo) 

' HiSn thf m$t s6 thdng tin Chung cho ci hat d6i tupng Directorylnfo vi Filelnfo. 
' Chu y, ci hai d6i tupng dSu thtfa k£ tit FileSystemlnfo 
IblAttributes.Text = fsi. Attributes. ToString 
IbICreationTime.Text = fsi.CreationTime.ToString 
IbILastAccessTime.Text = fsi.LastAccessTime.ToString 
IbILastWriteTime.Text = fsi.LastWriteTime.ToString 
IblExtension.Text = fsi.Extension 
IbIFullName.Text = fsi.FullName 
IblName.Text = fsKName 
End Sub 


Private Sub LoadTreeView() 

Dim strDrive As String 

' Duyet qua ti't ci driver co trdn miy tfnh, tpo m6i <Jia mdt node. Ngoai ra, 
' thSm mdt node gii vio cic node da tSn tai de xui't hiSn diu + 

' Directory. GetLogicalDrives tra vi mdt ming chuSi, mSi phin tCl ti/dng 
' Cing cho mot dia trdn may tinh. 
tvwRoot. Nodes.Clear() 
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For Each strDrive In Directory.GetLogicalDrives() 
With tvwRoot.Nodes.Add(strDrive) 

.Nodes. Add(DUMMY) 

End With 
Next 


End Sub 


End Class 


29. Theo doi File System • 

.NET Framework ldm cho vi£c theo dQi cdc thay dffi'taf&h File System dl 
dang hdn, class FileSystem Watcher c6 th£ phdtdinhcdd^ ki$n khi ta tao, 
x6a, thay d6i, ho&c ddi ten cdc file trong <&iftmg trinh dang 


theo d5i. 





Cac chufc njnfl chinh: ^ 

Churcfng trinh bilu diin cdch sur dung mpt sh thugc tlnh cua 
FileSystemWatcher: 

Path Birdng din se dirge theo d6i. 

Filter Cdc kiiu file sS dirge theo d5i. Mac nhiin la *.*. 

Notify Filter Cdc ki&i thay d6i se dirge theo d6i. Thu6c tlnh nay c 6 thl la 0 
hole la sir k£t hgp nhilu gid tri cua System.10.NotifyFilters. Mac nhi£n, 
FileSystemWatcher theo doi cdc thay ddi FileName, DirectoryName, vd 
LastWrite. 


IncludeSubdirectories Cho bi£t c6 theo doi cdc thir muc con cua dttfrng 
din dirge chon. 

EnableRaisingEvents N6u Id True, doi tirgng theo doi cdc thay d6i trdn 
file system vd phdt sinh cdc stf kien khi c6 sg thay d6i. Trong chirong trinh 
ndy, thuoc tlnh ndy dirge dilu khi£n blng mot CheckBox dirge hiln thi nhir 
Id mot nut bit/tit (thupc tlnh Appearance). 
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Nhan ntit Enable Raising Events d£ bit tinh n&ng theo doi cho d&'i tirgng 
FileSystemWatcher. Cde thu tuc si/ kiin trong form se lin h/gt ghi cdc thong 
bdo vdo ListBox khi thay ddi cdc file trong dirtmg din dirge chon. B£ cho vi§c 
thd nghidm di ddng hem, c6 th£ sur dung cdc ntit 

Create/Rename/Modify/Delete Sample File tr£n form. Cdc nut ndy tao, thay 
dtfi t&n file, thay doi noi dung, vd x6a cdc file tarn thdi trong thir muc dirge 
chon. Dung nut Delete All Sample Files d£ x6a t&'t cd ede file tao ra trong 
qud trinh thuf. 

Ngudi sur dung cung c6 th£ dung Windows Explorer hodc ede tfng dung 
khde dl tao, thay d6i tdn, thay ddi ngi dung, vd x6a ede file. ChiTdng trinh 
ndy vln hiln thi ede th6ng bdo tuong ting, bdi vi FileSystemWatcher theo 
doi ede thay d6i md khdng quan tdm d£n chircmg trinh thay dtfi. 

Cac control chfnh: 


Loai 

Thugc tinh 

Gia trj 


(Name) 

fsw 

CheckBox 

(Name) 

chkEvents 


Appearance 

Button 


Project: Theo d6i File System 
frmMain.vb 
Option Strict On 

■ Imports System.10 

■ Imports System.Enum 

■ Public Class frmMain 

Inherits System.Windows.Forms.Form 

- ' Code phit sinh form dupe bd qua 

‘ Khi chitting trinh tpo file tgm, no sd dung ten niy I Am tin gd'c 
Private Const FILE_ROOT As String = “Ternpfite.txt" 

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnClear.Click 

' X6a danh sach cac $ 1 / ki$n trin cac file 
IstEvents.Items.Clear() 

End Sub 
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Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCreate.Click 
Try 

Dim strFile As String = GetUniqueFileName(fsw.Path, FILE_ROOT) 

' T$o mot file va dong lai ngay l$p titc 1 , ; 

File.Create(strFile).CIose() . 

1 Them file mdi vAo combobox 
cboSampleFile. Items.Add(strFile) . 

cboSampleFile.Text = strFile 

' Enable v£ Disable c&c button 

Handleltems{) ;CTr‘.'_^]: r 

- C‘ ' ■ .i\ 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me. Text). 

End Try . r e 

End Sub 

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDelete.Click 
Dim strName As String = cboSampleFile.Text 

' Neu file vin cdn tdn t$i, x6a n6, v& c$p nh$t l$i combobox 
if CheckFile(strName) Then 
Try 

File.Delete(strName) 

RemoveFiieName(strName) 

Handleltems() 

Catch exp As Exception 
MessageBox.Show(exp.Message, Me.Text) 

End Try 
End If 


End Sub 
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Private Sub btnModify_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnModify.Click 
Dim strName As String = cboSampleFile.Text 

' Ne'u file vin con t6n tai, thay d6i n&i dung cua no 
If CheckFile(strName) Then 
Try 

Dim fs As New FileStream(cboSamp!eFile.Text, FileMode.Append) 

Dim sw As New StreamWriter(fs) 

sw.WriteLinefThis is more text") 

sw.CloseO 

fs.Close() 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

End Try 
End If 
End Sub 

Private Sub btnRename_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnRename.Click 
Dim strOld As String 
Dim strNew As String 

' n§u file van cdn ton tai, doi ten no 
strOld = cboSampleFile.Text 
If CheckFile(strOld) Then 

strNew = GetUniqueFileName(Path.GetDirectoryName(strOld), _ 

Path.GetFileName(strOld)) 

Try 

File.Move(strOld, strNew) 
cboSampleFile. Items. Remove(strOld) 
cboSampleFile. Items. Add(strNew) 
cboSampleFile.Text = strNew 

Catch exp As Exception 

MessageBox.Show{exp.Message, Me.Text) 

End Try 
End If 
End Sub 
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Private Sub cboSampleFile_$electedlndexChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
cboSampleFile.SetectedindexChanged 

' KiSm tra xem file cd cdn tSn tai. N4u khdng cdn, b$i tin file khdi danh sich 
CheckFile(cboSampleFile.Text) 

Handleltems() 

End Sub 

Private Sub chkEvents_CheckedChanged(ByVal sender As System. Qt^ect, By Vat 
e As System.EventArgs) Handles chkE vents.CheckedChanged -J 

Dim blnlsRunning As Boolean 

If chkEvents.Checked Then 

Tf y 

GatherFSWProperties(fsw) 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 
chkEvents.Checked = False 

End Try 
End If 

' Dd'i tiiQng FileSystemWatcher co theo doi cac thay d6i hay khdng? 
blnlsRunning = chkEvents.Checked 
fsw.EnableRaisingEvents = blnlsRunning 

’ Niu co theo doi, disable cac control ch<?n thuoc tinh 

’ Neu khdng, enable cac control 
txtPath.Enabled = Not blnlsRunning 
txtFilter.Enabled = Not blnlsRunning 
chklncludeSubdirectories.Enabled = Not blnlsRunning 
cIstNotifyFilter.Enabled = Not blnlsRunning 
End Sub 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

' Cho cic tin trong Enum vao CheckedListBox. Co the kit data source 

’ vao ket quit tri v4 td phddng thdc GetValues. 

' PhUdng thdc GetValues co trong namespace System. Enum. No doi h&i 
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' mdt kiSu enum, vk tri v4 mdt ming chtia gia tri ti/ctng ting vdi cac phin 
' tti trong enum. Ddng code nky thim danh skch ckc gia trj NotifyFilter vko 
' control CheckedListBox 

cIstNotifyFilter.DataSource = GetValues(GetType(Notify Filters)) 

' HiSn thj t£t ci ckc thudc tfnh cua d6i ttipng FileSystemWatcher 
DisplayFSWProperties(fsw) 

End Sub 

Private Sub fStojError(ByVal sender As Object, ByVal e As 
System. lO.ErrorEventArgs) Handles fsw,Error 
Dim exp As ExCdptfbn a.GetException 
Addltem(exp.MeSsage) 

End Sub 

‘ "■ J, p 1 ■ ' ■_ 

Private Sub fswJ3*#«rhe<KByVal sender As Object, ByVal e As 
System.lO.RenamedEventArgs) Handles fsw.Renamed 

Dim strText As String c StrMg:Format("{0} was renamed to {1}", _ 
e.OtdNqine, fe-Name) 

Add Item (strText) .. ..., 

End Sub '» 

* : t\. i, 

' V : ' r ' 1 ’ Xj ~/ ’ 

Private Sub Addltem(ByVMj^rText As String) 

IstEvents. Items. Add(strTex^ 

End Sub 

Private Function CheckFlt$(ByV&l strRteName As String) As~Boolean 

’ Kiim tra xem mQt file c6 cdn tSn tai hay khdng. NSu khdng, th6ng bio nd 
' da bj xoa vk ckp nhkt l$i danh skch cac file. 

If File.Exists(strFileName) Then 
Return True 
Else 

MessageBox.Show("The selected file has been deleted. It will be removed 
from this list as well.') 

RemoveFileName(strFileName) 

Handleltems() 

Return False 
End If 

End Function 
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Private SubDisplayFSWProperties(ByVal fsw As FileSystemWatcher) 
SetChecks(fsw. Notify Filter, cIstNotify Filter) 
txtPath.Text = fsw. Path 
txtFilter.Text = fsw. Filter 
chkEvents.Checked * fsw.EnableRaisingEvents 
chklncludeSubdirectories.Checked = fsw.IncludeSubdirectories 
End Sub 


Private Sub GatherF$WProperties(ByVal fsw As FileSystemWatcher) 

' Do$n code niy c6 thigiy iSi, nhi/ng thiS tyc ggi ndseb&ttSi. i- 
fsw. Path = txtPath.Text 
fsw. Filter = txtFilter.Tdxt , 

fsw.IncludeSubdirectories = chklncludeSubdirectories T Checked 
fsw. 

End Sub 
Private Function 

' Duy$t qua tit cA cAcphifitfr tiptig timkmlJstBox, 

' nguytn tticfng ting chp tit ci rfc Wf dtifc hjhgn, M6i ph&ti tti trong 
‘ CheckedListBox thi/c si/ IA mQl $6 hgutfnftrongmQt enu0), da <36 chi c&n 
' chuyin cAc phin tti sang si 'fijgtuymti 'sati M bP vffi %ft%ja. 


i , * ^' - .7 ? * ■ .2i % V. 



Dim intValue As Integer 
Dim obj As Object 

Try 




For Each obj In clst.Checkedltems 
intValue = intValue Or Clnt(obj) 

Next 

Return intValue 
Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 
End Try 
End Function 
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Private Function GetUniqueFileName(ByVal Path As String, ByVal Root As String) 
As String 

‘ Phat sinh mdt ten file khdng trung, sCt dyng Root lim tin file goc, trong mdt 
' dudng din cy the. Vi dy dudng din li C:\ vi Root li TempFile.txt, him niy se 
1 ira vi C:\TempFUe.txt.01, ting gii tri cho din khi tin file chua tin tai. 

Dim strTemp As String 
Dim i As Integer 

Path = Path.TrimEnd(“\ MoCharArray) 

Root = Root.TrimEnd(“. MoCharArray) 

' Lip, ting biin dim, tht/c hiin cho din khi tin file chua tin tyi 
Do 

strTemp = String.Format(*{0}\{1}.{2:00}“, Path, Root, i) 
i += 1 

Loop While File.Exists(strTemp) And i < 100 
Return strTemp 
End Function 

Private Sub HandleChangedCreatedDeleted(ByVal sender As Object, ByVal e As 
System.lO.FileSystemEventArgs) Handles fsw.Changed, fsw.Created, fsw.Deleted 
' Thu tyc niy co thi xtf ly cic si/ kiin Changed, Created, vi Deleted bdi vi tat ci 
' chung c6 cOng cac tham si. 

Dim strText As String = String.Format(“{0} was {1}", e.Name, e.ChangeType) 
Addltem(strText) 

End Sub 

Private Sub Handleltems() 

' Enable hoic Disable cac button 

Dim blnEnable As Boolean = (cboSampleFile.Text o String.Empty) 
btnModify. Enabled = blnEnable 
btnDelete.Enabled = blnEnable 
btnRename. Enabled = blnEnable 


End Sub 
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Private Sub RemoveFileName(ByVal strFileName As String) 

' Loai bo mdt ten file ctj thi ra khdi combobox, nSu cdn cac tin file khac, 

' chQn ten file diu tiSn. 
cboSampleFile. Items.Remove(strFileName) 

If cboSampleFile.ltems.Count * 0 Then 
cboSampleFiie.Text = cboSampleFile.ltems(0).ToString 
End If 
End Sub 

Private Sub SetChecks(ByVal Value As Integer, ByVal cist As CheckedListBox) 
Dim intValue As Integer 
Dim i As Integer . x ; 

Dim blnCheck As Boolean 

■i . 1 ■ 

' Duy&t qua m6i phin til trong CheckedListBox. Vdi mdi phin til, 

' niu bit liidng dng cd gii trf, d&nh dffu phin tur ndy trong danh sich. 

For i*= 0 To clst.ltems.Count -1 
intValue = Clnt(clst.ltems(i)) 
blnCheck = ((intValue And Value) = intValue) 
clst.SetltemChecked(i, blnCheck) 

Next 

End Sub - " 

Private Sub btnDeleteAILCIick(ByVai sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDeleteAll.Click 

* X6a tit cit cic file trong combobox 
Dim strName As String 
For Each strName In cboSampleFile.Items 
Try . • ’ 

File.Delete(strName) 

Catch 

’ NSu khdng thS xda file, nghia li nd da ddQc x6a r6i. 

End Try 
Next 

cboSampleFile.ltems.ClearO 
HandleltemsO 
End Sub 


■ End Class 
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Phan V - Web Development 

30. Tao m0t tfng dung Web nh$p dvt li£u 

Chirong trinh n4y bi£u diln c4ch 14m viec vdi DataGrid trong mdt ifrig 
dung nhap lieu tr§n Web. 
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Cac chflc nano chinh: 

> Hi&a thi dff li$u trong mOt DataGrid dirge thy bi£n dinh dang vdi c4c 
class BpundColumns, TempiateColumns, v4 CSS. 

> Th§m m$t record mdi, thay d6i ho4c x6a record da t6n tai. 

> Application Cache dirge suf dung d£ lifu Data View dirge k£t v4o DataGrid. 
Vdi c4ch n4y, duf ligu chi dirge download mgt ldn. 

> DataGrid v&n dirge sdp x£p ngay c4 khi cd ph4n trang. Bi&i thurc sdp 
x4p dirge liru trong mgt control HTMLlnputHidden. 

> C4c control RequiredFieldValidator v4 RegularExpressionValidator dirge 
suf dung d£ b4o ddm duf li£u hgp lg. 

Chu Chircmg trinh suf dung database Northwind trong SQL Server. 

> D i install chircfng trinh n4y, chay file Setup.vbs. Sau d6 md Solution. 
Nh4n F5 d§ chay ufng dung. 

> File setup.vbs gi4 sd thur muc web m4c nhidn 14 c:\inetpub\wwwroot. 
N§'u thu muc web m4c nhi&n 14 thir muc kh4c thi thay doi file n4y de 
n6 ch£p c4c file v4o thir muc web m4c nhidn. 












248 


~ Coding' Techniques 


C£c control chinh: 


Loai 

ThuOc tinh 

Gia tr| 

WebControls.DataG rid 

(Name) 

qrd Products 


AllowPaging 

True 


AllowSorting 

True 


PageSize 

10 


DataKeyField 

ProductID 


Project: Tao ung dung Web nhap du lieu 


Main.aspx (download tai http://www.ntbooksvn.com ) 

• <%@Page Language="vb“ AutoEventWireup=*false" Codebehinds*“ , main.aspx.vb" 

lnherits=“WebDataEntryApp.Main" %> 

• <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> 

■ <HTML> 

• <HEAD> 

<title>Visual Basic .NET Web Application</title> 

<meta content=‘Microsoft Visual Studlo.NET 7.0" name="GENERATOR"> 

<meta content="Visual Basic 7.0" name="CODE_LANGUAGE"> 
cmeta content="JavaScript" name=‘vs_defaultClientScript*> 

<meta content="http://schemas.microsoft.com/intellisense/ie5‘ “ , 
name=*vs_targetSchema"> 

<LINK href="styles.css" rel=*stylesheet"> ‘ % M k- 

■ </HEAD> . . - t T / v ./- Vj • -r . 

<body> .. r*; H ." .T '■ 

<form id=‘frmMain‘ method= , pQst’ runa|te"serv®r"> 

<hr> 

<TABLE widths" 100%* border=‘0"> 

i , r ' 1 ' r-K -■ j .■ \ f i 

<TR> 

<tdxasp:button id="btnXddNeW" text="Add New Item* 
CausesValidation=‘False" Runat=’server" CssClass=‘Button"></asp:button></td> 

' </TR> , . 

<TR> 

<TD vAlign=*top"xasp:datagrid id=’grdProducts" runat="server" 
DataKeyField="ProductlD" AllowSorting="True" AutoGenerateColumns="Fal$e" 
AllowPaging=‘True"> 

<SelectedltemStyle CssClass="DataGrid_SelectedltemStyle" /> 
<ltemStyle CssClass="DataGrid_ltemStyle" /> 

<AlternatingltemStyle CssClass="DataGrid_AlternatingltemStyle" /> 
cHeaderStyle CssClass=‘DataGrid_HeaderStyle" /> 

<FooterStyle CssClass="DataGrid_FooterStyle” /> 
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<Columns> 

<asp:BoundColumn DataFieid=*ProductlD" 
SortExpression=“ProductlD“ HeaderText=“Product ID* /> 

<asp;BoundColumn DataField="ProductName" 
SortExpression=“ProductNdme" HeaderText=‘Product“ /> 

<asp:BoundColumn DataField^QuantityPerUnit" 
SortExpression="QuantityPerUnir HeaderText="Qty / Unit" /> 

<asp:BoundColumn DataField="UnitPrice“ 
SortExpression="UnitPrice* HeaderText=“Unit Price" DataFormatString="{0:c}“ /> 
<asp:BoundColumn DataField="UnitsinStock“ 
SortExpression^UnitsInStock" HeaderText="# In Stock" /> 

<asp:TemplateColumn SortExpression="Discontinued" ItemStyle- 
CssClass="Discontinued" HeaderText="Discontinued"> 

<ltemTemplate> 

<asp:CheckBox ID=“chkDiscontinuedGrid" Runat=“sen/er“ 
Checked= <%# CBooI(Container.Dataltem("Discontinued“)) %>‘ /> 

</ltemTemplate> 

</asp:TemplateColumn> 

<asp:ButtonColumn Text="Edit" ButtonType="PushButton“ 
CommandName="Select" /> 

<asp:ButtonColumn Text="Delete" ButtonType="PushButton" 
CommandName=“Select" /> 

</Columns> 

<PagerStyle CssClass="DataGrid_PagerStyle‘ 
Mode=“NumericPages" /> 

</asp:datagridxbr> 

<input id="htmlHiddenSortExpression" type="hidden" 
value="ProductlD" name='htmlHiddenSortExpression" runat="server"> 

</TD> 

</TR> 

</TABLE> 

<span class=“Message"> 

<%= strMsg %> 

</spanxspan class="ErrorMessage"> 

<%= strErrorMsg %> 

</span> 

<asp:panel id=*pnlForm" Runat=“server" Visible="False"> 

<TABLE id="Table1 ■ width=“100%“> 

<TR> 

<TD class=‘FormLabel" width="15%“>Product Name: 

</TD> 
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<TD class=“Formlnput"> 

<asp:textbox id=“txtProductName" runat=“ server" 
EnableViewState="False' 1 MaxLength="40" Columns="42"x/asp:textbox>&nbsp; 

<asp:RequiredFieldValidator id="rfvProductName‘ runat=" server" 
ControlToValidate="txtProductName“ Display="Dynamic“ 
ErrorMessage="Required!"x/asp:RequiredFieldValidatorx/TD> 

</TR> 

<TR> 

<TD class='*FormLaber>Qty / Unit: 

</TD> ; 

<TD class=‘Formlnput“> 

<asp:textbox td=*txtQtyUnit" runat=*server" ' 

EnableViewState=“ False* MaxLengtb='20“ Coiumns="22"x/asp:textbox>&nbsp; 

<asp:RequiredFieldValidator idc’rfvQtyUnlt* runats=“server" 

C on t rolTo Validates %tQty Unit- Display=*Dynamic* 
ErrorMessage="Requ!rQd!*></asp:RequiredP^eldVdlidat6r></TD> 

</TR> : >' 

<TR> '" ; ■" 

<TD class="FormLabel*>UfMt Pride: 

</TD> ’ ! " 

<TD class="Formlnput*> 

<asp:textbox id=*txtPrice* runat=“server“ EnableViewState=“False* 
MaxLength=“8“ Columns=*10‘x/asp:textbox>&nbsp; 

<asp:RequiredFie!dValidator id=*rfvPrice" runat=*server" 
ControlToValidate="txtPrice" Display=*Dynamic* 
ErrorMessages-RequiredPx/aspiRequiredFieldValidatoo&nbsp; 

<asp:RegularExpFessionValidator id=*revPrlce" mnat=‘server“ 
ControlToValidate=' , txtPrice 1 ' Display=“Dynamic" ErrorMessage='You must enter a 
valid price." 

ValidationExpression="\d+[.]?[\d]{0,2}"></asp:RegularExpressionValidator></TD> 
</TR> . 

<TR> 

<TD classs"FormLabel"># In Stock: 

</TD> 

<TD c!ass=“Formlnput“> 

<asp:textbox id="txtlnStock* runat=*server" 
EnableViewState="False“ MaxLength="4* Columns="6“x/asp:textbox>&nbsp; 

<asp:RequiredFieldValidator id=‘rfvlnStock" runat="server" 
ControlToValidate="txtlnStock" Display="Dynamic* 
ErrorMessage="Required!"x/asp:RequiredFieldValidator>&nbsp; 
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<asp:RegularExpressionValidator id="revlnStock" runat="server" 
ControlToValidate="txtlnStock“ Display='Dynamic“ ErrorMessage="You must enter 
a number." ValidationExpression="\d+‘x/asp:RegularExpressionYalidatorx/TD> 
</TR> 

<TR> 

<TD class='FormLabel">Discontinued: 

</TD> 

<TD class="FormCheckBox‘> 

<asp:checkbox id="chkDiscontinued“ runat="server" 
CssClass="CheckBox‘x/asp:checkboxx/TD> 

<fT R> 

<TR> 

<TD>&nbsp;</TD> 

<TO> 

<asp:Button id="btnSave" Text=‘Save Changes" Runat=“ server" 
CssClass="Button“x/asp:Button></TD> 

</TR> 

</TABLE> 

</asp:panelx/form> 

</body> 

■ </HTML> 

Main.aspx.vb 

■ Option Strict On \ 

Imports System. Data.SqlClient 

Public Class Main 

Inherits System.Web.UI.Page 
Protected WithEvents grdProducts As,DataGrid 
• Protected WithEvents txtProductName, txtQtyUnit, txtPrice, txtlnStock As TextBox 
Protected WithEvents chkDiscontinued As CheckBox 
Protected WithEvents htmiHiddenSortExpression As HtmllnputHidden 
Protected WithEvents pnIForm As Panel 

Protected WithEvents rfvQtyUnit, rfvPrice, rfvInStock, rfvProductName As 
RequiredFieldValidator 

Protected WithEvents revPrice, revInStock As RegularExpressionValidator 
Protected WithEvents btnAddNew As System.Web.Ul.WebControls.Button 
Protected WithEvents btnSave As System.Web.ULWebControls.Button 
Protected WithEvents IbITitle As System.Web.Ul.WebControls.Label 
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‘ Code phat sinh Web form dupe bd qua 

Private dvPtoducts As DataView 
Public strMsg As String 
Public strErrorMsg As String 

Protected Const SQL_CONNECTION_STRING As String = “Persist Security 
lnfo=Felse;User ID=sa; Passwords Initial Cat^log=Northwlnd;Data 
Source=localhost“ 

' XCi ly khi nhi'n ntit "Add New Item" 

Private Sub btnAddNew_Click(ByVal sender As Object, ByVa) e As 
System.EventArgs) Handles btnAddNew.Click 

' Xda cAc gid trj da cd ho$c hide thj form so$n thAo n0 nd dang dupe in 
If pnIForm.Visible Then 

txtProductNamedraxt " '* V. ! 

txtQtyUnlt.Text = . v -v,. .. 

txtPrice.Text = ““ 
txtlnStock.Text * *• 
chkDiscontinued.Checked’■ Fated 
Else 

pnIForm.Visibles True 
End If 

* GAn glA trj CommandArgument lAm cd cho phtldng thitc Saveltem. 
btnSave.CommandArgument = “Add" 

End Sub 

' Xii ly nut"Save Changes " 

Private Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArg; 
Handles btnSave.Click 

If isValid Then 
Saveltem() 

End If 


End Sub 
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’ XO ly sp ki$n ItemCommand cua DataGrid. 

Private Sub grdProductsJtemCommand(ByVal source As Object, ByVat e As 
System. Web.Ul.WebControls.DataGridCommandEventArgs) Handles 
grdProducts.ItemCommand 

' Tat ci command tri/dc tien phdi qua thti tyc ItemCommand. 

If e.ltem.ltemType = ListltemType.Pager Or _ 

e.ltem.ltemType = ListltemType.Header Then Exit Sub 

‘ DS biet Button nao da dupe nhi'n, bat thuoc tinh CommandSource 
' cua DataGridCommandEventArg "e“ 

Dim btn As Button = CType(e.CommandSource, Button) 

If btn.Text = “Edit" Then 

' Cac gia trj cua cac field trong form edit dope lay til t$p hpp Cells cua e.ltem 
txtProductName.Text = e.Item.Cells(t).Text 
txtQtyUnit.Text = e.ltem.Cells(2).Text 
' Cdt dd'u $ ra khdi gia ti4n (price) 
txtPrice.Text = Microsoft.VisualBasic.Right(e.Item.Cells(3).Text, _ 

Len(e.Item.Cells(3).Text) - 1) 
txtlnStock.Text = e.ltem.Cells(4).Text 
chkDiscontinued.Checked = _ 

CType(e. Item.Cells{5).FindControl(*chkDiscontinuedG rid"), _ 

CheckBox).Checked 
pnIForm.Visible = True 
Else ‘ Xoa product 

‘ SCI dung tip hpp DataKeys d$ truy xui't d&n ede gia tri khoa cua m&i record 
' trong DataGrid. Tap hpp ndy cho phep hlu tritdng khoa cua control DataGrid 
' md khdng cin hiSn thj nd trong control. DO li$u cua tap hpp nay to ddng Id'y 
' gia trj tO field dope chi dinh bdi thude tinh DataKeyField. 

Deleteltem(grdProducts.DataKeys(e.ltem.ltem!ndex).ToString) 

End If 

' Xda CommandArgument d4phpc vu cho nut "Save". No dope gan la "Add" 

* khi nhi'n nut"Add New Item" va gia trj nay van con vi ViewState cua button 
' Id enable. 

btnSave.CommandArgument = 

End Sub 
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' XCi ly st/ kien SortCommand cho DataGrid. Si/ ki$n niy xiy ra khi ngUdi sii dt/ng 
' nhdn chudt vio mdt trong cac tidu die cua cac cdt, DataGrid phii co thudc tinh 
' AllowSorting = True vi mdt SortExpression dUdc quy djnh trong BoundColumn 
Private Sub grdProducts_SortCommand(ByVai source As Object, ByVal e As 
System. Web.UI.WebControls.DataGridSortCommandEventArgs) Handles 
grdProducts. SortCommand 

' LUu lyi sort expression hien hinh trong mdt HTML control, n£u khdng se 
' m£t kieu sip xdp hidn hinh khi phan trang. 
htmIHiddenSortExpression.Value = e. SortExpression 
' KSt lyi dtf Hdu 
BindProductsGrid{) 

End Sub 

Private Sub Page_Load(ByVal sender As System.Object, ByVal As 1 '' 
System.EventArgs) Handles MyBase.Load 

' Cdng viec niy chi lim khi Ian diu tien vio trang niy, ho&c nh£n CTRL+F5 
If Not Page.IsPostBack Then 

SetupDemo() g 

BindProductsGridQ ' ' j J v 

End If 
End Sub 

' XCi ly si/ kien thay doi trang trSn DataGrid. Thudc tinh AllowPagThg phii ting True 
Private Sub Products_PagelndexChanged(ByVal source As Object ByVal e As 
System.Web.Ul.WebControts.DataGridPageChangedEventArgs) Handles 
grdProducts. PagelndexChanged 

grdProducts.CurrentPagelndex = e.NewPagelndex 
BindProductsGrid() 

End Sub 

' Thu tuc nay tyo mdt bing (HowToProducts) trSn SQL Server phuc vy cho myc 
‘ dich demo vi loyi bd cac DataView da t6n tai trong application cache. 

Private Sub SetupDemo() 

Dim strSQL As String = _ 

"USE Northwind* & vbCrLf & _ 

‘IF EXISTS (“ & _ 

"SELECT * ■ & _ 

"FROM Northwind.dbo.sysobjects " & _ 

"WHERE Name = ’HowToProducts'" & _ 
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"AND TYPE = 'll')" & vbCrLf & _ 

"BEGIN" & vbCrLf & _ 

"DROP TABLE HowToProducts* & vbCrLf & _ 

"END" & vbCrLf &_ 

"SELECT ProductID, ProductName, QuantityPerUnit, UnitPrice," & _ 

" UnitsInStock, Discontinued " & _ 

"INTO Northwind.dbo.HowToProducts " & _ 

"FROM Products " & _ 

"ALTER TABLE HowToProducts " & _ 

"ADD CONSTRAINT [ProductID] PRIMARY KEY CLUSTERED (ProductID)" 

Dim scnnNW As New SqlConnection(SQL_CONNECTION_STRJNG) 

Dim scmd As New SqlCommand(strSQL, scnnNW) 

scnnNW.Open() 

scmd.ExecuteNonQueryQ 

scnnNW. CloseQ 

Cache. Remove(“dvProducts") 

End Sub 

* Thu tuc nay lay mot DataView vd ket no vao DataGrid Products 
Private Sub BindProductsGrid() 

GetDataSource() 

With grdProducts 

DataSource = dvProducts 
.DataBind() 

End With 
End Sub 

’ Ham nay tao mdi mot DataSet 

Private Function CreateDataSet() As DataSet 

Dim strSQL As String = _ 

"SELECT" 

"FROM HowToProducts’ 

Dim scnnNW As New SqlConnection(SQL_CONNECTION_STRING) 

‘ Dd'i tUQng SqlCommand dung dS thUc hien cac ISnh SQL 
Dim scmd As New SqlCommand(strSQL, scnnNW) 
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' SqlDataAdapter suf dung doi tUdng SqlCommand dS dita dtf HSu vao DataSet 
Dim sda As New SqlDataAdapter(scmd) 

' Tao va dua dd HSu vao DataSet 
Dim ds As New DataSetQ 
sda.Fill(ds) 

Return ds 
End Function 

' Xda mdt item khoi Database 

Private Sub Deleteltem(ByVarstrProciuctiD As String) 

Dim strSQL As String = _ 

‘DELETE * & vbCrLf & _ 

‘FROM HowToProducts " & _ 

■WHERE ProductID = “ & strProductID 

Dim scnnNW As New SqlConnection(SQL_CONNECTION_STRlNG) 

Dim scmd As New SqlCommand(strSGL, scnnNW) 

Try 

scnnNW.Open() 
scmd.ExecuteNonQueryO 

Cache. Remove(‘ , dvProducts") 

BindProductsGridO 

strMsg = "Product successfully deleted from the database." 
pnIForm.Visible = False 
Catch exp As Exception 

strErrorMsg = “Database error! Product not deleted from database. “ & _ 
"Error message: " & exp.Message 
Finally 

scnnNW. CioseQ 
End Try 
End Sub 
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' Thu tyc niy tri v4 mdt DataView dUQc sip x£p, dataview niy c6 th£ l£y tit ufng 
' dyng ho$c tao mdi. DiSu niy ting hieu xu£t ting dyng v) khdng phil kit nd? 

' vio Database vi tyo mdi mdt DataSet mdi khi chQn trang hO$c sip xSp. 

Private Sub GetDataSource() 


* Neu tlm th£y DataView trong cache, sit dyng no 
If Not lsNothing(Cache(“dvProducts“)) Then 

' T£t ci cic thinh phin trong cache diu cd ki£u IS Object, do dd 
' phii ip no ki£u tritdc khi stir dyng 
dvProducts = CType(Cache("dvProducts“), DataView) 

Else ' Khdng tim ihSy DataView trong cache 
* Tao mdi m^t DataView 

dvProducts = CreateDataSet().Tables(0).DefaultView 

■ ^ v ['■; ■■ .1- - 1 *' r "'-U:- ■" 


' DUa DataView mdi tao vio Cache 
Cache('dvPrcMluc?s B ) * J ■ * ' 


End If 




* sip x£p DataVie»d{fa trin expres^pn hit trong HtmllnputHidden 
dvProducts'Sort * t^m^h^dde oSortExp&ssjon^Value 


End Sub 


1 Thu tyc nSy hlu mdt record vio database, bao g6m cip nh$t mdt/ecord da 

"‘X.< f' 1 - ' -• fc - J - •>*. 

* ton tyi ho$c thim m$t record mdi, Cic chile ning di/a trin giS trj cua thude 
1 tfnh btnSave. CommandArgument 
Private Sub Saveltem() 

Dim strSQL As'String 

If btnSave.CommandArgument = “Add* Then 
strSQL = _ 

“INSERT INTO HowToProducts “ & _ 

“ (ProductName, QuantityPerUnit, UnitPrice, UnitsInStock, * & _ 

“ Discontinued) “ & _ 

“VALUES“ & _ 

“ (©ProductName, ©QuantityPerUnit, ©UnitPrice, ©UnitsInStock, “ & 
“ ©Discontinued)" 


Else * Cip nhit mdt record da co 
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sirSQL = _ . • , A 

'UPDATE HowToProducts_ 

'SET ProductName = ©ProductName, '<& 


' QuantityPerUnit = ©QuantityPerUnit," & ^ 
' UnitPrice = ©UnitPrice, “ & _ 

' UnitsInStock = ©Units LnStock, “ & _ 

' Discontinued = ©Discontinued * & ^ , iVi 


“WHERE.ProductIO = ©Producer, c v, . n , r ... v >r , 

End If ,1 ' • . .. ' •’ . 

■ • -J / .* > 1 I 1 

1 i...*vt»*•«.■» >,»* <.T,.' i v;“*>*.or,;,• < . 

Dim scnnNW As New SqiConnection(SQl^C^ 

Dim scmd As New SqlCommand(8trSQl., SCTi^yy) :’; r 

■ -v ■ .1* to l'"> 1% Mh :•>*> >'* - ■ -:l 

' Th6m t£t ci cdc tham s6 SQL cin fhHk \ 


With scmd.Parameters _ > r 

1 Tham s6 ProducttD chi tin cho c&>fl/*df ty t . 


: s S''- ; v'Viit - V' *' 


If btnSave.CommandArgument o “Add* Then 
.Add(New SqlParameter(' ©ProductID*, _ ■ 
SqlDbType.Int)). Value ■ _ 

CI nt(g rd Products. DataKeys 




End If 


.Add(New SqiPararneter( a ©ProductName*, _ 

SqIDbType.NVarChar, 40)).Value * txtProductName.ext 
Add(New SqlParameter(*©QuantltyP©rUnrt", 1 ^ " 
SqlDbType.NVarChar, 20)).Value = txtdtyUnft.f^jrt T ‘ 
.Add(New SqlParameterCeUnitPrice', _ ’ ' 

SqlDbType.Money)).Value = CDbl(txtPrice.TexQ • 1 ^ 

.Add(New SqlParameter('©UnitslnStock\ 

SqlDbType.Int)). Value = Clnt(txtlnStock.Text) 

.Add(New SqIParameterf ©Discontinued", _ 

SqlDbType.Bit)).Value = chkDiscontinued.Checked 
End With 


Try 

scnnNW.Open() 
scmd.ExecuteNonQueryO 
Cache. Remove('dvProducts') 
BindProductsGrid() 
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strMsg = 'Product successfully saved to the database." 
pnl Form. Visible - False 
Catch exp As Exception 

strErrorMsg = "Database error! Product not saved to the * & _ 
"database. Error message:" & exp.Message 
Finally 

scnnNW.CIose() 

End Try 
End Sub 
• End Class 


31. XAy dtfng cde dich vii Web (Web Service) 

C4c Web service 14 mOt c6ng ngh$ r4t quan trong tri&n khai c4c ufng 
dung tir xa suf dung cdc chudn HTTP v4 XML. 





Cic chflc nSnq chfith: 

; JW n4y gfan mpt Web Service v4 hai ufng dung client sur dung Web 

y. MQt client d dang ufng dung Web, vk client kia 14 ufng dung 
fy8. Web service cung c&p hai phirnng thutc tr4 v£ duf li§u 14y tir 
.Northwind. GetTenMostExpenslveProducts() 14 mgt phirong thufc 
V& mOt DataSet, n6 duoc sur dung bdi ufng dung Web. 
CbitCuatobHIhprdtrHIstoryO bilu diin c4ch trd vi mOt ki£u phurc tap - m$t 
instance elit naQt class c6 hai tnrdng public, mpt trong s 6 chung 14 ki€u 
DataSet; Phi&mg thufc n4y dune sur dung bdi ufng dung Windows. 

- Chd t 

Chifcmg trinh c6 sur di^ng database Northwind trong SQL Server. 
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Cal d£t Web Service va Web Forms Client: 

> Nhap dup chuot vao SetupWebs.vbs (file n&y gid dinh thu muc web 
mac nhibn 1 k c:\inetpub\wwwroot). 

> Nbu c6 I6i khi cki dat, ch4p hai thir muc trong thu muc WebSites v&o 
thu muc Web g6c mAc nhibn, edu hinh hai thu muc nAy la cdc IIS 
Application b&ng cdch: md trinh qudn tri IIS, nhdn chupt phdi vAo t&n 
thu muc, chon Properties va nhdn v&o nut Create tren tab Directory. 


Chay Web Forms Client: 

> Trong Soluton Explorer, nhdri chu$t phdi vdo WebServiceClient vk chon 
Set As Startup Project. 

> Nhan chubt phdi vao Main.aspx vd chon Set As Start Page. 

> Nhdn F5 dd build va chay ling dung. 

Chay Windows Forms Client: 

> Trong Solution Explorer, nhdn chuot phdi vdo VB.NET Web Services 
(Client) vd chon Set as Startup Project. 

> Nhdn F5 d£ chay ufng dung. 

> Cdc gid tri Customer ID la COMM l, GODOS, vk ISLAT. 


Chay trtfc tlep Web Service, khong cdn client: 

> Trong Solution Explorer, nhdn chubt ph&i vdo main.asmx vd chon View 
In Browser. 

> NhAn vdo lien kbt cua cdc phucfng thufc. 

Them mpt DataSet vao project cho duT lipu lay ttf database Northwind: 

> Trong Solution Explorer, nhd'n chu§t phdi vdo project, chon Add I Add 
New Item. 

> Trong ph&n Templates, chon DataSet. Bat cho nd mOt tbn vdi phdn 
mb rong la .xsd va nhdn Open. Thao tac nay them mot XSD schema 
vko project. Tif file nay phat sinh class c6 kieu DataSet. 

> Md Server Explorer va md cdc node bbn dudi SQL Servers de di dbn 
Northwind Stored Procedures. 

> Chon va kbo mpt stored procedure vko dao dibn do hoa cua file xsd. 



- Coding Techniques — 


261 


> Nhd'n chupt phai v&o dao dipn vh ddnh ddii Generate DataSet neii chira 
di/gc ddnh d&u. 

> Nh&n CTRL + Sd^ luu phdt sinh class c6 ki&i DataSet. 

> B4 xem class n&y, trong Solution Explorer nh£n v&o nut Show All 
Files. Md node .xsd &£ thfi'y file .vb tuong utag. 

Project: WebServices 

CustOrderHist.vb 

• Option Strict On 

■ Imports System.Xml.Serialization 

Public Class CustomerAndOrderHistorylnfo 
Public Orders As dsCustOrderHist 

' Khai bao sd dyng XmlAttribute de XML tri vS bdi Web Service vdi field 
' CompanyName Id m$t thuQc tlnh thay v) mdt element (kiiu mdc nhidn). Thu6c 
' tlnh AttributeName quy djnh thay d6i tdn cua no id CompanyName sang Company. 
<XmlAttributeAttribute(AttributeName:='Company")> Public CompanyName As 
String 

• End Class 

dsC ustOrder H Ist.xsd 

• <?xml version="1.0" encoding='utf-8" ?> 

- <xs:schema id=“dsCustOrderHist“ 

targetNamespace="http://tempuri.org/dsCustOrderHistxsd" 
elementFormDefault="qualified" attributeFormDefault=“qualified* 
xmlns='http://tempuri.org/dsCustOrderHist.xsd“ 
xmlns:mstns=*http://tempuri.org/dsCustOrderH ist.xsd" 

xmlns:xs="http://www.w3.org/2001/XMLSchema“ xmlns:rnsdata="urn:schemas- 
microsoft-com:xml-msdata“> 

<xs:element name="dsCustOrderHist" msdata:lsDataSet=“true*> 
<xs:complexType> 

<xs:choice maxOccurs="unbounded"> 

<xs:element name="CustOrderHist‘> 

<xs:complexType> 

<xs:sequence> 

<xs:element name^ProductName" type="xs:string" /> 

<xs:element name=“Totar msdata:ReadOnly="true" type='xs:int" 
minOccurs=*0*/> 
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</xs:sequence> 

</xs: complexType> 

</xs:element> 

</xs:choice> 

</xs:complexType> 

</xs:element> 

■ </xs:schema> 

main.asmx 

• Option Strict On 

• Imports System.Web.Services 

■ Imports System.Data.SqlClient 

■ <WebService()> _ 

• Public Class Main 

Inherits Sy&tem.Web.Services.WebService 

' Code ph£t sinh dupe bd qua 

' Khdi tyo c£c h&ng s6 dS k&t n6i vdo database vit hiSn thj I6i k£t n6i 

Protected Const CONNECTION_ERROR_MSG As String = _ 

“To run this sample, you must have SQL " & _ 

’or MSDE with the Northwind database installed.* 

Protected Const SQL_CONNECTIOfsLSTRING As String = _ 
"Server=localhost;“ & _ 

’DataBase=northwind;“ & _ 

“Integrated Security=false;“ & _ 

’User ID=sa;“ 

Protected strConn As String = SQL_CONNECTION_STRING 

' Tri vi m$t instance cda class CustomerAndOrderHistorylnfo 

<WebMethod> _ 

Public Function GetCustomerOrderHistory(ByVal strCustID As String) 
As CustomerAndOrderHistorylnfo . 

’ K4t n6i vAo SQL Server eye bd 
Dim IsConnecting As Boolean = True 
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While IsConnecting 

Dim scnnNW As New SqlConnection(strConn) 

Dim scmd As New SqlCommandCCustOrderHist", scnnNW) 

' Tao mit instance cua kidu tri v4 
Dim cohi As New CustomerAndOrderHistorylnfo() 

Try 

' Bio cho ddi tUQng Command bidt ring vin bin truySn vio khi t$o ddi 
' tU0ng 14 mQt stored procedure khdng vin 14 ciu truy vin SQL thing thifdng. 
scmd.CommandType = CommandType.StoredProcedure 

' T$o m$t ddi tUkfng SqlParameter dd truySn vio stored procedure 
scmd.Parameters.Add(New SqiParameter(“@CustomerlD", _ 
SqlDbType.NChar, 5)).Value = strCustID 

* SqlDataAdapter sif dyng SqlCommand di dUa dd HSu vio DataSet 
Dim sda As New SqlDataAdapter(scmd) 

' Tao m$t instance cua class cd kidu DataSet 
Dim dsOrderHistory As New dsCustOrderHist() 

sda.Fili(dsOrderHistory.CustOrderHist) 

' Dd liiu da ddpc liy thinh cing, thoit ving lip 
IsConnecting = False 

' Gan instance cd kidu DataSet (da dupe nh$p dd li$u) vio trUdng Orders 
cohi.Orders = dsOrderHistory 

' Thay ddi l$nh SQL dd liy tin edng ty (company name) 
scmd.CommandText = _ 

"SELECT CompanyName " & _ 

"FROM Customers * & _ 

‘WHERE CustomerlD = ©CustomerlD" 

, 1 Thay ddi kidu linh sang dang l$nh SQL thing thudng 

scmd.CommandType = CommandType.Text 
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' Md k&t ndi vi thi/c hiSn ciu ISnh SQL mdi. SuT dgng ExecuteScalarQ di 
' thi/c hien t>di v) ta bi&t trtidc chi fri v£ c$td&u tiSn cua record diu tiin. 
scnnNW.Open() j-. ' . 

Dim objReturnVal As Object = scmd.ExecuteScalarQ 
If Not IsDBNull(objReturnVal) Then > *- - - ' 

cohi.CompanyName = 6bjReturtf»Vat.TibStflng ' >• ■ : 

End If 

Catch expSql As ScJfException ^ ^- 1 = ; v~ - Kh v.:-". ■< 

Throw New Exception(expSq^.Message) . / . ; 't* < ; ■ 

c ■«. . >• • - 

Catch exp As Exception 

Throw Ne>wException(exp. Message) 

Finally .> s . *.■ ■ ? *v*~. • 

'Ddngkitndi •• . • •" ; - 

scnnNW.CIose() 

End Try ■ ■ .• .r*V* r V''' 

.. '! ■ : ■ ' : -!? : ' ' *: ' ■? ■ 

Return cohi 

End While :vv ,-„ . , . ■ -.r?/ 

End Function . ,*•! ' v < ’ . ;i-c < 

’ Tra vS mdt DataSet chtia 10 sin phimdit tiin r\h£t i -r > - 
<WebMethod()> _ 

Public Function GetTenMostExpeneiveRroductSfl As Dat&Sat y 

Dim IsConneeting As Boolean =True 
While IsConneeting i 

Try U ■/ ; ■ 

Dim sctijnNW As New SqlConnection(strConn) 

' Dat tin Stored Procedure trong d£u ngo&c vudng vl nd chda khoing tring 
Dim scmd As New SqlCommand(*[Ten Most Expensive Products]*, _ 
scrtnNW) 

scmd.CommandType = CommandType.StoredProcedure 
Dim sda As New SqlDataAdapter(scmd) 
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' T$o vi difa dQ li$u vko DataSet 
Dim dsTenMostExpProds As New DataSet() 
sda.Fill(dsTenMostExpProds) 

IsConnecting = False v : 

Return dsTenMostExpProds 

Catch expSql As SqlException 
Throw New Exception(expSql.Message) 

Exit Function 

Catch exp As Exception 

' Khdng thS k£t n6i vko SQL Server 
Throw New Exception(exp.Message) 

End Try 
End While 
End Function 
End Class 

Project: WebServiceClient 

Web References: http://localhost/WebServlce/main.asmx 

Main.aspx 

<%@Page Language=‘vb‘ AutoEventWireup=*false" Codebehind="main.aspx.vb“ 
lnherits=“WebServiceClient.Main‘ %> 

<!DOCTYPE HTML PUBLIC “-//W3C//DTD HTML 4.0 Transitional//EN‘> 

■ <HTML> 

• <HEAD> 

<title>Visual Basic .NET WebService Client</title> 

<meta name="GENERATOR“ content=“Microsoft Visual Studio.NET 7.0‘> 
cmeta name^CODEJ-ANGUAGE* content="Visual Basic 7.0“> 

<meta name= , vs_defaultClientScrlpt‘ content=“JavaScript“> 
cmeta name=’vs_targetSchema“ 
content='http://schemas.microsoft.com/intellisense/ie5“> 

• </HEAD> 

<body> 

<form id="frmMain‘ method="post‘ runat="server"> 

<P> 
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<hr> 

<Px/P> 

<P> 

<asp:Button id='btnTenMost' runat='server' Text=“Get Ten Most 
Expensive Products* , x/asp:ButtonxBR> 

<BR> 

<asp:DataGrid ids'grdProducts*' runat=“server' BorderColor=‘#E7E7FF* 
BorderStyles-None* BorderWidth="1px" BackColor=*White* CellPadding=: ,, 3 , 
GridLines= ,, Horizontar> 

<SelectedltemStyle Font-Bold="True' ForeColor="#F7F7F7" 
BackColor=“#738A9C*x/SelectedltemStyle> 

<AlternatingltemStyle BackCoior=‘#F7F7F7"x/AlternatingltemStyle> 
<ltemStyle ForeColor=’#4A3C8C" BackColor=“#E7E7FF*x/ltemStyle> 
<HeaderStyle Font-Bold=True‘ ForeColor='#F7F7F7* 
BackColor='#4A3C8C'x/HeaderStyle> 

<FooterStyle ForeColor=“#4A3C8C‘ 
BackColor='#B5C7DE’x/FooterStyle> 

<PagerSty!e HorizontalAlign=" Right* ForeColor=“#4A3C8C" 
BackColor=“#E7E7FF‘ Mode=’NumericPages*x/PagerStyle> 
</asp:DataGridx/P> 

</form> 

</body> 

</HTML> 

maln.aspx.vb 

Public Class Main 

Inherits System.Web.UI.Page 

Protected WithEvents grdProducts As System.Web.UI.WebControls.DataGrid 
Protected WithEvents btnTenMost As System.Web.Ul.WebControls.Button 

#Region “ Web Form Designer Generated Code “ 

'This call is required by the Web Form Designer. 

<System.Diagnostics.DebuggerStepThrough()> Private Sub lnitiatizeComponent() 
End Sub 

Private Sub Page_lnit(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.lnit 

'CODEGEN: This method call is required by the Web Form Designer 
Vo not modify it using the code editor. 
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InitializeComponentO 
End Sub 

#End Region 

' Thu tpc n£y xif ly sp ki$n nh£n chuQt tr&n nut “Get Ten Most Expensive Products". 

' Tpo mdt instance cua class Web Service. K&t qui cua phudng thCfc Web dupe 
' g<?i sau <36 dupe kit vdo DataGrid. 

Private Sub btnTenMost_Ctick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnTenMost.Click 
Dim ws As New tocalhost.Main() 

grdProducts.DataSourc© » ws.GetTenMostExpensive Products 
grd Products. DataBind() 

End Sub 
End Class 

Project: VB.NET WebService (Client) 

Web References: http://10d&tht)st/WebServices/main.asmx 

frmMaln.vb 

Option Strict On 

Imports System.Text. RegularExpressions 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code ph£t sinh form di/pc bd qua 

' ThO tpc ndy xCt ly nut"Get Orders History". 

Private Sub btnGetOrderHistory_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnGetOrderHistory.Click 
If Not CustlDlsValid() Then 
Exit Sub 
End If 

Dim strCustID As String = Trim(txtCustlD.Text) 

' Tpo mdt instance cua class Web service proxy 
Dim ws As New localhost.MainQ 
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‘ Tgo m$t biS'n Mu kiSu tri vi 
Dim cohi As locathosi.CustomerAndOrderHistorylnfo 
Try 

cohi = ws.GetCustomerOrderHistory(txtCustlD.Text) 

Catch exp As Exception 

MsgBox(exp.Message, MsgBoxStyle.Critical, Me.Text) 

End Try 

If cohi.Orders.CustOrderHist. Rows.Count > 0 Then 
With grdOrders 

.CaptionText =» "Order History for * & cohi.Company & 

.CaptionFont = New Font(" Microsoft Sans Serif, 10) 

.DataSource = cohi.Orders.CustOrderHist 
TableStyles.Clear() 

End With 

Dim grdTableStylel As New DataGridTableStyleQ 
With grdTableStylel 

' Ludn ludn quy dmh MappingName, ngay ck DataView chlco m$t being. 
.MappingName = cohi.Orders.Tables(0).TableName 
End With 

1 SCf dung column style dS thay cho cac c$t M ddng phat sinh trong DataTable. 
' Khi cd sil dung cac dtii Mpng column style, cac cot mu6n hiSn thi phai ket 
' vdi mot d6i ti/png column style. 

Dim grdColStylel As New DataGridTextBoxColumn() 

With grdColStylel 

MappingName = "ProductName" 

.HeaderText = “Product Name" 

.Width = 230 
End With 

Dim grdColStyle2 As New DataGridTextBoxColumn() 

With grdColStyle2 

.MappingName = "Total" 

.HeaderText = "Total" 

.Format = "c“ 

.Width = 75 
End With 
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grdTableStylel .GridColumnStyles.AddRange _ 

(New DataGridColumnStyleO {grdColStylel, grdCoiStyle2}) 
grdOrders.TableStyles.Add(grdTableStylel) 

'V ! ’ ■ . , . ■ 

grdOrders. Visible = True 
IblNoResults.Visible = False 
Else 

IblNoResults.Text = "No data was returned for the Customer ID you ' & 
"entered. Please check the value and try again. Examples are * & _ 
"COMMi, GODOS, and ISLAT." 

IblNoResults.Visible = True 
grdOrders.Visible = False 
End If 
End Sub 


* Kiem tra tinh hop 1$ cua CustomerlD 
Private Function CustlDlsValidQ As Boolean 

1 Sfi dung regular expression d£ ki4m tra thda theo m$u 
If Not Regex. lsMatch(txtCustlD.Text, " A \s*(\D){5}\s*$") Then 
MsgBox("You must enter a five-letter CustomerlD." & _ 

"Examples areCOMMJ, QODOS.apd I SCAT/, _ 

. Msg^pxSfyle.Exclamafo^ , T 

jVi> i:*f> ,/j i(VV ‘ff.ti - ■'< . 

Return True . * ■ h •>! io -- 

End Function V'~ (! - T . 

End Class ‘ ! 

•V • . /. >. -* a'fj'c <'1 bfu W ri-j: ♦ S(.f^ ’i'. v "» t n! - >t; ; ? 


32. Tao vtng du% 

Giao di^a master-details 1A mf)t trong cAc kilu giao di§n truy xuAt duf lif u 
pb6 bi£n nhAt. Ttfdng tirong rAng duf li$u dufcrc td chufc tfceo cAy ptAn cAp, 
gitfing nhir control Tree View sti dung trong Windows'Ex'ploirer. Vdigiao di$n 
Master-Details ta c6 thl khoan sAu vAo duf li#u theo nhiAu cAp, cAp truffle dfl 1A 
cAp cha (master) vA cAc cAp con cua master 1A cAc chi ti£t cua master 
(details). 
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12 3 4 5 * 7*9 


SAVEA 

Save-a-lot Markets 

Boise 


10615 

7/30/1997 

6/6/1997 $0.75 

'Federal 

S Nipping 

Speedy 

Express 

Speedy 

Express 

Speedy 

Express 

: Federal 
Shipping 

Federal 

Shipping 

: Speedy 
:Express 

-•Miiisj 


RATTC 

Rattlesnake 

Canyon Grocery 

LINO-Oelieateso* 

Albuquerque 


10673 

9/16/1997 

9/19/1997 $22.76 



LINOD 

t. de 

Margarita 

Heleiftkl 

iaSpRSl 

10695 

10/7/1997 

10/14/1997 $16.72 


r3 

WILMK 

; Wilma** >1* 


10873 

2/6/1996 

2/9/1998 i$0.82 



VAFFE 

VaWeijemat 

Arhus 

'Mil' 

10679 

2/10/1996 

2/12/1996 $6.50 


'I': 

MAISD 

Maison Dewey 

Bruxelles 


10910 

2/26/1996 

3/4/1998 $38.11 

ag| 

fit 

BOTTM 

Bottom-Dollar 

Market* 

Tsawassen 

Onfcraj 

1100S 

4/7/1998 

4AV1996 $0.75 

M 

' A 

BONAP 

Bon «pp' 

Marseilla 

mm 

l 


:> ixT-i'S 

, < ■ - 


TRADH 

Trodigio 

Hiperroercados 

Viciuaille* an stock 

Sao Paulo 

mM 







VICTE 

Lyon 

Hail 






''i 


MfSKF 


wmmmEmmmmmmm 




x ! M 


Cac chufc nana chinh: 

> Chtfcfng trinh c6 ba control DataGrid, m6i control duoc k&t v&o m§t 
DataSet ri6ng cua n<5 suf dung database Northwind. Master DataGrid 
chda c4p cao nh£t hi$n thi Customers (cdc khdch h£ng). Nh&n v&o niit 
"Orders" cua m0t customer d£ xem cflLp k£ ti£p cua duf li$u trong 
DataGrid thur hai: T&'t cd cdc don dat hang (order) cua khdch hang 
(customer) d<5. Nh£n vao nut “Details" cua Order d£ xem c<ip dur li$u cud'i 
cung: ta't cd cdc chi ti£t cua order d<5. 

Chu y: 

> Chircfng trinh stif dung database Northwind trong SQL Server. 

> Xem cdch cai dat dug dung Web d cdc vi du trifdc. 

Main.aspx , 

■ <%@Page Language=“vb“ AutoEventWireup="false" Codebehind='main.aspx.vb“ 

inherits=“HowToBuildMasterDetailsWebApp.Main"%> 

• <!DOCTVPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> 

• <HTML> 

■ <HEAD> 

<title>Visual Basic .NET - Master-Details Web Application</tit!e> 

<meta content=“Microsoft Visual Studio.NET 7.0“ name=‘GENERATOR"> 

<meta content=“Visual Basic 7.0“ name="CODE_LANGUAGE“> 
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<meta contents"JavaScript" name=*vs_defaultClientScript"> 
cmeta contents" http://schemas. microsoft.com/intellisense/ie5" 
name=*vs_targetSchema*> 

<LINK href="styles.css" rel="stylesheet"> 

</HEAD> 


<body> 

<forrfi Ws"frmMain" method="post" runat="server"> 

<hr> 

<TABLE id="Table1" width="100%" border=‘0"> 

<TR> 

<TD valign="top"xasp:datagrid id="grdCustomers" runat="server" 
AltowSorting="True" AutoGenerateColumns="False" AllowPaging="True“> 

<SelectedltemStyle CssClass="DataGrid_SelectedltemStyje" /> 
cltemStyle CssClass=“DataGrid_ltemStyle" /> 

<HeaderStyte CssClass=‘DataGrid_HeaderStyle" /> 

<FooterStyte CssClass="DataGrid_FooterStyle" /> 

<Columns> 

<asp:BoundColumn DataField=‘CustomerlD“ 
SortExpression="CustomerlD" HeaderText="Customer ID" /> 

<asp:BoundColumn DataField="CompanyName" 
HeaderText=“Company" /> 

<asp:BoundColumn DataField=“City" HeaderText="City" /> 
<asp:ButtonCo(umn Text=‘Orders" ButtonType=" Push Button" 
CommandName=’Select" /> 

</Columns> 

<PagerStyle CssClass="DataGrid_PagerStyle" 
Mode="NumericPages" /> 

</asp:datagrid> 

</TD> 

<TD valign="top"> 

<asp:datagrid id='grdOrders" runat=‘server" AllowPaging="True" 
AutoGenerateColumns='False" Visible="False"> 

<SelectedltemStyle CssClass="DataGrid_SelectedltemStyle"/> 
<ltemStyle CssClass="DataGrid_ltemStyle" /> 

<HeaderStyle CssClass="DataGrid_HeaderStyle" /> 

<FooterStyle CssClass=’DataGrid_FooterStyle" /> 

<Columns> 

<asp:BoundColumn DataField=‘OrderlD" HeaderText=“Order 1D*V > ; 

/> 'V 


<asp:BoundColumn DataField="OrderDate" 
HeaderText="Ordered* DataFormatString="{0:d}* /> 
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<asp:BoundColumn DataField=‘ShippedDate‘ 
HeaderText='Shipped" DataFormatString="{0:d} , ‘/> 

<asp:BoundCo!umn DataField^Freight" HeaderText=" Freight" 
DataFormatString='{0:c}“ /> 

<asp:BoundColumn DataField="ShippedVia" 
HeaderText="Shipped Via" /> 

<asp:ButtcmColumn Text=*Details“ ButtonType=*PushButton" 
CommandName="Select' /> 


</Columns> 

<PagerStyle CssClass="DataGrid_PagerStyle" 
Mode='NumericPages“ /> 


</asp:datagrid> 

</TD> 


</TR> 

<TR> 


T? 43 ►’' 


<TD class="details" valign="top* colSpap="2‘><asp:datagrid 
id="grdOrderDetaiis' runat=‘server* AutaG'eherateColumn^c'False" 


AllowPaging=“False" Vislble=’Faise'> 


<S^ect^ditemSf^i0r’Css(jfes!5t*C)ataGrid_SetectedltemStyte" /> 
<ltemSty^e£saiCfess=!*6ataGrid_ltemStyle , /> 
cHeadeVStyle CssClass=‘DataGrid_HeaderStyle“ /> 


<Footer§tyle CssClass='DataGrid_FooterStyle" /> 

<Columns> : , 

<asp:BoundColumn DataField=“ProductName' 
HeaderText="Product" /> 

<asp:BoundColumn DataField=“UnitPrice" HeaderText=“Price" 
DataFormatString="{0:c} b /> 

<asp:BoundColumn DataField="Quantity" HeaderText="Quantity" 

/> 


<asp:BoundColumn DataField='Discount“ HeaderText="Discount" 
DataFormatString=*{0:p2}" /> 

<asp:BoundColumn DataField=‘CategoryName" 
HeaderText="Category“/> 

</Columns> 

</asp:datagrid> 

</TD> 


</TR> 

</TABLE> 

</form> 

</body> 

• </HTML> 
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main.aspx.vb 

• Option Strict On 

■ Imports System.Data.SqlClient 

• Public Class Main 

Inherits System.Web.Ul.Page 

Protected WithEvents IbITitle As System.Web.Ul.WebControls.Label 
Protected WithEvents grdCustomers, grdOrders, grdOrderDetails As 
System.Web.Ui.WebControls.DataGrid 

Protected WithEvents btnAbout As System.Web.Ul.WebControls.Button 
' Code phit sinh Web form dtlqc bd qua 

•_ • . '■( . . ' 1 ‘.A- ■' ■ v, t ■■■- ■ i' ■ - 

. .. - 

Protected Const CONNECTIQpUERROR^MSG As string = _ 

'To run this sample, you must have SQL " & _ 

'or MSDE with thei No^hwind database installed. ’ 

\<« M ' s ■■ ' ~ ' J ■! - - ' . 

Protected Const SQL_CONNECTION_STRING As String, = _ 

“Server=localhost;" & _ . ■ 

"DataBase=northwind;“ & _ 

"Integrated Security=false;* & _ 

'User ID=sa;Password=" 

Protected strConn As String =? SQL^CONNECTIOIsLSTRING 

' Thu tyc xdty stf ki$n ItemCommand tr&n master DataGrid chinh (grdCustomer). 

' St/ kien niy xiy ra khi bit ky nut nio trong DataGrid difpc nhin, kS ci LinkButton. 
' Diy li si/ kiSn chinh di quin ly ling dyng Master-Details Web Application 
Private Sub grdCustomers_ltemCommand(ByVal source As Object, ByVal e As 
System.Web.Ul.WebControlSvDataGridCommandEventArgs) Handles 
grdCustomers.ItemCommand 

‘ e.ltem li mdt dd'i tuyng DataGridttem titdng ting cho item dt/qc chyn. Doi tUdng 
' niy khdng chi li cic record mi c6 thS li cic thanh tiiu dS (tin cua cac cdt khi 
' nh£n vao do d4 sip x&p) hoic li cic LinkButton sft dyng di phin trang. 

If e.ltem.itemType = ListltemType.Pager Then Exit Sub 

' Tyo mot d6i tLfpng SqlParameter di truySn vio mdt thu tyc con dS k&t dd HSu 
' vao DataGrid ci'p k4 tiep. 

Dim param As New SqlParameter(“@CustomerlD", SqlDbType.NChar, 5) 
param.Value = grdCustomers. DataKeys(e.ltem.ltemlndex) 
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BindOrdersGrid(param) .■» , 

End Sub 

Private Sub grdCustomers_PagelndexChanged(ByVal source As Object, ByVai e 
As System. Web.UI.WebControls.DataGridPageGhangedEventArgs) Handles 
grdCustomers.PagelndexChanged 

grdCustomers.CurrentPagelndex = e.NewPagelndex 
BindCustomersGrid() ; 

End Sub - 

■ ■■ : d 

' XCt ly sl/ ki$n ItemCommand cho master DataGrid cip thif hai (grdOrders) 

Private Sub grdOrders_ltemCommand(ByVal source As Object, ByVai q v . 
System.Web.Ul.WebControls.DataGridCommandEventArgs) Handles 
grdOrders. ItemCommand 

If e.Item.ItemType = ListltemType.Pager Then Exit Sub 

Dim param As New SqlParameter(‘@OrderlD", SqlDbType.Int) 
param.Value = grdOrders. DataKeys(e.Item. Itemlndex) 

BindOrderDetailsG rid(param) 

End Sub ' J ‘ 

... . r.n 

Private Sub grdOrders_PagelndexChanged(ByVal source As Object, ByVai e As 
System. Web. UI.WebControls.DataGridPageChangedEventArgfe) Handles 
grdOrders.PagelndexChanged 

grdOrders.CurrentPagelndex = e.NewPagelndex • ■ t 

Dim param As New SqlParameterC^CustomerlD* SqlDbType.NChar, 5) 
param.Value = grdCustomers.DataKeys(grdCustomers:Selectedlndex) 
BindOrdersGrid(param) 

End Sub 

Private Sub Page_Load(ByVal sender As System.Object, ByVai e As 
System.EventArgs) Handles MyBase.lioad 
If Not Page. IsPostBack Then ■ ' 

* Khi mdi v£o chi hiin thj master DataGrid chinh 
BindCustomersGrkJO 
End If 
End Sub 


' ThQ tuc nay ggi CreateDataSet kit DataGrid Customers vao gia trj tri vS 
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Sub BindCustomersGrid() 

Dim strSQL As String = _ 

‘SELECT c.CustomeriD, c.CompanyName, c.City, 

“ COUNT(o.OrderDate) AS OrderCount" & _ 

"FROM Customers c _ 

"INNER JOIN Orders o ON c.CustomeriD = o. Customer ID * & _ 

"GROUP BY c.CustonierjO, c.QorppanyName. c.City* 

With grdCustomers 

.DataKeyField = "CustomerlD" 

> OataSource ^ C v reateDataSet($USQL) ( 

.DataBindQ .,, , 

End With 

End Sub ... v ; 

' Thu tyc n&y gq>i CreateDataSet vi kSt DataGric OfderDetaits v&o gi& trj tri v4 
Sub BindOrderDetailsGrid(ByVal param As SqIParameter) 

Dim strSQL As String - _ 

“SELECT p.ProductName, od.UnitPrice, cd.Ouantity, ‘ _ 

" od.Discount, c.CatagoryName ■/ 

"FROM [Order Details] oc| “ & T 

“INNER JOIN Products p ON od.ProductlD = p.ProductID " & _ 

"INNER JOIN Categories c ON p.CategoryiD * c.CategorylD " & _ 
"WHERE OrderlD = QOrderlD" 

With grdOrderDetails 

.DataSource = CreateDataSet(strSQL, param) 

.DataBindQ 
Visible = True 
End With 


End Sub 
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‘ Thu tyc niy gpi CreateDataSet vi kit DataGrid Orders vio gia trj tri vS 
Sub BindOrdersGrid(ByVal param As SqIParameter) 

Dim strSQL As String = _ 

“SELECT o.OrderlD, o.OrderDate, o.ShippedDate, “ & _ 

* o.Freight, s.CompanyName As ShippedVia " & 

“FROM Orders o “ & _ 

“INNER JOIN Shippers s ON o.ShipVia = s.ShipperlD “ & _ 

“WHERE CustomerlD = @CustomerlD“ 

With grdOrders 

' Gin DataKeyField d£ tip hyp DataKeys dupe nhip dO li$u vi co thS s£t 
' eaveat handler ItemCommand 

.DataKeyField = “OrderlD" 

.DataSource = CreateDataSet(strSQL, param) 

.DataBind() 

.Visible = True 
End With 
End Sub 

* Thu tyc niy di/pc sCf dyng bdi ci ba DataGrid 

Private Function CreateDataSet(ByVal strSQL As String, _ 

Optional ByVal sqIParam As SqIParameter = Nothing) As DataSet 

Dim scnnNW As New SqlConnection(strConn) 

Dim semd As New SqlCommand(strSQL, scnnNW) 

If Not IsNothing(sqlParam) Then 
semd. Parameters. Add(sqlParam) 

End If 

Dim sda As New SqlDataAdapter(scmd) 

Dim ds As New DataSet() 
sda.Fill(ds) 

Return ds 
End Function 


• End Class 
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33. Phan trang DataGrid tren Web Forms 

Ph^n trang 1 d hiln thi mpt tap kdt qud con tr6n mot trang tai m0t thdl 
dilm, vd s6 1km cho vi$c hiln thi k£t qud nhanh hem. 






feiigjSoiaSiia 

m nii 

hetj*/AocaKwt/DaDjljfi«rf'eflrgATiatx«CK 

i 



P U» Custom Paging 



10255 

Inlagd SHI 

$15.20 25 

0.00 % 

Seafood 



1025V 

Pavlova 

$13.50 35 

0*00 % 

Confections 

i 


10255 

Radatte Courda vault 

$44.00 30 

0.00 % 

Dairy Products ; 

I 


1025. 

Original Frankfurter grime SoOe 

<10.0, 12 

0.00 % 

Condiments 

1 


1025V 

Porth Portia. 

52670 15 

0.00 % 

Me at/9 oultry 

$ 

i 


10257 

Chartraina vert* 

$1440 6 

0.00 % 

beverages 


10257 

Original frankfurter grijne SoBe 

$10.40 15 

0.00 % 

Condiments 

1 


10257 

Schoggi SchokoUda 

$35.10 25 

0.00 % 

Confections 



10250 

Chang 

$15.20 50 

20.00 % 

beverages 



10250 

CM Anton's Gumbo Mis 

$17.00 65 

20.00 % 

CondimanU 

I 


10250 

Maacarpona fabioh 

$25.60 6 

20.00 % 

Dairy Products ; 

1 


10259 

Graved las 

$20.60 1 

0.00% 

Seafood 



10259 

Sir Radnor's Scoria. 

$8.00 10 

0.00% 

Confections 

* 


10260 

10260 

lack's Mew fngUnd Clam Chowder $7.70 16 

Outbook la oar $12.00 21 

25.00 % 

25-00 % 

Seafood 

Beverages 

I 


10260 

Ravioli Angelo 

$15.60 50 

0.00 % 

Grains/C areals 

<< 


10260 

Tarte au sucre 

$3940 15 

2S.00 % 

Confections 



10261 

Sir Aodney's Scones 

$8.00 20 

0.00 % 

Confections 



10261 

Stsalafe Stout 

$1440 20 

0.00 % 

Bevorages 



10262 

Chad Anton's Gumbo Mis 

$17.00 12 

20.00 % 

Condiments 

$ 



Fife 

2 a4 106 






{"First Page] [Previous Page} [Neat Page] [last Pnye] 

3 

S3 w- ; '^ 


- X>'■' -♦'Vrl'^gy^rriy- 






Cac chufc n5na chinh: 

> DataGrid phan trang duqc bi£u diin theo hai edeh: Cdch phan trang 
duqc xdy dong sin di kdm vdi control DataGrid; Cdch phan trang tily 
bi£n sd dung mOt c$t "RowiD" th&m vdo DataSet cung vdi m$t 
DataView RowFilter. 

> DataGrid vln c6n duqc sip xep trong qud trinh phdn trang. Sort 
expression duqc luu trong m$t control HTMLInputHidden. 

> Application Cache duqc suf dung da 1 luu DataView 1dm DataSource cho 
cd hai edeh phdn trang. Vdi edeh ndy, duf liqu hem 20000 records chi 
duqc download m§t lln. 

> DataFormatString duqc sOr dung dl dinh dang price vd discount. 

Chd S'- 

> Chuong trinh suf dung database North wind trong SQL Server. 

> Xem edeh edi ddt mqt ufng dung Web trong ede chuong trinh trude. 
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Thir muc: Phan trang DataGrid tren Web Form 


main.aspx 

<%@Page Language='vb" Auto Eve ntWireup='false* Codebehind="main.aspx.vb' 
lnherits='DoDataGridPaging.Main"%> 

<!DOCTYPE HTML PUBLIC ’-//W3C//DTD HTML 4.0 Transitional//EN"> 


<HTML> 

<HEAD> 

<title>DataGrid Paging</title> 

<meta contents'Microsoft Visual Studio.NET 7.0“ name='GENERATOR"> 
<meta content='Visual Basic 7.0' name=‘CODE_LANGUAGE“> 

<meta content='JavaScript“ name=*vs_defaultClientScript“> 

<meta content='http://schemas.microsoft.com/intellisense/ie5" 
name='vs_targetSchema*> 

<LINK href=‘styles.css“ rel=“stylesheet"> 


</HEAD> 

<body> 

<form id="frmMa»n* method=‘post" runats‘server'> 

<hr> 1 

ctable align=*center"> 

<tr> 1 

<td> 

<asp:checkbox id=*chkUseCustomPaging" runat*'server" Text='Use 
Custom Paging'AutoPostBack='True"/> 

</td> 


</tr> 

<tr> 

<td> 






r 


. ‘; t i -,Vi»h3V. dO ■ i t 

,-h ■) 


<asp:datagrid kjs'grdprderO^aifs' /unat^'sew^f* AJfcH|Y$orting='T rue' 
AutoGenerateColumns=i'False“ AltoWPaging=“Troe' PageSiMts‘20'> j v 

<SelectedltemStyle CssClass='DataGrid_SelectedltemSty!e" /> 
cltemStyle CssCJas6="pataGrid_ttemStyle‘ /> 


<HeaderStyle CssClass='DataGrid_HeaderStyle' /> 
<FooterStyle CssClass=‘DataG rid_FooterStyle‘ /> 
<Columns> 

<asp:BoundColumn DataField=‘OrderlD" 
SortExpression=“OrderlD“ HeaderText='Order ID" /> 

<asp:BoundColumn DataField='ProductName“ 
SortExpression='ProductName" HeaderText='Product' /> 
<asp:BoundColumn DataField="UnitPrice’ 
SortExpress»on="UnitPrice' HeaderText="Price‘ DataFormatString='{0:c}' /> 
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<asp:BoundColumn DataField=“Quantity‘ 
SortExpression="Quantity" HeaderText=‘Quantity - /> 

<asp:BoundColumn DataField="Discount" 
SortExpression="Discount" HeaderText="Discount" DataFormatString= - {0:p2}" /> 
<asp:BoundColumn DataField="CategoryName" 
SortExpression="CategoryName" HeaderText="Category" /> 

</Columns> 

<PagerStyle CssClass=’DataGrid_PagerStyle" 
Mode=*NumericPages" /> 

</asp:datagrid> 

</td> 

</tr> 

<tr> 

<td> 

<input id=‘htmlHiddenSortExpressiorr type="hidden" value="OrderlD" 
runat="server* NAME="htmlHiddenSortExpression"xbr> 

<asp:Panel id="pnlCustomPaging" Runat="server" 
CssClass="CustomPaging"> 

<P>Page&nbsp; 

<asp:Label id="lblCurrentPage" 
runat="server"x/asp:Label>&nbsp;of&nbsp; 

<asp:Label id="lblTotalPages" runat="server"x/asp:Labeix/P> 
<P> 

<asp:LinkButton id=’lbtnFirstPage" runat=“server M Text="[First 
Page] - OnCommand=‘NavigationLink_Click" 
CommandName="First"x/asp:LinkButton> 

<asp:LinkButton id=‘lbtnPreviousPage" runat="server" 
Text="[Previous Page] - OnCommand= - Navigationl_ink_Click" 
CommandName="Prev"x/asp;LinkButton> 

<asp:LinkButton id= - lbtnNextPage - runat= - server - Text="[Next 
Page] - OnCommand="NavigationLink_Click" 
CommandName=: - Next'x/asp:LinkButton> 

<asp:LinkButton id= - lbtnLastPage - runat=" server" Text= - [Last 
Page]" OnCornmand="NavigationLink_Click" 
CommandName="Last‘x/asp:LinkButtonx/P> 

</asp:Panel> 

</td> 

</tr> 

</table> 

</form> 

</body> 

- </HTML> 
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main.aspx.vb 

■ Option Strict On 

imports System.Data.SqlClient 

• Public Class Main 

Inherits System.Web.Ul.Page 

Protected WithEvents IbITitle, IbICurrentPage, IbITotalPages As Label 

Protected WithEvents IbtnFirstPage, IbtnPreviousPage, IbtnNextPage, 

IbtnLastPage As LinkButton 

Protected WithEvents grdOrderDetails As DataGrid 

Protected WithEvents btnAbout As Button 

Protected WithEvents chkUseCustomPaging As 

System.Web.ULWebControls.CheckBox 

Protected WithEvents htmIHiddenSort Expression As HtmllnputHidden 
Protected WithEvents pnICustomPaging As Panel.... 

■ ' Code phit sinh dupe bd qua v « 

-.C- • -b. ■ ■ , 

Private dvOrderDetails As DataView c C j? . k ■>, i a C - v• /< 

' S& dyng cho ki&u phin trang tdy b&n fcustdfhpkgldg) 

Private intCurrentPage As Int32 = t 

. !t' - • :■ ' ■ ... . 

Protected Const SQL_CONNECTION_BTRII^G As String = _ 
“Server=localhost;“ & _ 

“DataBase=northwind;“ & _ 

“Integrated Security=dalse;“ & _ 

“User lD=sa;Password=“ 

' Xuf ly si/ kiSn CheckedChanged cho control CheckBox. 

Private Sub chkUseCustomPag»ng_CheckedChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
chkUseCustomPaging.CheckedChanged 

' Reset thude Unh CurrentPagelndex v£ logi DataView ra khdi Cache 
grdOrderDetails.CurrentPagelndex = 0 
Cache.Remove("dvOrderDetails“) 

BindOrderDetailsGrid() 

End Sub 
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' Xti ly si/ kien PagelndexChanged cho DataGrid OrderDetaiis. 

' ThCt tuc niy phyc vu cho chtic ning phin trang cd sin khi AllowPaging = True 
Private Sub OrderDetails_PagelndexChanged(ByVal source As Object, ByVal e As 
System. Web.UI.WebControls.DataGridPageChangedEventArgs) Handies 
grdOrderDetails.PagelndexChanged ? 

grdOrderDetails.CurrentPagelndex = e.NewPagelndex 
' Liy sort expression hien hanh (sip xep theo cdt nio) tCf HTML input control 
BindOrderDetailsGrid() 

End Sub 

’ Xti ly khi ngi/di sCr dt/ng nhin vio Mu dS cic cdt dS sip xSp 
Private Sub grdOrderDetails_SortCommand(ByVal source As Object, ByVal e As 
System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles 
grdOrderDetails. SortCommand 

' Ltiu sort expression hi$n hinh vio HTML input control 
htmIHiddenSortExpression.Value = e.SortExpression 
If chkUseCustomPaging.Checked Then 
' Quy dinh trang hi$n hanh 
intCurrentPage = Clnt(lblCurrentPage.Text) 

End If 

' KSt do Mu vio DataGrid 
BindOrderDetailsGrid() 

End Sub 

' Thu tuc niy xti ly si/ kien click trin bon control LinkButton thudc custom paging 
Protected Sub NavigationUnk_Click(ByVal sender As [Object], ByVal e As 
CommandEventArgs) 

Select Case e.CommandName 
Case “First" 

intCurrentPage = t 
Case "Last" 

intCurrentPage = Clnt(lblTotalPages.Text) 

Case "Next" 

intCurrentPage = Clnt(lblCurrentPage.Text) + 1 
Case "Prev* 

intCurrentPage = Clnt(lblCurrentPage.Text) -1 
End Select 

BindOrderDetailsGridO 
End Sub 
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Private Sub Page_Load{ByVai sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
If Not Page.lsPostBack Then 
Cache.Remove(“dvOrderDetails“) 

BindOrderDetailsOfidO 
End If . • 

End Sub 

' Thu tyc n&y kit DataGrid Order Details vie m$t DataView cd filter ho$c 
' khdng filter nhU dUQc xic dfnh trong pht/dng fade SetPagingControls 
Private Sub BindOrderDetailsGridP ^f e 
GetDataSourceQ - • 

SetPagingControls() i>,! ' 

‘i,i ! ‘ t 1, .. > ’ - V- 

With grdOrderDetails ' v '' ' H 

Data Source = dvOrderDetails 1 

.DataBindQ " 1 

End With ' r > ’ 

End Sub 

’ Tri vS mdt DataSet vdi mQt c$t RowlD dikfc faim vio 
Private Function CreateDataSetO As DataSet 

Dim strSQL As String = _ :i ‘ • ' • • 

“SELECT od.OrderlD, p.PfoductName, od.UnitPrice, od.Quantity, * & _ 

■ od.Discount, c.CategoryName “ & _ 

“FROM [Order Details] od “& _ 

“INNER JOIN Products p ON od.ProductID = p.ProductID “ & _ 

“INNER JOIN Categories c ON p.CategorylD = c.CategorylD “ & _ 
“GROUP BY od.OrderlD, p.ProductName, od.UnitPrice, od.Quantity, “ & 
“ od.Discount, c.CategoryName* 

Dim scnnNW As New SqlConnection(SQL_CONNECTION_STRlNG) 

Dim semd As New SqlCommand(strSQL, scnnNW) 

Dim sda As New SqlDataAdapter(scmd) 

Dim ds As New DataSet() 
sda.Fill(ds) 
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‘ Thim mdt cdt RowlD phyc vu cho custom paging. 

Dim dt As DataTable = ds.Tables(O) 
dt.Columns.Add(“RowlD“, Type.GetType{‘System.int32“)) 
dt. AcceptC hangesQ 

Return ds 
End Function 

1 Thu tpc niy tri v4 mdt DataView dupe sip xS'p vi danh s6 Hy tit Application 
Cache. Niu DataView khdng tim thay trong Cache, no dupe tao mdi. 

Private Sub GetDataSource() 

1 Niu tim thiy DataView trong cache, sd dpng no 
If Not lsNothing(Cache("dvOrderDetails")) Then 

‘ Tit ci cic item trong Cache dSu cd kieu Object, do do phii ep 
' kiiu trUdc khi sCt dpng nd. 

dvOrderDetails = CType<Cache(’dvOrderDetails‘), DataView) 

Else ' DataView khdng tim thiy trong cache 
' Tpo nidi m^t DataView 

dvOrderDetails = Create Data $et()T at?les(0). Default View 

* DUa dataviaw vio Cache ■ 

CachefdvOrderDetails") = dvOrderDetails 
End If 

1 Sip xip DataView dpa trdn expression iUu trong control HtmllnputHidden. 
dvOrderDetails.Sort = htmIHiddenSortExpression.Value 

1 Bdi vi cic si RowlD di dt/pc thdm vio, niu khdng dinh si Ipi thi sau mdt 
‘ sip xip mdi cic si niy se khdng dung thd tp vi khdng sd dung di/pc 
' cho custom paging 

If chkllseCustomPaging.Checked Then 
RenumberRowsForPaging(dvOrderDetails) 

End If 


End Sub 
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' Thu tyc nky danh s6cot RowlD trong DataView sau khi ditdc sip x£p. 

' Chu y DataView dupe truySn vko By Ref d£ trinh sit dyng thSm bd nhd. 

Private Sub RenumberRowsForPaging(ByRef dv As DataView) 

' Reset RowFilter tren DataView tri/dc khi ip dyng mdt RowFilter mdi. 

' Neu khdng, RowFilter cu vin edn tic dyng, vi dv.Count bing vdi PageSize, 

' se giy ra Idi khi chay. 
dvOrderDetails. RowFilter = " 

Dim drwv As DataRowView 
Dim i As Int32 
For Each drwv In dv 
drwv("RowlD“) = i 
i += 1 
Next 
End Sub 

' Thu tyc nky thief lip cic control phan trang - cho ci each chu£n hokc 
' cich tuy bi£n 

Private Sub SetPagingControlsQ 

' NSu khdng sCt dyhg custom paging th) b$t tlnh ning phin trang cua DataGrid, 
' in c&c control phin trang cua custom paging vk thoit thu tyc. 

If Not chkUseCustomPaging.Checked Then > 

pnICustom Paging. V isible = False 
grdOrderDetails. Allow Paging = True 
Exit Sub 

End If ’ 1 

' Phin code edn lyi ip dyng cho custom paging 
pnlCustomPaging.Visibte = True 
grdOrderDetafls.AilowPaging - False 

' Xic djnh cic gii trj RowlD cho record diu tiin vk cu6i cung cua trang hiin 
' hknh cua t$p kit qui trin DataGrid. 

Dim strFirstRec As String = _ 

((intCurrentPage -1) * grdOrderDetails.PageSize).ToString 
Dim strLastRec As String = _ 

((intCurrentPage * grdOrderDetails.PageSize) + 1).ToString 
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' Xac dinh tdng so trang cua DataGrid. Lim diSu niy trade khi ip 
'dung RowFilter vio DataView. 

Dim intTotalPages As Int32 = _ 

Clnt(System.Math.Ceiling(dvOrderDetails.Count / grdOrderDetails.PageSize)) 
' Ap dpng mQt RowFilter mdi tlnh dupe 
dvOrderDetails.RoyvFilter = “RowlD > “ & strFirstRec & _ 

“ AND RowlD < ■ & strLastRec * 

' Tdt ci cic control da dupe tlnh toan, hiSn thj cac control cho custom paging 
IblCurrentPage.Text = intCurrentPage.ToString 
IbITotalPages.Text - intTotalPages.ToString 
If intCurrentPage = 1 Then 

IbtnPreviousPage.Enabled = False 
If intTotalPages > 1 Then 
IbtnNextPage. Enabled = True 
Else 

IbtnNextPage. Enabled = False 
End If 
Else 

IbtnPreviousPage.Enabled = True 
If intCurrentPage = intTotalPages Then 
IbtnNextPage.Enabled = False 
Else 

* IbtnNextPage.Enabled = True 
End If 
End If 
End Sub 
End Class 
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Phan VI - Web Services 


34. Sijf dung cac Web Service 

Chi/crng trinh ndv bilu diln cdch suf dune nhilu Web Servlcfe thtfc t& 



Chaang trinh c6 mpt TabControl cung c£p 6 vl du vl stif dung Web Service, 
c&z vi du c6 do phufc tap t&ng din: 

> Lay thong tin ngdy gid dia phirong difa trdn US Zip code. Bia chi Web 
Service: http://www.alethea.net/webservices/LocalTime.asmx 

> Chuy€n ddng Euro sang ti4n t$ cua 12 qutfc gia khdc. Bia chi Web 
Service: http://www.xr*nl- 

webservices.net/services/conversions/euro_convert/euro_conver.asmx 

> Lay thbng tin gid cd, ti 1$ bdn cua bdt cudn sdch ndo tir Amazon vd 
Barnes & Noble bdng cdch nhpp vdo mpt s6 ISBN. Bia chi Web Service: 
http://www.perfectxml.net/WebServices/SalesRankNPrice/BookService. 
asmx 


> Lay thong tin dir bdo thdi tidt hipn hdnh theo US Zip code. Bia chi 
Web Service: 

http://www.learnxmlws.com/services/weatherRetriever.asmx 

> Xem Dilbert cartoon-of-the-Day t£r Daily Dilbert Web service. Vi du ndy 
thtfc hipn Web Service mpt cdch khong d6ng b0. Bia chi Web service: 
http://www.esynaps.com/WebServices/DailyDiblert.asmx 
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> Tim higu ckch suf dung UDDI dg qukn ly cdc I5i dia chi Web service. 
Cho ph£p ngtfdi lkp trinh thifc hign kg' hoach quay lui (fallback plan). 
Dia chi Web Service: http://www.vbws.com/services/ServerTime.asmx 

Chuong trinh nky dbi hdi "Microsoft Universal Description Discovery and 
Integration (UDDI) SDK 1.76", c6 kfcm theo trong thu muc cua project nky, 
hokc c6 thg download tit trang 1 Web cua Microsoft: 

http://msdn.microsoft.com/library/default.asp?url=/nhp/Default.asp?contentid= 
28001204 . 


Ckc Web Service thixc t£ c<S th£ tim thky d http://www.xmethods.com/ 
Bg suf dung mgt Web Service, c4n th§m mgt Web Reference vko Visual 


Studio .NET project. Trong hgp thoai Add Web Reference go vko dia chi cua 
Web Service (vi du nhuf Chif d‘tr£n>Vk nhAh ndt Add Reference. Thao 

t$c nky lkm cho VS WSDLTtocui<nbnt(Vk tao mOt class dy 


quygn (proxy classirihn 4k API ^uc bO dg ngttdi l^p trtnh sur dung. 

Thtfdng thi tkn dat cho namespace cua Web Service khd hi&i. Ta c6 thg 
thay ddi chung bkng ckch md cky Wfeto^Refetences trong Solution‘Explorer vk 
nhkn chugt phki vko tkn mutfh thay ddi, chon Rename. 

Trong Visual Studio V .NET c6 thg ku? d^ngUfoDi di tlni ckc Web Service c6 
sin. Nhkn vkolikn WtfM^Web Irin Stkrf^age. NSu khdng 

thk'y Start page c 6 thi hiin tfci n6 bkngchpn menu Help PSHow Start Page. 

Project:' 6u 1 v ^ ^ 


Chd Project dk thkm ckc Web References d trkn vko vk v.di tkn .ckc 
namespace 14n Inert lk: Alethka, XML-WebServfces, PerfectXML, 


LeaTnXMLWS, Esynaps, VBWS. 


frmMaln.vb - 

Option Strict On ■/. 
Imports System.10 
Imports System.Net 
Imports System.Threading 
Imports Microsoft.Uddi 


Public Class frmMain 

Inherits System.Windows.Forms.Form 

Const WS_DATA_RETRIEVAL_ERROR As String = _ 

“An error occurred trying to retrieve the data from the Web Service/ & _ 
“The Web service may currently be down. You might attempt to access “ & 
“it directly: " 
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Const WS_CONNECTION_STATUS As String = _ 

"Contacting the Web Service and retrieving data. Please stand by...* 

' Danh cho tab Fallback (UDDI) 

Const SERVICE_KEY As String = *906e9751-6677-454e-ad7c-dca3c6699ccd" 
Protected frmStatus As frmStatus 
’ Code phat sinh form dupe bd qua 

‘ Suf dyng cac class thu'a k£ WebRequesf d£ l£y mpt stream tri Idi chda mot hinh 
' anh sCt dung d£ t$o mQt Bitmap cho PictureBox diSu kien thdi ti£t hien hinh 
Private Function <3etlmage(5yVal url As String) As System.Drawing.Image 
Dim httpRequest As HttpWebRequest 
Dim httpResponse As HttpWebResponse 

' Tap mptySu ciu dung WebReques tFactory 
httpRequest = CType(WebReque§t.Create(url), HttpWebRequest) 

With httpRequest 

.UserAgent - *Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.1)“ 
.Method = "GET" 

.Timeout = 10000 
End With 

Try 

' L£y Stream tri Idi vi tri vS mQt Bitmap dupe phat sinh til no. 
httpResponse = CType(httpRequest.GetResponse(), HttpWebResponse) 
Return New Bitmap(httpResponse.GetResponseStream()) 

Catch exp As Exception 

MessageBox.Show(*An error occurred trying to retrieve the weather “ & _ 
'conditions picture.", "Web Service Demo Error", _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

Finally 

httpResponse. CloseQ 
End Try 


End Function 
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' Li'y mdt dia chi (URL) til Microsoft UDDI service 
Public Function GetUrlFromUDDI() As String 
Dim strNewUrt As String = “* 

'SO dung ding ky UDDI cua microsott 
Inquire.Url = "http://uddi.microsoft.com/inquire" 

Try 

Dim gsd As New GetServiceDetail() 
gsd.ServiceKeys.Add(SERVICE_KEY) 

' Go UDDI vi nhin vi cic chi Mt djch vy 
Dim sd As ServiceDetail * gsd.Send() 

' Tri vS URL dUQc tri v41(1 Alethea Local Time Web service. 
strNewUr! = _ 

sd.BusinessServices,ltenrv(0),.BindingTemplates.ltem(0).AccessPoint.Text 
Return strNewUrl 

Catch ex As Exception 

MessageBox.Show(“Unable to retrieve an updated Url for the " & _ 

"Web Service. Please try. again _ 

'Web Service UDDI demo Error", „ , 

MessageBoxButtons.pK, MessageBoxIcon.Error) 

Return strNewUrl * .. . 

End Try 

End Function ■ 

' T$o ComboBox chila cite to$i tiSn t$ d£ chuySn dSng Euro 
Private Sub LoadCurrencyConyerterConnboBox() 

' Tyo vi dila dQ li$u til m$t tii li$u XML vio DataSet 
Dim dsCountries As New DataSetQ 

Try 

dsCountries.ReadXml("..\ecc_countries.xmr) 

Catch exp As Exception 

MessageBox.Show(*Error loading DataSet from XML:" & _ 
exp.Message, _ 

“Web Service Demo Error", _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit Sub 
End Try 
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' KSt DataSet vao ComboBox de hiSn thi 
With cboConvertTo 

.DataSource = dsCountries.Tables(O) 

.DisplayMember = “Description* 

.ValueMember = “Currency* 

End With 
End Sub 

Sub PersistCurrencyConverterCountriesToXML() 

ShowStatuslndicators(“Connecting to the Euro Converter Web Service to “ & 
“download the Euro conversion currencies. Please stand by...") 

' Tao mdt instance cua Web Service proxy class vk mdt DataSet 
Dim wsEuroConverter As New XML_WebServices.EuroConvert() 

Dim dsCountries As DataSet 

Try 

' Lay cac quoc gia tCl Web Service vk chuyin qua XML 
dsCountries = wsEuroConverter.CurrenciesToDataSet 
' File XML dupe lUu trong thu muc gd'c cua project (cha cua thU myc bin) 
dsCountries. WriteXml(“..\ecc_countries.xmf“) 

Catch exp As Exception 

MessageBox.Show(“Error retrieving Euro currencies/ & _ 
wsEuroConverter.Url, _ 

“Web Service Demo Error", _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit Sub 
Finally 

ResetStatuslndicators() 

End Try 
End Sub 

' An form Status dupe hien thj trong ShowStatusIndicators() 

Private Sub ResetStatusIndicatorsQ 
Me.Cursor = Cursors. Default 
frmStatus.HideO 
End Sub 
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' HiSn thi trpng thAi cdng viSc 

Private Sub ShowStatuslndicators(ByVal strMessage As String) 
frmStatus = New frmStatusO 
frm Status. Show(strMessage) 

Me.Cursor = Cursors.WaitCursor 
Application. DoEventsO 
End Sub 

* Xuf ly nut" Convert " trSn tab Currency. 

Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnConvert.Click 

' Tao mot instance cua Web service proxy class 
Dim wsEuroConverter As New XML_WebServices.EuroConvert() 

ShowStatuslndicators(WS_CONNECTION_STATUS) 

' Lay dO lieu tO Web Service 
Try 

IbIConvertedAmount.Text = _ 

wsEuroConverter.FromEurosToAmount(CLng(txtAmount.Text), _ 
cboConvertTo.SelectedValue.T oString) .ToString 
Catch exp As Exception 

MessageBox.Sbow(WS^DATA_RETRIEVAL_ERROR & _ 
wsEuroConverter.Url, _ 

■Web Service Qemo Error*,. _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit Sub ... , v . . 

Finally 

ResetStatus IndicatorsO 

End Try . . 

End Sub 

* XO ly nut u Get Cartoon!" tr&n tab Dilbert. Thu tgc nAy kit n6i vAo m$t Web 

' Service mdt cAch khdng dSng bd sO dyng phUdng thOc AsyncWaitHandle. WaitOne 
' trong namespace System . Threading, ngifdi sO dijng c6 thi nhAp vAo sd' giAy se 
' dpi IA‘y dO li$u tO Web Service. 

Private Sub btnCartoon_C lick (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCartoon.Click 




292 


— Coding Techniques — 


if txtAsyncWaitPeriod.Text = " Then 

MessageBox.ShowfYou must enter a number of seconds you wish to wait. - , _ 
'Web Service Demo Information", _ 

MessageBoxButtons.OK, MessageBoxlcon. Information) 

Return 
End If 

Dim wsDailyDilbert As New Esynaps.DailyDilbert() 

ShowStatuslndicators("Connecting to the Daily Dilbert Web Service and " & _ 
“downloading today’s cartoon. Please stand by...') 

' Liy dti li$u tti Web Service. Web Service niy cung co mdt phtiang thtic 
' tri vS URL cua mdt hinh inh. 

Dim arrPictureO As Byte 
Try 

’ Ggi phUcfng thtic Web bit ddng bd being cich ggi phifdng thtic Begin __ 

’cua proxy 

Dim result As lAsyncResult = _ 

wsDailyDilbert.BeginDailyDilbertlmage{Nothing, Nothing) 

' Dpi mdt si giiy do ngtidi sti dtjng nh$p vhd. ; . ^ 

result.AsyncWaitHandle.WaitOne _ . a <•- 

(New TimeSpari(0, 0, Cfnt(txtAsyncWaitPeriod.Text)), False) 

’ Nd'u kit qui hodn tit dting gid, hiin thj cartoon, t^iu kirdng, hiin thj thing b£o 
If (result.IsCompleted) Then ' ■ ' '*■ 

’ Dtia ming byte vdo mpt stream b$ nhd bing cAch ggi phtidrig thtic End _ 

arrPicture = _ 

CType(wsDailyDilbert.EndDailyDilbertlmage(result), Byte()) 

Dim ms As New MemoryStream(arrPicture) 

‘ Hiin thj trong PictureBox being phifdng thtic FromStream 
With picDilbert 

.Image = Image.FromStream(ms) 

SizeMode = PictureBoxSizeMode.Centerimage 
.BorderStyle = 8orderStyle.Fixed3D 
End With 
Else 




293 


Coding Technique - 

MessageBox.Show(*The cartoon was not retrieved in the " & _ 

‘time you specified/, "Web Service Demo Information", _ 
MessageBoxButtons.OK, MessageBoxIcon.Information) 

End If 

Catch exp As Exception 

MessageBox.Show(WS^DATA_RETRlEVAt_ERROR & _ 
wsDailyDilbert.Url, _ 

"Web Service Demo Error", _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit Sub 
Finally 

ResetStatuslndicatorsO .. . 

End Try 
End Sub 

' XCf ty nut"Get VmeF tr&n tab Fallback. Thu tyc nkycS t)nh truy xudt dSn m$t dja 
' chi sai. Sau d6 nd thi/c hi$n k& hoqch quay lui bang c&ch kdt n6i v&o UDDI 
‘ Service. N6 gid l$p nhin duqc mdt dja chi dung cua Web service vd k&t n6i Iqi 
' dS hiin thj kit qud. 

Private Sub btnFallbackTime_Ctick(By\/al sender As System.Object, ByVal e As 
System.EventArgs) Handles btnFallbackTime.Click 

Dim wsLocalTime As New Alethea.LocalTimeO 

' D6i thdnh mdt dja chi sai, do do phit sinh mdt WebException khi thijc hi$n 
' gqi phUOng thilc n&y 

wsLocalTime.Url = "http://www.alethea.net" 

ShowStatuslndicators(WS_CONNECTION_STATUS) 

Try 

' Thi/c hi&n lay thdi gian td Web service 
IbIFallbackTime.Text = _ 

wsLocalTime. LocalTimeByZipCode(txtZipCodeForTime.Text) 

Catch expWeb As System.Net.WebException 
ResetStatuslndicators() 

ShowStatuslndicators<*Could not call Web service. Attempting to ’ & _ 
"retrieve current Web Service location from UDDI." & _ 

"Please stand by...") 
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Dim strNewUrl As String = GetUrlFromUDDIQ 
If strNewUrl.Length > 0 Then 
ResetStatuslndicators() 

ShowStatu*lndica!ors("Updated Url retrieved from UDDI." & _ 

* Reattempting contact... - ) 

Dim wsNewLocafTime As New VBWS.ServerTime() 

Try 

' Thi/c hi$n l&y kSt quit tit Web Service cd dja chi dupe UDDI cung cip 
IbIFallbackTime.Text = wsNewLocalTime.GetTime.ToString 

Catch exp As Exception 

MessageBox.Shpw(W$_DATA_ftETRIEVAL_ERROR & _ 
wsNewLocalTtme;Drl, _■. : 

“Web Service Demo Error". _ 

MessageBoxButtons.OK, MessageBoxlcon. Error) 

Exit Sub > 

Finally 

ResetStatusIndicatorsQ 
End Try 
End If 

Finally v * 

ResetStatusIndicatorsO • ^ 

End Try 
End Sub 

' Xti ly nut "Get Data" trSn tab Books. 

Private Sub btnGetBookData_C!ick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnGetBookData.Click 

Dim wsSalesRankNPrice As New PerfectXML.SalesRankNPriceO 
Dim strBookData As PerfectXML.AII 

ShowStatuslndicators(WS_CONNECTION_STATUS) 

Try 

strBookData = wsSalesRankNPrice.GetAII(txt ISBN.Text) 
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Catch ©xp As Exception 

MessageBox.Show(WSJDATA_RETRIEVAL_ERROR & _i 
wsSalesRankNPrice.Url, _ 

'Web Service Demo Error', _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit Sub 
Finally 

ResetStatu s I ndicato rs () 

End Try 

Dim Ivltem As New ListViewltem() 

Ivltem.Text = txtISBN.Text 

With Ivltem.Subitems 

.Add(strBookData.AmazonPrice) 

.Add(strBookData.AmazonSalesRank) 

. Add (str Boo kData. BN P rice) 

.Add(strBookData.BNSalesRank) 

End With 

IvwBooks. Items. Add(lvltem) 

End Sub 

1 Thu tuc xCt ly nut"Get Time" tren tab Local Time. C6 thi sit dyng Web Service 
' niy chi vdi hai ddng code: 

‘ Dim wsLocalTime As New Alethea.LocalTime() 

' IbITime. Text = wsLocalTime. LocalTimeByZipCodeftxtZipCodeForTime. Text) 

' Tuy nhiin, doan code bin ditdi cho thi'y todn bd thu tpc vdi c£u true bit l6i 
Private Sub btnGetTime_Click(ByVal sender As System.Object, ByVaFe As 
System.EventArgs) Handles btnGetTime.Click 

* Tao mdt instance cua Web service proxy class 
Dim wsLocalTime As New Alethea.LocalTime() 
ShowStatuslndicators(WS_CONNECTION_STATUS) 

Try 

* Liy thdi gian tit Web service 

IbITime.Text = wsLocalTime. LocalTimeByZipCode(txtZipCodeForTime.Text) 
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Catch exp As Exception 

MessageBox.Show(WS_DATA_RETRIEVAL_ERROR & _ 
wsLocalTime.Url, _ 

“Web Service Demo Error", _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit Sub 
Finally 

ResetStatuslndicators() 

End Try 
End Sub 

' Xuf ly nut "Get Weather " tr&n tab Weather. 

Private Sub btnGetWeather_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnGetWeather.Click 

' An cic thdng tin v4 thdi ti&t cho d#n khi dOH$u dupe l£y 
pnlWeatherlnfo.Visible = False 

' T$o m$t instance cua Web service proxy vlassvil mdt class cung dip bdi 
‘ Web Service dS chCta dO li$u tri v4. 

Dim wsWeather As New LearnXMLWS.WeatherRetriever() 

Dim weatherData As LearnXMLWS.CurrentWeather 
ShowStatuslndicators(WS_CONNECTION_STATUS) 

Try 

1 Liy thdng tin thdi tiSt tut Web Service 
weatherData = wsWeather.GetWeather(txtZipCodeForWeather.Text) 

’ Hiin thi hinh inh diSu kiSn thdi tid't trong PictureBox 
With picConditions 

.image = Getlmage(weatherData.lconUrl) 

.SizeModfe = PictureBoxSizeMode.Centerlmage 
End With 

Catch exp As Exception 

MessageBox.Show{WS_DATA_RETRIEVAL_ERROR & _ 
wsWeather.Url, _ 

"Web Service Demo Error", _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit Sub 
Finally 

ResetStatuslndicators() 

End Try 




297 


- Coding Techniques - 

' Hi4n thi dH lieu thdi tiS't 
With weatherData 

IbICurrentTemp.Text = CType(.CurrentTemp, String) 

Iblconditions.Text = .Conditions 

IblInfo.Text = * Barometer at" & CType(.Barometer, String) & _ 

* and " & .BarometerDiredtion & vbCrLf & * Humidity at * & _ 

CType(.Humidity * 100, String) & "%*& VbCrLf & _ 

* Last updated on 11 & .LastUpdated 
End With 

pnlWeatherlnfo.Visible = True 
End Sub 

Mk: t ■■ > ' < 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgS) Handles MySase^Lokd 

1 ’ i ’ : - . I , ■ 7 r . ! 

' Currency Convert Web service Cling cap m$t phUdng thitc tri v6 m6t DataSet 
' chiia danh sAch cAc qu6c gia. Danh sAch nAy khdng thay d6i thudng xuydn 
’ vA dupe li/u vAo m$t tile. DifadtfJiipu &Ao ComboBox tnldc dS giim thdi gian 
' dpi khi chQn tab Currehcy . 

LoadCurrencyConverterCombo8ox() 

End Sub ■ . 

End Class 

f - 

35. Truy^n dt! li$u nhi phan thong qua HTTP 

VI du n&y chi c£ch truyin dit li$u nhi ph£n (trong trifdng hop n&y \k cAc 
hinh dnh) tr£n mOt Web service. 
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Cac chufc nana chinh: 

Trong vl du ndy chufa hai project: 

> Web Service Graphics (trong thu muc Client), project ndy c6 chtfa m$t 
Web Reference cung cdp bdi GraphicServer Project. 

> GraphicsServer (trong thtf muc WebService). Tao mpt Virtual 
Directory (thur muc do) trong IIS de dnh xa d4n thir muc ndy, tdn thur 
muc do (alias) Id: GraphicsServer. 

GraphicsServer Web Service trd v4 cdc hinh dnh, vd tfng dung Windows 
Web Service Graphics suf dung cdc phifcmg thufc cua Web Service. Cu th4 Id 
trang I mage Service, asmx cung cdp cdc phufcmg thufc sau: 

> Browser: Trd v4 m§t mdng cdc ddl ttrong Imagelnfo, dCr li$u Id th&ng 
tin cdc hinh dnh tim thay trong thuf muc Almages. 

> GetThumbnail: Trd vd m$t mdng cdc byte chufa m$t hinh dph nhu5 (cao 
80 pixel, bl r$ng theo t$ 14). Truydn vdo m$t chuSi ehtfa tfen file hinh 
inh. 

> Getlmage: Trd v4 mQt mdng cdc byte chtfa hinh dnh ddy du. phdi 
truydn vdo m^t ten file. 

r ’■ V, * - it . i 

Solution: Truyen du lieu nhi phan 


Project: GraphicsServer 


lmageServlce.asmx v 

<%@WebService Language=‘vb* Codebehind='fmage$ervice asmx.vb" 
Class=‘ , VB.NET.HowTo.lmageService“ %> 

- ■ &-■ '■ r• ■ », :ixt ’ 

* i 4 x - J- i 

->v. .'A.- 


ImageService.asmx.vb 

Option Strict On 
Imports System.Web.Services 
Imports System. 10 
Imports System.Drawing 



- <WebService()> _ 

• Public Class ImageService 

Inherits System.Web.Services.WebService 


• * Code tp dpng phat sinh di/pc bd qua 
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Public Class Imageinfo 
Public Name As String 
Public Size As Long 
Public Height As Integer 
Public Width As integer 
Public HorizontalResolution As Single 
Public VerticalResolution As Single 
Public PixelFormat As Imaging.PixelFormat 
Public Thumbnail As Byte() 

End Class ‘ ■' 

' Tri vS m$t ming chufa dc tin file hinh inh 
<WebMethod()> _ 

Public Function Browse() As imagelnfo() 

Dim i As Integer 

Dim fi As Filelnfp 

Dim almages As lmagelnfo() 

Dim di As New Directorytnfo(Server.MapPath(^/lmages ,, )) 

Dim afi As File!nfo() h di.X^tesfCipg') 

ReDim Preserve at mages(afi.Length -1) 

For Each fl In afi 

atmages(i) = New tmagelnfeO 
almages(i).Nan^e * ,(i.W|f^ 
almages(i).Size =* fLLength 
Filllmagelnfo(almages(i), fi.Name) 
i += 1 
Next 

Return almages 
End Function 

Private Sub FilllmagetnfQ{ByVal Info As Imageinfo, ByVal FileName As String) 
Dim ms As New Memory$tream() 

Dim bmp As New Bitmap(Server.MapPath(\/lmages/“ & FileName)) 

Info.Width = bmp.Width 
Info.Height = bmp.Height 
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Info.HorizontalResolution = bmp.HorizontalResolution 
Info.VerticalResolution = bmp.VerticalResolution 
Info.Thumbnail = GetThumbnaillnfo(bmp) 

Info.PixelFormat = bmp.PixelFormat 

bmp.DisposeO 
End Sub 

' Tri vS mdt h)nh inh nhd -- T- 

<WebMethodO> _ <• ’ r ! . ’ h '' 

Public Function GetThumbnail(ByVal FileName Aspiring) As Byte(> 
Dim bmp As New Bitmap(Server.MapPath(V/1magea/“ & FileName))- 
Return GetThumbnaillnfo(bmp) 

End Function ’ .k T • v. • ’ 



Private Function ThumbnailCallbackO As BooJeSwi; r' *>■' ■ 

; ' - - ' . -V-; ,-/ > ■ 

' Ta phii cung dp thu tpc ndy, m$c dCi tht/c si/ khdng sit df/ttf hd: ' 

Return False o, p 

End Function 

' •.'.If ■ jt .. : f-V-l- !j; ’ • 

Private Function GetThumbnaillnfo(Byy«rfemp t WfcBitroap) A« Byte() 

Dim ms As New MemoryStreamO 

Dim intWidth As Integer - * e*, ~n. 1 .' :■ n> -. 

Dim intHeight As Integer 
Dim decRatio As Decimal 

r O-. 

’ ChQn chiSu cao IA 80, nhi/ng cd th£ thay bkrrg gi& trfUty? 

Const THUMBNAIl_HEIGHT As Integer = 80 ‘ ' 

‘ l; 

intWidth = bmp.Width 
intHeight = bmp.Height 

decRatio = CDec(intWidth / intHeight) * 

Dim bmpTemp As Bitmap 

bmpTemp = CType(bmp.GetThumbnaillmage(Clnt(decRatio * _ 
THUMBNAIL_HEIGHT), THUMBNAIL_HEIGHT, _ 

AddressOf ThumbnailCallback, IntPtr.Zero), System.Drawing.Bitmap) 
bmpTemp.Save(ms, Imaging.ImageFormat.Jpeg) 

Return ms.ToArray 
End Function 
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' Tri ve mot h'mh inh diy du 
<WebMethod()> _ 

Public Function Getlmage(ByVal FIleName As String) As Byte() 

Return ReadFile(Server.MapPath(’./lmages/“ & FileName)) 

End Function 

Private Shared Function ReadFile{ByVal FilePath As String) As Byte() 

Dim fs As FileStream 

Try 

' Dqc vi tri vS n6i dung cua file 
fs = File.Open(FilePath, FileMode.Open, FileAccess.Read) 

Dim IngLen As Long = fs.Length 
Dim abytBuffer(Clnt(lngLen -1)) As Byte 
fs.Read(abytBuffer, 0, Clnt(lngLen)) 

Return abytBuffer 
Finally 

' Dim bio li file di/dc ding, cho du co Idi xiy ra 
fs.CloseO 

End Try ‘ 

End Function 
End Class 

Project: Web Service Graphics 
frmMain.vb 

Option Strict On 
Imports System. 10 

Public Class frmMain 

Inherits System.Windows.Forms.Form 
' Code phil sinh form dUOc bo qua 

Private malnfo As GraphicsServer.lmagelnfo() 

Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDisplay.Click 
DisplaylmageQ 
End Sub 
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Private Sub btnRetrieve_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnRetrieve.Click 
Dim imgsvc As GraphicsServer.lmageService 
Dim info As GraphicsServer.lmagelnfo 

Try 

Me.Cursor.Current = Cursors.WaitCursor 
’ Lay ming thdng tin cic hinh inh 
imgsvc = New GraphicsServer.lmageServiceO 
malnfo = imgsvc. Browse() 

' Xoa ndi dung trong danh sich, sau do cho thdng tin vao 
Istlmages.Items.Clear() 

For Each info In malnfo 

Istlmages. Items. Add(info.Name) 

Next 

Catch Exp As Exception 

MessageBox.Show(Exp.Message, Me.Text) 

Finally 

Me.Cursor.Current = Cursors.Default 
imgsvc. DisposeQ 
End Try 
End Sub 

Private Sub lstlmages_SelectedlndexChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Istlmages.SelectedlndexChanged 
Dim imgsvc As GraphicsServer.lmageService 
Dim Info As GraphicsServer.lmagelnfo 

' Hien thi thdng tin ve hinh inh di/gc chon 
Try 

imgsvc = New GraphicsServer.lmageServiceQ 
Info = malnfo(lstlmages.Selectedlndex) 

IblSize.Text = Info.Size.ToString 
IbIPixelFormat.Text = Info.PixelFormat.ToString 
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IbIResotution.Text = String.Format('{0} x {1}", Info.HorizontalResolution, 
I nfo. VerticalResolution) 

IbllmageSize.Text = String.Format(“{0} x (1}\ Info.Width, Info.Height) 
piclmage.Image = Getlmage(lnfo.Thumbnail) 
btnDisplay.Enabled = True 

Catch exp As Exception 

MessageBox. Show(exp.Message, Me.Text) 

Finally 

imgsvc.DisposeO 
End Try 
End Sub 

Private Sub piclmage_DoubleClick(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles piclmage.Doubleclick 
Displaylmage() 

End Sub 


Private Sub DisplaylmageQ 
Dim frm As frmlmage 

Dim imgsvc As GraphicsServer.lmageService 
Dim Info As GraphicsServer.lmagelnfo 
Dim bmp As Bitmap 
Dim strName As String 


’ HiSn thj h'mh inh ditQc chon 
Try 

imgsvc = New GraphicsServer.lmageService() 
strName = malnfo(lstlmages.Selectedlndex).Name 
bmp = Getlmage(imgsvc.Getlmage(strName)) 


• ;■ ' T$o m$t instance cua form hi£n thj h'mh £nh 

... v.; frm = New frmlmageO 
, ; *. Jftrrh.Text = strName 


’; • ^ z l fmt. Image = bmp 

fnr#,ClientSize * New Size(bmp.Width, bmp. Height) 
. fnkShowQ 


Catch exp As Exception 

i„ MeaaageBox.Show(exp. Message, Me.Text) 
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Finally 

imgsvc.Dispose() 
End Try 
End Sub 


Private Function Getlmage(ByVal abyt() As Byte) As Bitmap 

' Dura vio mQt mingcic byte, tri v4 mdt Bitmap thi/c si/. Thi/c hiin bang 
' cich t$o mdi m$t 66'i tUQng MemoryStream di/a trin mang cac byte, sau 66 
' t$o m$t Bitmap mdi dt/a trio memory stream. 

Try .» . ' 

Return Memory Stream(abyt)) 

Catch exp AslExpepflorV > 


; MessageBdx.Showfafcp.Message, Me.Text) 
End Try ^ ’ }■' 

End Function’' ' V/’ ,V'•*V• ::: 1 ' 

End Class .,>•' w ^ :• /f 

' ’ ■' % ’ " -- 


frmlmage.vb 


Option Strict On H * 

Va- - * 

Public Class frmlmage 
Inherits System.Windows.Forms.Farm. 

r V- fi *v ■ *T -:■& 


' Code phdt sinh form difpc bd qua 




Private ClientSizeOriginal As Size 


Public WriteOnly Property lmage() As Image 

’ Thudc tinh Public WriteOnly cho phip form cha quy djnh hinh inh cho 
‘ form nay mi khdng bi£t g) khac vS form niy 
Set(ByVa! Value As Image) 

Try 

piclmage.Image = Value 
Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

End Try 
End Set 
End Property 
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Private Sub frmlmage_Load{ByVal sender As System.Object, ByVat e As 
System.EventArgs) Handles MyBase.Load 
’ LUu lai kich thudc cifa s6, dS sii dung sau 
ClientSizeOriginal = Me.ClientSize 
End Sub 

Private Sub mnuClose_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuClose.Click 
Me.CloseO 
End Sub 

Private Sub mnuSew_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuSave.Click 

* LUu h'mh inh vdi m$t trong cdc djnh dang co sin 
Try 

With sdlglmage 

.Filters ‘Bitmap (\bmp)r.bmplJPEG (*.jpg, *.jpeg)l*.jpg;*.jpeglGIF 
(*.gi^l*,giflT|f;F : (*>tifj (*.png)l*.png“ 

AddExtension = True 
OverwritePrompt* True 
.CheckPatbExists * True 
.ValidateNames ? Jrue 
Title = 'Save image* ^ -ay-.;•*? ■ 

If ShowDialogO = DialogResuit.OK Theft 
Dim bmp As New Brtmap(picl mage. Image) 

Dim fmt As Imaging.ImageFormat 
Select Case .Filterlndex 
Case^f ‘ 

font s Imaging ImageFormat.Bmp 
Case 2 

fmt = Imaging.lmageFormat.Jpeg 
Case 3 

fmt = Imaging. ImageFormat.Gif 
Case 4 

fmt = Imaging. ImageFormat.Tiff 
Case 5 

fmt - Imaging.ImageFormat.Png 
Er>d Select 

bmp.Save(.FileName, fmt) 

End If 
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End With 

Catch exp As Exception 

MessageBox.Show(exp.Message, "Saving Image") 

End Try 
End Sub 

Private Sub mnuStretch_Click(ByVa! sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuStretch.Click 
Me.FormBorderStyle = FormBorderStyle. Sizable 
End Sub 

Private Sub mnuZoom50_CI»ek(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuZoom50.Click 

SetClientSize(50) 

End Sub 

Private Sub mnuZooml 00jGllck(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuZoomlOO.CIick 
SetClientSize(IOO) 

End Sub 

Private Sub mnuZoom200_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuZoorn200.Click 
SetClientSize(200) - . - 
End Sub 

Private Sub HandleZoom(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuZooml OQXlick, mnuZoom200.Click, 
mnuZoom50.Click, mnuStretch.Click 

1 Quan ly cac dau check ben cpnh cac menu item 
‘ Xda t£t ci cac d£u check 
mnuZoom50. Checked = False 
mnuZooml OO.Checked = False 
mnuZoom200. Checked = False 
mnuStretch.Checked = False 

’ Danh dau menu item dupe chon 
CType(sender, Menultem).Checked = True 
End Sub 
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Private Sub SetClientSi 2 e(ByVal intPercent As Integer) 

* Cung ci'p v£o s6 phin trSm (50, 100, hay 200) d£ quy dinh lai kich thJdc 
' dtja trdn kfch thUdc g6c. 

Me.FormBorderStyle = FormBorderStyle.FixedSingle 
Me.ClientSize = New Size(Clnt(intPercent /100 * ClientSizeOriginal.Width), 
Clnt(intPercent/100 * ClientSizeOriginal.Height)) 

End Sub 
• End Class 


Phan VII - Language 


Is . 


36. Si3f dung mang - Array 

Chircrng trinh n&ybi£u di^n m$t stftinh nAngcua cAc mdng trong Visual 


Basic .NET 


0 dynq iTi.ir.q Itonq Vuuijl Basic NET 


HISE3 


CiMte Static Anijfi 



Sort | 

Reverse 

•j 

Br»y Seaseh 

1 

Search For 

K 

[JoeMaH J 

T 

Create Dynamic Airay 

I 

It ol Elements la f“* 3 

Dynamic Aiiay 1 

Cieete a Matrix An ay 

J 


Stnngs 

Object* 

D*a As loaded 

i 


'Field tauiafw Sorts 
r" Customer Id 
j | Customs Name 


0 - let—3423. Name-Joe Hasterman 

1 - Id-9348. Name-T ad Matteon . 

2 ■ Id-3581. Name-Joe Rurmel 

3 -td*7S42. Ns r be-g rtan Gurus 

4 - Id-2385. Name-0oug Landal 


Data Mar Sort 


0 - td-7642. Name-firian Gurus 

1 - Id-2905, Nsme-Dnuglandal 

2 - Id-3423. Name=Joe Mattel man 

3 • ld=3581, Name-Joe Rummel 

4 - Id-9348, Name-Ted Mattison 


Cac chufc nana chinh: 

ChUctag trinh chi cdch Ihm vi$c vdi mang cAc kieu gid tri, cdc chuoi, va 
mang cdc kieu tham chieu, mang cac doi tucrng tir tao doi tuong tir tao 
Customer. Customer cung cap hai truftng public \k Id vk Name. C6 sdu ndt 
bam thufc hien cdc chtfc n&ng khdc nhau: 
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> Create Static Array -tao mot mdng sur dung cu phap mbi {}. Phdn 
Array of cung cdp cdc chon lua Id mdng chufa cdc chudi hay cdc instance 
cua cdc ddi tuong (Customer). Sau do mang diroc hien thi trong ListBox. 

> Sort - Bua dtf li£u vdo mdng nhu trong vi du tren, sau d6 sur dung 
phtfcmg thurc Sort Cs^p x£p) cua class Array de dp dung vdo duf lieu dupe 
dira vdo ListBox IstAfter. 

> Reverse - Ldm vi$c gitfng nhu nut Sort nhung vdi thU tu sap ngupc lai. 

> Binary Search - ThUc hien tim kiem nhi phan, dbi hoi mang phai dupe 
sdp. 

> Create Dynamic Array - Sur dung gid tri trong TextBox txtLength de 
ReDim (dinh lai kich thudc) irtpt mdng. 

> T^o mdng ma trf n - Tao m0t mdng hai chieu chiira hai cot vd ba dbng, 
sau dd hi£n thj trong m$t ListBox. 

Chu y: E)d cho cpde r5 rdng, cdc mdng dupe tao tai mbi thu tuc khi nhdn 
chupt trbn cdc ndt. 


Project: Su dung mang - Array 


frmMain.yb 

Option Strict On * ' 

Public Class Customer ; f , ; T:‘; 

implements ICpmparable ’ Cho ph# h6 trp sip x&p vi tim kiSm nhj phin 


' Sur dyng dS xac djnh tn/dng nio dt/pc sit dong d4 sosinh 
Private Shared m^CompareField As CompareField 
Public Id As Integer ' ; t ; _ . ' ; 

■ ' ■ ,-j 

Public Name As String 


Public Enum CompareField 
Name 
Id 

End Enum 


Shared Sub New() 

‘ Quy dinh tn/dng so sanh mic nhien 
m_CompareField = CompareField.Name 
End Sub 




— Coding Techniques 

Public Shared Sub SetCompareKey(ByVal CompareKey As CompareField) 
’ Thay dSi trudng so sanh 
m_CompareField = CompareKey 
End Sub 

Public Sub New() 

Me.New(-1, “No Name”) 

End Sub 

Public Sub New(ByVal Newld As Integer, ByVal NewName As String) 

Me.Id = Newld 
Me.Name = NewName 
End Sub 

Public Function CompareTo(ByVal obj As Object) As Integer Implements 
System. IComparable.CompareT o 

' TrUdc tidn kiSm tra <34 bio dim li so sanh vdi m$t Customer khic 
If TypeOf obj Is Customer Then 

' T$o tham chiSu mgnh d4n Customer 
Dim c As Customer = CType(obj, Customer) 

' Xic djnh so sinh theo Name hoic Id 
If Customer.m_.C6mpareField = CompareField.Name Then 
if c.Name = Me.NameThen 
Return 0 

Elself c.Name < Me.Name Then 
Return 1 
Else 

Return -1 
End If 
Else 

If c.ld = Me.Id Then 
Return 0 

Elself c.ld < Me.Id Then 
Return 1 
Else 

Return -1 
End If 
End If 


Else 




310 


~ Coding iVfhjiiqik'i- -• 


Throw New Argumen!Exception(“*Customers can only be compared against 
other customers. The object being passed in was a " & obj.GetType.ToStringO) 
End If 

End Function 

Public Overrides Function ToStringO As String 

’ Thdng thildng ToString tri v4 m$t tin diy du cua kieu d£l lieu. Trong vi du 
' niy ta override nd d£ tri vi mdt chuSi. 

Return String.Format(“ld={0}, Name={1}“, Me.Id, Me.Name) 

End Function 

End Class 

Public Class frmMain 

Inherits System*Wlndows.FofmSjFarm 

’ Dung d£ xac djnh ListBox nio phifdng thtic Display Array Data se sti dying 
Private Enum WhichUstBox 
BoxOne 

BoxTwo ■ i 

End Enum . - . <0 ,■ 

‘ Code phat sinh iorm dupe bd qua «■ 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles MyBase.Load 
Me.optStrings.Checked = True 
Me. optName. Checked = True 
End Sub 

Private Sub cmdBinarySearch_Click(ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles cmdBinarySearch.Click 
Dim strMsg As String 
Dim intPos As Integer 

’ Bio dim co mdt gia trj de sCf dung lim di4u ki$n tim kiem 
If Me.txtBSearchFor.Text.Length = 0 Then 

MessageBox.ShowfPlease enter a value to search for“, “Binary Search", 
MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
Me.txtBSearchFor.Select() 

Exit Sub 


End If 
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Dim strDataToFind As String = Me.txtBSearchFor.Text 
Me.lstAfter. Items.Clear() 

If Me.optStrings.Checked Then 

Dim strDataQ As String = {"Joe Hasterman", "Ted Mattison", "Joe Rummel", 
"Brian Gurnure", "Doug Landal"} 

' Sip xep mang, neu khong phi/ong thtic BinarySearch se khong lam viec 
Array. Sort(strData) 

' Hi£n thj dti lieu da sip xep 
Display ArrayData(strData) 

' Tht/c hiin tim kiS'm 

intPos = Array.BinarySearch(strData, strDataToFind) 

If intPos > 0 Then 

strMsg = String.Format("The value {D} was found in the array at position 
{1}.", strDataToFind, intPos.ToStringO) 

Else ■> - 

’ Neu khdng tim th£y, m$t sd im dUQc tri vi. Trj tuyet dd’i cua so nay 
' cho bi4t vj tri cua gii trj cin tim ”niu u nhu nd tdn tgi trong ming. 

Dim intBWC As Integer = (Not intPos) 

If intBWC = 0 Then 

strMsg = String.FormatfThe value {0} was NOT found in the array. If it 
did exist it would be at position {1} before {2}", strDataToFind, intBWC.ToStringO, 
strData(l)) 

Else 

Dim strltemsQ As String = {strDataToFind, intBWC.ToStringO, 
strData(intBWC -1), strData(intBWC)} 

strMsg = String.Format(‘The value {0} was NOT found in the array. If it 
did exist it would be at position {1} between {2} and {3}.", strltems) 

End If 
End If 

MessageBox.Show(strMsg, "Binary Search Results", MessageBoxButtons.OK, 
MessageBoxIcon. Information) 

Else 
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Dim objData() As Customer = {New Customer(3423, “Joe Hasterman"), New 
Customer(9348, "Ted Mattison"), New Customer(3581, "Joe Rummel"), New 
Customer(7642, "Brian Gurnure"), New Customer(2985, “Doug Landal")} 

Array.Sort(objData) 

DisplayArrayData(objData) 

’ Khi tim kiSm trong mdt ming cac d6i tUQng, ta can suf dung mdt ki£u dd'i 
‘ tUrfng tUdng thich. Trong tnldng h0p ndy ta suf dyng gia trj trong 
’ txtBSearchFor Idm Name cua Customer vd cho mQt Id gii. Mdt di£m chinh 
' d£ tim kid'm nhi phdn lam vide Id dd'i tUQng phdi sd dung IComparable. 

Dim c As New Customer(1, Me.txtBSearchFor.Text) 

intPos = Array.BinarySearch(obj Data, c, Nothing) . 

n r.‘ . . ’■*' 

If intPos > 0 Then 

strMsg = String.Format{"The value {0} was found in the array at position 

{1}.", strDataToFindJntPos.ToStfingOl k . " 

Else " ' ^ - 

Dim intBWC As Integer = (Not intPos) 

> , , ; . • ' r 

If intBWC = 0 Then . 

strMsg = String.Format("The value {0} was NOTJourtckin the array. If it 
did exist it would be at position {1} before {2}’, strDataToFind, intBWC.ToStringO, 
objData(l).Name) 

Else 

Dim strltems{) As String = {strDataToFind, intBWC.ToStringO, 
objData(intBWC - 1).name, objData(intBWC).name} 

strMsg = String.Format(The value {0} was NOT found in the array. If it 
did exist it would be at position {1} between {2} and {3}.", strltems) 

End If 
End If 


MessageBox.Show(strMsg, "Binary Search Results", MessageBoxButtons.OK, 
MessageBoxIcon. Information) 

End If 


End Sub 





Private Sub cmdCreateDynamic_Click{ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdCreateDynamic.Click 

' Thu tuc nay t?o mot mang dong sut dung gia trj trong txtLength lim s6 phin tut 
If Me.optStrings.Checked Then 
Dim strDynamicDataQ As String 

ReDim strDynamicData(System.Convert.Tolnt32(Me.txtLength.Text) - 1) 

Dim i As Integer 

Dim strlnput As String 

For i = 0 To strDynamicData.Length - 1 

strDynamicData(i) = InputBoxfEnter a string". i.ToString(), "None " & i) 

Next 

DisplayArrayData(strDynamicData) 

Else 

Dim strDynamicData{) As Customer 

ReDim strDynamicData(System.Convert.Tolnt32(Me.txtLength.Text) - 1) 

Dim i As Integer 
Dim strlnput As String 

For i = 0 To strDynamicData.Length - t 
strDynamicData(i) = New Customer() 
strDynamicData(i).ld = ((i + 1) * 10) 

strDynamicData(i).Name = InputBoxfEnter a string". ("Item " & (i + 1)), 
("None ‘ & i + 1)) 

Next 

DisplayArrayData(strDynamicData) 

End If 
End Sub 

Private Sub cmdCreateMatrix_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdCreateMatrix.Click 

’ Thu tuc nay dung cu phap khdi tao de tao mot mang hai chieu (ma tran) 

Dim strMatrix(,) As String = {{“Bob", “Carol"}, {"Ted", "Alice"}, {"Joe", “Lisa"}} 
Me.DisplayArrayData(strMatrix) 

End Sub 

Private Sub cmdCreateStatic_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdCreateStatic.Click 

' Thu tyc niy tyo m6t ming chuta cdc chuSi hodc chifa cac d6i tupng Customer. 

' Chu y lit ming niy co thS djnh lai kich thudc bhng each sd dung ReDim 
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If Me.optStrings.Checked Then 

Dim strDataQ As String = {"Joe Hasterman", “Ted Mattison“, “Joe RummeP, 
"Brian Gurnure", "Doug Landal"} 

DisplayArrayData(strData) 

Else - 

’ Ddng lenh difdi day cho thaiy diSm manh cua cic d6i tdpng trong .NET la 
' co the tao vdi tham so. Dieu nay cho phdo tao m$t thing d6i tupng vo'i 
' mot ddng lenh. 

Dim objData() As Customer = {New Customer(3423, VlOtf Hasterman'), New 
Customer(9348, “Ted Mattison"), New Customer(358t, “Joe RummeP), New 
Customer(7642, "Brian Gurnure“), New Customer(2985, “Doug LandaP)} 
DisplayArrayData(objData) 

End If 

End Sub .. n,,. 



Private Sub cmdReverse_Click(ByVal sender As System.Objeet, ByVal e As 
System. EventArgs) Handles cmdReverse.Ciick 

' Dao thit tp cac phan tCt trong ming dS c6 thd tp ngirpc 
Me.lblDataAfter.Text = “Data After-Reverse* ; , • ■ 

If Me.optStrings.Checked Then ,, r , . } 

Dim strDataQ As String = {“Joe Hasterman", “Ted MatUson", ‘Joe RummeP, 
“Brian Gurnure’, “Doug LandaP} . r ... . 

Array. Reverse(strData) 

DisplayArrayData(strData, WhichListBox.BoxTwo) 

Else ,-ji 

Dim objData() As Customer = {New Customer(3423, “Joe Hasterman"), New 
Customer(9348, “Ted Mattison“), New Customer(3581, “Joe RummeP), New 
Customer(7642, “Brian Gurnure“), New Customer(2985, “Doug Landal")} 

Array.Reverse(objData) 

DisplayArrayData(objData, WhichListBox.BoxTwo) 

End If 

End Sub 

Private Sub cmdSort_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdSort.Click 

' De thu tuc niy Idm vide, cic item trong ming phii hS trp so sanh, bkng each 
' cho cac doi hlpng sl! dyng interface IComparable 

Me.lblDataAfter.Text = “Data After Sort" 






315 


-• (\)f1ii;g lV‘(‘hiii«]!K\- -- 

If Me.optStrings.Checked Then 

Dim strData() As String = {“Joe Hasterman", “Ted Mattison*, ‘Joe Rummer, 
“Brian Gurnure - , "Doug Landal“} 

Array. Sort(strData) 

DisplayArrayData(strData, WhichListBox.BoxTwo) 

Else 

Dim objData() As Customer = {New Customer(3423, "Joe Hasterman"), New 
Customer(9348, "Ted Mattison"), New Customer(3581, “Joe Rummel“), New 
Customer(7642, "Brian Gurnure"), New Customer(2985, “Doug Landal')) 

Array.Sort(objData) 

DisplayArrayData(objData, WhichListBox.BoxTwo) 

End If 
End Sub 

Private Sub txtLength_Validating(ByVal sender As Object, ByVal e As 
System.ComponentModel.CancelEventArgs) Handles txtLength.Validating 
Dim txt As TextBox = CType(sender, TextBox) 

If Not IsNumeric(txt.Text) Then 

' Bao dam Ik chi co cac sd' dUQc nhap vao TextBox nky 
MessageBox.Show(txt.Text & “ is not a valid number.", “Non-Numeric Data", 
MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
txt.Text = I.ToStringO 
Else 
Try 

’ Bko dim Ik gii trj nkm trong vCmg gik tri cua kieu Integer 
Dim i As Integer = Clnt(txt.Text) 

Catch exp As OverflowException 
Dim strMsg As String 

strMsg = String.Format("The value you entered, {0} is too large. Valid values 
are between -{1} and {2}", txt.Text, Integer.MaxValue, Integer.MaxValue) 

MessageBox.Show(strMsg, “Value Overflow", MessageBoxButtons.OK, 
MessageBoxIcon.Exclamation) 
txt.Text = I.ToStringO 
End Try 
End If 


End Sub 




Private Sub CompareKeyCheckedChanged(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles optld.CheckedChanged, optld.CheckedChanged 
Dim opt As RadioButton = CType(sender, RadioButton) 

' Thay doi fruiting sti dung bdi doi tilting Customer khi sap xep hoac tim kiem 
If opt.Name = “optld" Then 

’ SetCompareKey let mtit phi/ting thufc Shared se anh htidng tit ci cac 
' instacnce c6 kieu Customer trong AppDomain. 
Customer.SetC6mpareKey(Customer.CompareFieid.ld) 

Else 

Customer.SetCompareKey(Customer. Com pareField. Name) 

End If 

Me.lstAfter.ltems.ClearO 

Me.lblDataAfter.Text = “Data Cleared. Sort Again" 

M e. cmdSort.SelectO 
End Sub 

Private Sub DataTypeCheckedChanged(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles optStrings.CheckedChanged, 
optObjects.CheckedChanged 

' Enable grpCompareField chi khi ming tihCta cic dSi tiK)ng 
Dim opt As RadioButton = CType(sender, RadfoButton) 

Me.grpCompareField.Enabled = Not’ (dptNdme = ‘‘optStrings') 

Me.IstArrayData.Items.ClearQ , ' 

Me.lstAfter.ltems.ClearO 
End Sub 

Private Sub DisplayArrayData(ByVal arr As Array) 

Me.DisplayArrayData(arr, WhichListBox.BoxOne) 

End Sub 

Private Sub DisplayArrayData(ByVal arr As Array, ByVal ListBox As WhichListBox) 
Dim i As Integer 

Dim u As Integer = (arr.Length -1) 

Dim strOutput As String 
Dim 1st As ListBox 

If ListBox = WhichListBox.BoxOne Then 
1st = Me.IstArrayData 
Else 

1st = Me.lstAfter 


End If 





317 


-- O'dmg ’(Veil uiqik*?' • ■ 


1st.Items.Clear() 

’ ThiJc hien theo $6 chieu cua ming 
Select Case arr Rank 
Case 1 

Fori = 0 To u 

1st.Items.Add(String.Format(*{0} = {1i, arr.GetValue(i).ToString())) 

Next 
Case 2 

Dim [As Integer 

For i = 0 To (arr.GetLength(O) -1) 

For j = 0 To (arrGetLength( 1) * 1) 

Ist.ltems.ArtolString.FormatniO}, {1}) = {2}", i, j, _ 

arr.GetValue(i, j>.ToString())) 

Next j 
Nexti 
Case Else 

' Khdng cAi d&t cho mang nhieu hdn hai chieu 
lst.ltems.Add(String.Format(“The array received has too many dimensions 
({0})", arr.Rank)) 

End Select 
End Sub 
• End Class 

37. Callback 

Churang trinh nhy bi6u di4n each thitc hien callback sOr dung ca hai phirong 
phdp interface vh delegate. 


1^5] Callbacks 

mmm 

SSI 


( Callback using an Interface 


i Callback using a Delegate 

; Async callback using a Delegate 


: Built-in async callback Delegate 

L --.- .“ ....-.- .. 
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Cac chufc nanq chfnh: 

> iJng dung ri&y cho phdp ngUdi suf dung thifc hifn nhilu cdch goi k£ ck 
goi trd lai vao client trong qud trinh thuc thi. 

> Nut d&u tien thuc hi$n ki£u goi n&y being cdch suf dung mot interface, 

\h dbi h6i budc dang ky vk huy d&ng k^., . 

> Nut thuf hai thuc hi$n cung cdng vi$c suf dung delegate, v& cung d6i hoi 
dang ky va htiy dang ky. 

> Nut thuf ba lam vi§c ttrong tu nhil nut thuf hai, ngoai trir callback dooc 

thuc hi$n khfing d6ng b$. /••'« .•••>* . 

> Nut thtf tu goi kh6ng d6ng b$ suf dun^f delegate AsyncCallback d£ goi 

trd lai client. . V C'; . . n. n . t 3 jtpi ; 

Project: Callbacks 

ICallback.vb i V 

■ Option Strict On , 

• Interface ICallback 

Sub CallbackMethodf) 

End Interface 

Classl.vb j c ? 

Option Strict On , . < 

Delegate Sub Delegate1() 

• Friend Class Classl 

1 Tri/dng nay chtfa mot tham chieu interlace dS gQi trd l$i client 
Private icb As ICallback 

‘ Trudng nay chila mot tham chii'u delegate d4 gQi trd Igi client 
Private dell As Delegatel 

Public Sub RegisterlnterFaceForCallback(ByVal cb As ICallback) 

* Phtfong fhifc nhy nhin mot tham chieu cho client 
' Dctng ky client cho callback 
icb - cb 
End Sub 
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Public Sub UnRegisterlnterfaceForCallback() 

' Huy dang ky client 
icb = Nothing 

End Sub 

Public Sub UselnterfaceCallbackQ 

' PhUong thdc nay si) dung client da dang ky tham chieu den call back 
' Bao dam la da co dang ky client 
If Not icb Is Nothing Then 
Goi vao client code 
icb.CallbackMethod() 

End If 
End Sub 

Public Sub RegisterDelegateForCallback(ByVal d As Delegate - !) 

' Phddng thdc nay nhin mot tham chieu cho client 

'Dang ky client cho callback 
dell = d 
End Sub 

Public Sub UnRegisterDelegateForCallback() 

' Huy dbng ky client 
dell = Nothing 
End Sub 

Public Sub UseDelegateCallbackQ 

' Phudng thdc nay sd dung client da dang ky tham chieu den call back 

' Bao dam da co dang ky client 
If Not dell Is Nothing Then 
1 Call back vdo client code 

dell .InvokeQ 
End If 
End Sub 






320 


< i ' dUfM-jiH 


Public Sub UseAsyncDelegateCallback() 

’ Phuang thitc nay sfi dung client da dang ky tham chieu den call back vao client 
’ mot each khong dong bo 

If Not dell Is Nothing Then 

' Call back bat dong bo vao client code, cd thS bd qua c&c d6i so 
dell Beginlnvoke(Nothing, Nothing) 

End If 
End Sub 

Public Sub UseBuiltlnDelegateCallbackQ 

' Phuang thUc nay khong can sd dung mot client da dang ky: 

' Callback la mot phan cd sd cua delagate. 

‘ khong can code 

End Sub 

End Class 

frmMain.vb 

Option Strict On 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

’ Sd dung interface ICallback 
Implements ICallback 

‘ Code phat sinh form dude bd qua 

Public Sub CallbackMethodQ Implements ICallback.CallbackMethod 
' PhUdng IhUc nay dUdc goi td Class 1 sau khi form dupe dang ky 

MessageBox.ShowCIn the callback method*, Me.Text, MessageBoxButtons.OK, 
MessageBoxIcon. Information) 


End Sub 
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Private Sub cmdlnterfaceCallback_Click(ByVal sender As System.Object, 

ByVal e As System.EventArgs) _ 

Handles cmdlnterfaceCallback.Click 
' Phddng thtic nay goi vio mdt phddng thdc cua instance classl, no gQi trd Igi 
' vio client thong qua ICallback 
Dim refClassI As New Classl () 


' Ding ky client, truyen vao mot tham chiS'u din chinh no. 
refClassI .RegisterlnterFaceForCallback(Me) 

' Ggi pht/cfng thdc mi no goi trd lai client 
refClassI .UselnterfaceCallback() 

' Hdy ding ky client 

refClassI. U n R egiste rl nte rf ace Fo rC a I Ibac k () 

End Sub 

Private Sub cmdDelegateCallback_Click(ByVal sender As System. Object, _ 
ByVal e As System.EventArgs) _ 

Handles cmdDelegateCallback.Click 

* Phddng thdc niy ggi mQt phddng thdc cua instance Classl, no gQi trd Iq'i 
' client thing qua m$t delegate 

Dim refClassI As New Classl () 

' Tqo mdi m^t instance cua delegate tddng dng cho phddng thdc callback 
Dim d As New Qelegate1(AddressOf Me.CallbackMethod) 

' Ding ky client, truySn vio mot tham chi&u din instance cua delegate 
refClassI.RegisterDelegateForCallback(d) 

' Goi phddng thdc mi no goi trd lai client 
refClassI .UseDelegateCallbackO 
‘ Huy ding ky client 

refClassI .UnRegisterDelegateForCailback() 

End Sub 

Private Sub cmdAsyncDelegateCallback_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) _ 

Handles cmdAsyncDelegateCallback.Click 
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' PhUdng thtfc nay g<?i mdt phddng thtic cua instacne Classl, no g<?i trd lai 
' client mdt each khong dSng bd thdng qua mdt delegate. 

Dim refClassI As New Classl () 

Dim d As New Delegate 1(AddressOf Me.CallbackMethod) 
refClassI .RegisterDelegateForCallback(d) 
refClassI .UseAsyncDelegateCallbackQ 
refClassI.UnRegisterDelegateForCallback() 

End Sub 

Private Sub cmdBuiltlnCallback_C!ick(ByVal sender As System.Object, 

ByVal e As System.EventArgs) _ 

Handles cmdBuiltinCallback.Click 
' Cac delegate cd mdt ky thu$t xdy dt/ng sin dS ggi trd l$i client. 

Dim refClassI As New Classl () 

Dim d As New Delegate 1 (AddressOf refClassI UseBuiltlnDetegateCallback) 1 

’ Tao mdt delegate thii hai d4 truyen vao d6i ti/Qng dupe g<?i (called). 

' Called se stir dyng delegate thii hai ndy dS gQi trd l$i client. 

Dim ac As New AsyncCallback(Add ressOf Me.BuiltlnCallback) 
d.Beginlnvoke(ac, Nothing) 

End Sub 

Private Sub BuiltlnCallback(ByVal ia As IAsyncResult) 

' Phddng thitc ndy dupe gQi sQ dung AsyncCallback di/Qc truySn vdo ti/pht/dng 
' thiic Beginlnvoke trong thu tuc BuiltlnCallback d trdfi. 

MessageBox.Showfln the BuiltfnCallback routine*, Me.Text, 
MessageBoxButtons.OK, MessageBoxIcon. Information) 

End Sub 
End Class 

38. Si3f dung cac kieu dx£ li§u Date Time va 
TimeSpan 

Bieu diln c4ch stir dung ede class DateTime v& TimeSpan. 
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§SQ clung k.ieu dD Iteu DaleTime va TimeSpan 


TimeSpan Ptoperties | TrneSpan Method* J TimoSpanFiekb j 

DateTima ShaiedMembat j Da(»Time Calculation Methods j DateTime Properties) Date.Time Conversion Method* j 


Refiesh 


Now .1/6/2000 $5228 PM 


Today [l/B^OCatZOkOOAW 


UlcNow [l/gyZCCi n^^PM 

Ma*Vah* k 

DayjInMprih [2002 JT“ (af 


IsLeqpYagi |2002 ...Fd*a : .r '• 

Imm** 








W 'WSBW 


Project: Su dung DateTime va TimeSpan 
frmMain.vb 

Option Strict On , r ^ 

Public Class frmMain • * 

Inherits System. Windows. Formns. Form 


' Code phat sinh form dirge tod qua 

Private Sub frmMein^Load^ByVaUqnder As Object, ByVal e As System. Even A rgs) 
Handles MyBase.toad . , ,.- 

' Gq'i cic thfi tyc Iffy c&c gii trj vAo form 
LoadSharedMembersQ 
LoadProperties() 

LoadConverfionMethodsQ 

LoadCalculationMethodsQ 

LoadTimeSpanFields() 

LoadTSMethods() 

End Sub 


Private Sub btnOalcParse_C!ick(ByVai sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCalcParse.Click 
' Hi£n thj cac thu$c tint) cua TimeSpan 
' Phin tich m6t chuSi chiia mot gia trj TimeSpan 
Try 

Dim ts As TimeSpan 

ts = TimeSpan.Parse(txtParse.Text) 
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' HiSn thj cac thuoc tinh cua instance TimeSpan vita tao 
DisplayTSProperties(ts) 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

End Try 
End Sub 

, it' K 

Private Sub btnRefreshCalculation_Click(ByVal sender As Sysf&rn.Object, ByVal e 
As System.EventArgs) Handles btnRefreshCalculatfon.Clfck ^' 
LoadCalculationMethodsO , 

End Sub V- •• 

■ - v- .. ' \ 

t i- ‘ ; j rH ‘ 

Private Sub btnRefreshConversion J2ifcfc([By^senc|»r_A*l System. Object, ByVal e 
As System.EventArgs) Handles btnRefrei^iC<^^l^rijC][{^ 
LoadConversionMethods() ... w / k /. iT .?Vr. sU 
End Sub . ;*. ' 


Private Sub btnRefreshProperties_CHck(ByVai sender As System.Object, ByVal e 
As System.EventArgs) Handles btnRefreshPropertfes.Click ' • c* 

’. '■ ■ -V 1 .0 '■< ;»■*. r . »»-.-■ ./ •' 

LoadProperties() , 

End Sub ; 


Private Sub btnRefreshShared„Cllck(ByVal sender As SysfeniObject, ByVal e As 
System.EventArgs) Handles btnRefreshShared.Click ^ 

LoadSharedMembers() ’ - v * •' ^ 

End Sub *•' ' "'***'■> 


Private Sub btnRefreshTSMethods_Click(ByVal sender Agl£y$i$tiri "Object, ByVal e 
As System.EventArgs) Handles btnRefreshTSMethdds.Click ■ - ’ u - J 

LoadTSMethods() ' ' 

End Sub 


Private Sub btnRefreshTSProperties_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles btnRefreshTSProperties.Click 
Try 

‘ Tao mot instance TimeSpan di/a tr&n cac gi£ tri DateTime cd trSn Iprm 
Dim ts As TimeSpan 
Dim dtStart As DateTime 
Dim dtEnd As DateTime 
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' Phan tach vin bin trong cac TextBox 
dtStart = DateTime.Parse(txtStart.Text) 
dtEnd = DateTime.Parse(txtEnd.Text) 
ts = dtEnd.Subtract(dtStart).Duration 

' Hien thj cac thuoc Unh cua instance TimeSpan viia t$o 
DisplayTSProperties(ts) 

Catch Exp As Exception 

MessageBox.Show(Exp.Message, Me.Text) 

End Try 
End Sub 

Private Sub tabTimeSpan_SelectedlndexChanged(ByVal sender As Object, ByVal 
e As System.EventArgs) Handles tabTimeSpan.SelectedlndexChanged 

* X6a tit ci 60 li$u trin trang chOa tabTimeSpan 
IblDays.Text = String.Empty c 
IbIHours.Text = String.Empty 
IbIMilliseconds.Text = String.Empty 

Ibl Minutes. Text = String. Empty 
IbISeconds.Text = String.Empty 
IbITimeSpanTicks.Text = String.Empty 
IbITotalDays.Text = String.Empty 
IbITotalHours.Text = String. Empty 
IbITotalMilliseconds.Text = String.Empty 
IbITotalMinutes.Text = String.Empty 
IbITotalSeconds.Text = String.Empty 
End Sub 

Private Sub DisplayTSProperties(ByVal ts As TimeSpan) 

’ SO dung cac thuQc Unh cua kiSu TimeSpan: 

' TimeSpan. Days 
‘ TimeSpan.Hours 
' TimeSpan.Milliseconds 
’ TimeSpan.Minutes 
' TimeSpan. Seconds 
' TimeSpan. Ticks 
‘ TimeSpan.TotalDays 

* TimeSpan.TotalHours 

‘ TimeSpan. TotalMilliseconds 



' TimeSpan. TotalMinutes 
' TimeSpan. TotalSeconds 
Try 

IblDays.Text = ts.Days.ToString 
IbIHours.Text = ts.Hours.ToString 
IbIMilliseconds.Text = ts.Milliseconds.ToString 
IbIMinutes.Text = ts.Minutes.ToString 
IbISeconds.Text = ts.Seconds.ToString 
IblTimeSpanTicks.Text = ts.Ticks.ToString 
IbITotalDays.Text = ts.TotalDays.ToString 
IbITotalHours.Text = ts.TotalHours.ToString 
IbITotalMilliseconds.Text = ts.TotalMilliseconds.ToString 
IblTotalMinutes.Text = ts.TotalMinutes.ToString 
IbITotalSeconds.Text = ts.TotalSeconds.ToString 
Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

End Try ■ 

End Sub 

Private Sub LoadCalculationMethods() 

‘ Suf dung cac phUdng thifc cua kieu DateTime: 

' DateTime.AddDays 
' DateTime.AddHours 
’ DateTime.AddMilliseconds 
' DateTime.AddMinutes 
' DateTime.AddMonths 
' DateTime.AddSeconds 
' DateTime.AddTicks 
' DateTime.AddYears 
Try 

Dim dt As DateTime = DateTime.Now 
IblNowS.Text = dt.ToString 

IblAddDays.Text = dt.AddDays(CDbl(txtDays.Text)).ToString 
IblAddHours.Text = dt.AddHours(CDbl(txtHours.Text)).ToString 
IblAddMilliseconds.Text = 

dt.AddMilliseconds(CDbl(txtMiliiseconds.Text)).ToString 

IblAddMinutes.Text = dt.AddMinutes(CDbl(txtMinutes.Text)).ToString 
IblAddMonths.Text = dt.AddMonths(Clnt(txtMonths.Text)).ToString 
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tbIAddSeconds.Text = dt.AddSeconds(CDbl(txtSeconds.Text)).ToString 
IblAddTicks.Text = dt.AddTicks(CLng(txtTicks.Text)),ToString 
IblAddYears.Text = dt.AddYears{Clnt(txtYears.Text)).ToString 
Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

End Try 
End Sub 

Private Sub LoadConversionMethods() 

' Si? dhjng cac phijong thilc cua kieu DateTime: 

’ DateTime. ToFileTime 
' DateTime.ToLocalTime 
' DateTime. ToLongDateString 
' Date Time. ToLong TimeString 
' DateTime. ToOADate 
' DateTime.ToShortDateString 
' DateTime. ToShortTimeString 
' DateTime.ToString 
’ DateTime.ToUniversalTime 
Try 

Dim dt As DateTime = DateTime.Now 

lblNow2.Text = dt.ToString 
IbIToFileTime.Text = dt.ToFileTime.ToString 
IbIToLocalTime.Text = dt.ToLocalTime.ToString 
IbIToLongDateString.Text = dt.ToLongDateString 
IbIToLongTimeString.Text = dt.ToLongTimeString 
IbIToOADate.Text = dt.ToOADate.ToString 
IbIToShortDateString.Text = dt.ToShortDateString 
IbIToShortTimeString.Text = dt.ToShortTimeString 
IbIToString.Text = dt.ToString 

IblToliniversalTime.Text = dt.ToUniversalTime.ToString 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

End Try 


End Sub 
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Private Sub LoadProperties{) 

' SCt dung cac thudc tinh cua kiiu DateTime: 

' DateTime.Now 
' DateTime. Date 
' DateTime. Day 
' DateTime. DayOfYear 
' DateTime.Hour 
' DateTime.Millisecond 
' DateTime.DayOfWeek 
' DateTime.Minute 
' DateTime. Month 
' DateTime.Second 
' DateTime.Ticks 
' DateTime. TimeOfDay 
’ DateTime. Year 
Try 

Dim dt As DateTime = DateTime.Now 

IblNowl .Text = dt.ToString 
IblDate.Text = dt.Date.ToString 
IblDay.Text = dt.Day.ToString 
IblDayOfYear.Text = dt.DayOfYear.ToString 
IbIHour.Text = dt.Hour.ToString 
IbIMillisecond.Text = dt.Millisecorid.ToString 
IblDayOfWeek.Text = dt.DaybfWiteek.ToStrihg 
IbIMinute.Text = dt.Minute.ToString 
rhlMonth.Text = dt.Month.ToString ' c "* ' 
IbISecond.Text = dt.Second.ToString * 
IbITicks.Text = dt.Ticks.ToStrlng 
IbITimeOfDay.Text *= dt.TimeOfDay.ToStririg 
-■ IblYear.Text = dt.Year.ToString 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 
End Try 


End Sub 
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Private Sub LoadSharedMembers() 

' Sijf dyng c&c thdnh phin Shared cua class DateTime: 

‘ C&c thudc tfnh: 

' DateTime.Now,' DateTime.UtcNow,' DateTime.MinValue 
' DateTime. Max Value 
' C6c phUcfng thdc: 

* DateTime.FromOADate, DateTime.IsLeapYear 
‘ DateTime. DaysInMonth 
Try 

IblNow.Text = DateTime.Now.ToString 
IbIToday.Text = DateTime.Today.ToString 
IblUtcNow.Text = DateTime.UtcNow.ToString 
IbIMinValue.Text = DateTime.MinValue.ToString 
IbIMaxValue.Text = DateTime.MaxValue.ToString 

IbIFromOADate.Text = DateTime.FromOADate(_ 

CDbl(txtFromOADate.Text)).ToString 

IbllsLeapVear.Text = DateTime.lsl_eapYear(Clnt(txtlsLeapYear.Text)).ToString 
IblDaysInMonth.Text = DateTime.DayslnMonth( _ 

Clnt(txtYear.Text), Clnt(txtMonth.Text)).ToString 
Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

End Try 
End Sub 

Private Sub LoadTimeSpanFields() 

’ St? dyng c&c thdnh phin Shared cua class TimeSpan: 

' TimeSpan.MaxValue 
' TimeSpan.Minvalue 
' TimeSpan.TicksPerDay 
’ TimeSpan. TicksPerHour 
' TimeSpan. TicksPerMillisecond 
' TimeSpan. TicKsPerMinute 
' TimeSpan. TicksPerSecond 
' TimeSpan. Zero 

Tr y 

IbIMaxValueTS.Text = TimeSpan.MaxValue.ToString 
IbIMinValueTS.Text = TimeSpan.MinValue.ToString 
IbITicksPerDay.Text = TimeSpan.TicksPerDay.ToString 
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IblTicksPerHour.Text = TimeSpan.TicksPerHour.ToString 
IbITicksPerMillisecond.Text = TimeSpan.TicksPerMillisecond.ToString 
IbITicksPerMinute.Text = TimeSpan.TicksPerMinute.ToString 
IbITicksPerSecond.Taxt = TirneSpan.TicksPerSecond.ToString 
IbIZero.Text = TimeSpan.Zero.ToString 
Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text) 

End Try 
End Sub 

Private Sub LoadTSMethods() 

' St? dying cac phUdng thtic Shared cua class TimeSpan: 

' TimeSpan. FromDays . 

' TimeSpan. From Hours 
‘ TimeSpan. FromMilliseconds 
‘ TimeSpan. FromMinutes 
’ TimeSpan. FromSeconds 
' TimeSpan. FromTicks . ■ 

Try 

IbIFromDays.Text = Tim©Span.FromDays(CDbl(txtFromDays.Text)).ToString 
IbIFromHours.Text = _ 

TimeSpan.FromHours(CDbKtxtFromHours.Text)).ToString 
IbIFromMilliseconds.Text * _ . 

TimeSpan.FromMHIiseconds(CDbl(txtFromMilliseconds.Text)).ToString 
IbIFromMinutes.Text = _ . 

TimeSpan.FrornMinutes(CDb!(txtFi;omMimiteS.Texl)).ToString 
IbIFromSeconds.Text = _ H.e. • a < - 

TimeSpan.FromSeconds(CDbl(tXtFromSecor^l8.Texi)>.TpString 
IblFromTicks.Text = _ ; > 

TimeSpan. FromTicks(CLng(txtFromTicks.Text)).TaString 
Catch exp As Exception . . 

MessageBox.Show{exp.Message, Me.Text) 

End Try 
End Sub 


End Class 
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39. Cac tinh n&ng htfdng doi ttftfng trong Visual 
Basic .NET 

Chiftmg trinh nky bi&i dilin mot so tinh n&ng hiidng d6l tifcfng (object 
oriented - OO) mdi trong VB.NET. Nhan F5 de chay vdi ch6' d<> Debug tai cdc 
breakpoint. Nh2tn Ctrl+F5 de chay chitang trinh v& bd qua cdc breakpoint 



Cdc nut tr£n form cbinh ttfdng ting vdi m$t tinh ndng OO trong VB.NET: 

> Overloads 

> Constructors * 

.. * ‘ > '*■ i. \ L ■> ' • • *j 

> Cu phdp Property 

> Cdc thu0c tinh cd tham sS , j 

' . “ r‘ 

> Cdc thhnh phln chia sd (Shared) 

M6i tinh nftng cd mOt class v& m0t file source rifeng. Tuy nhidn, cd thl d&t 
n£m class nky vkd m0t source file. 

Project: Huong Doi Tuong trong VB.NET 


Customer, vb 


• Option Strict On 



ublic Class Customer 


Private custAccount As String 
Private custFirstName As String 
Private custLastName As String 
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Public Property AccountNumber() As String 
Get 

Return custAccount 
End Get 

Set(ByVal Value As String) 
custAccount = Value 
End Set 
End Property 

' Cic thu$c tlnh chu£n 
Public Property FirstName() As String 
Get 

Return custFirstName 
End Get 

Set(ByVal Value As String) 
custFirstName = Value 
End Set 
End Property 

Public Property LastName() As String , , 

Get 

Return custLastName 
End Get 

Set(ByVal Value As String) 

custLastName = Value '* 

End Set v. 

End Property 
End Class 

CustomerPropertySyntax.vb 

Public Class CustomerPropertySyntax 
Private custAccount As String 
Private custFirstName As String 
Private custLastName As String 

Sub New(ByVa) AccountNumber As String) 

' Diy li bo khdi t$o (Constructor) cho class niy. 

' Thong thudng, AccountNumber l£y tif database, hoic tCt mdt tip hpp. 
’ Ta sit dung mot s6 trong vl dy niy 
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' Bdi v'i thuoc tinh AccountNumber la thudc tlnh chi doc, do do 
‘ bien custAccount phai khai bao vdi private 
custAccount = “ 1101" 

Me.FirstName = "Carmen" 

Me.LastName = "Smith" 

End Sub 

' Khai bao thudc tinh AccountNumber 
Public Readonly Property AccountNumber() As String 

' Hau het cac thudc tinh co the doc/ghi, co nghla la co the lay gia tri va 
' thay doi gia tri bdng code. Khi thuoc tinh co the dpc/ghi th) no co hai 
' phin Get va Set ben trong code cua thuoc tinh. 

’ Bdi v) thuoc tinh nAy khai bao Readonly, chi cin co phdn Get. 

Get 

Return custAccount 
End Get 

' Ngoai ra co thS khai bao thudc tinh vdi WriteOnly, th) chi can phan Set 
End Property 

Public Property FirstName() As String 
Get 

Return custFirstName 
End Get 

Set(ByVal Value As String) 
custFirstName = Value 
End Set 
End Property 

Public Property LastName() As String 
Get 

Return custLastName 
End Get 

Set(ByVal Value As String) 
custLastName = Value 
End Set 
End Property 
• End Class 
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CustomerWithConstructor.vb 

Option Strict On 

Public Class CustomerWithConstructor 

Private custAccount As String 
Private custFirstName As String 
Private custLastName As String 

Sub New(ByVal AccountNumber As String, ByVal FirstName As String, ByVal 
LastName As String) 

' Day IA Constructor cua class ndy 
Me.AccountNumber = AccountNumber 
Me.FirstName = FirstName 
Me.LastName = LastName 
End Sub 

Public Property AccountNumber() As String 
Get 

Return custAccount 
End Get 

Set(ByVal Value As String) 
custAccount = Value 
End Set 
End Property 

Public Property FirstNameQ As String 
Get 

Return custFirstName 
End Get 

Set(ByVal Value As String) 
custFirstName = Value 
End Set 
End Property 

Public Property LastName() As String 
Get 

Return custLastName 


End Get 
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Set(ByVal Value As String) 
custLastName = Value 
End Set 
End Property 
• End Class 

CustomerWithParameterizedProperty.vb 

■ Option Strict On 

■ Public Class CustomerWithParameterizedProperty 

Private custAccount As String ‘ 

Private custFirstName As String 
Private custLastName As String 
Private custDefaultQuantity As Integer * 12 

' Di t$o m$t thuQc tirth c6 tham s6, chi dan giin thSm tham stf vao c£u l$nh 
' khai b&o thu6c tlnh, trong trUdng hgp ndy ia "Multiplier'’ 

Public Property DefauttQuantity(ByVal Multiplier As Integer) As Integer 
Get 

' Thdng thi/dng thQ tyc Get cua thiiQc tlnh khdng s& dyng tham s6 truyen vao, 

' nhi/ng d diy cho th&y c&ch f£m vi&S cda )hu0c tlnh' c6 , tham s6. Tham s6 cua 
' thuQc tfnh dupe xem nhu lit tham s6 b)nh thudng dupe truyin vao. 

Return custDefaultQuantity * Multiplier ■’ 

End Get 

Set(ByVal Value As Integer) 
custDefaultQuantity =; Value 
End Set 
End Property 

Public Property AccountNumberQ As String 
Get 

Return custAccount 
End Get 

Set(ByVat Value As String) 
custAccount = Value 
End Set 
End Property 
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Public Property FirstNameO As String 
Get 

Return custFirstName 
End Get 


Set(ByVal Value As String) 
custFirstName = Value 
End Set 
End Property 


Public Property La$tName() As String 
Get • ' 

Return custLastName 
End Get 

•..ft 

Set(By Val Value As String) 
custLastNqm$=^VaJue 


End Set 

End Property . ■ *. 

r * * •' tk 

End Class 





•• ■sr i 'OOC V> tNV- -i ; 

Option Strict On ; ^** r ' u "C , 

Public Class CustomerWithSharedMembers^: v r - < 
Private custAccount As Siring 
Private custFirstName As String 
Private custLastName As String 




' Biin bin dudi (CompanyName) dupe khai bio li Shared. Tit ci cic instance 
‘ cua class niy sCf dyng cung mpt gii tri cua bUn niy. Niu nd bj thay dSi trong 
' mdt instance cua class niy, nd se thay dii trong toin bp cic instance dang tin tai. 
Public Shared CompanyName As String 


Public Shared Function LastOrderDate() As Date 

1 Diy li mdt him chia si (Shared), xem each gq>i trong frmMain de biet thim 
Dim orderDate As Date 
orderDate = Now 
Return orderDate 
End Function 
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Public Property AccountNumber() As String 
Get 

Return custAccount 
End Get 

Set(ByVal Value As String) 
custAccount = Value 
End Set 
End Property 

Public Property FirstName{) As String 
Get 

Return custFirstName 
End Get 

Set(ByVal Value As String) 
custFirstName = Value 
End Set 
End Property 

Public Property LastName() As String 
Get 

Return custLastName 
End Get 

Set(ByVal Value As String) 
custLastName = Value 
End Set 
End Property 
End Class 

frmMain.vb 

■ Option Strict On 

■ Public Class frmMain 

Inherits System.Windows.Forms.Form 
• ' Code phat sinh form di/o'c bd qua 

Private Sub cmdConstructors_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdConstructors.Click 

' M6t Constructor trong VB.NET chi don giin la code dupe thUc hiin khi tqo 
' mdt ddi ti/png class mdi (instanced). B6 khdi tao (constructor) cd th£ co 
‘ hoAc khdng ddi hdi ede tham sd' truySn vdo. 
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' Ddy Id cu phap tao mot doi tifdng mdi vdi constructor tren cung mdt ddng. 

Dim oust As New CustomerWithConstructorfl 101", "Carmen*, "Smith") 

’ Ngoai ra, co thS tao mdi doi tUdng sau khi khai bao bien 
Dim cust2 As CustomerWithConstructor 

cust2 = New CustomerWithConstructorfl 101", “Carmen", "Smith") 

' Ngi/di lap tr'mh co thS overload (chdng len) thu tuc Sub New trong mdt class. 

' Bing each ndy, co thS tao cac phidn bin constructor khic nhau. VI dp, n&U 
‘ mudn tao mot constructor chi cho phep goi tit bSn trong class, khai bio trong 
' class nhi/ sau: 

t 

1 Private Overloads Sub New(). 

’ End Sub 
End Sub 

Private Sub cmdOverloads_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdOverloads.Click 

Dim myCustl As Customer 
Dim myCust2 As Customer 

' Muc dich cua tit khoa "Overloads" trong VB.NET Id cho phep t$o nhieu thu tpc 
' co cung tdn nhitng thde hiSn code khac nhau 

‘ Gia sit ta mu6n Id'y thdng tin Customer theo ID hoic theo Name. T$o hai him 
’ cd cung tSn GetCustomer vdi tit khda Overloads nhitng vdi cac tham s£ khac 
' nhau (xem code thutc si/ cua hai him bin difdi): 

myCustl = GetCusrtmerfSmith") 
myCust2 = GetCustomer(IIOI) 

End Sub 

Private Sub cmdParamProperties_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles cmdParamProperties.Click 


Dim cust As New CustomerWithParameterizedPropertyQ 
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' DS t$o m$t thuQc tinh cd tham si', thim tham si vao ciu fenh Property. 


' V6i cic thuQc tinh cd tham si, ta phii chi djnh cac tham so cho du thu tyc thuic 
‘ tinh khing sCf dyng cUrtham si niy. Ddng linh sau gan vio DefaultQuantity 
' g ii tri 100 : 

cust.DefauttQuantity(O) **100 


MessageBox.Show(*The default quantity for this customer is * & 
cust.DefaultQuantity(3), Me.Text, MessageBoxButtons.OK, 
MessageBoxIcon. Information) 


End Sub 

/ j 

Private Sub cmdPropertySyntax,_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdPropertySyntax.Click 

• b-ji' ■ . ‘ - ■ ‘ - 

* Doan code sau tyo mQf jflstance cua class CustomerPropertySyntax vi Hy 
' gia trj tCi thuQc tinh Readonly, AccountNumber. 


Dim myAccount As S^l^ ^ o 

Dim cust As New Custo^rPr^pertySyntaxCl j 01 ‘) 

’.-V «v fe '» '■ '> • o r1 0’J ■ ,' L ‘ 

myAccount = custAccouhtNumber 
End Sub 


Private Sub cmdSharedMembers_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles cmdSharedMembers.Click 

' Co hai kiiu thinh phin chia si trong m$t class: cic biin chia si t vi cac kiiu 
‘ thu tyc chia si. 


' Bin dddi ta tyo hai instance cua class customer vi thay dSi gia trj cua biin chia 
' se ”CompanyName u . Khi thyc hien doyn code niy ta se thiy m$t thing bio li 
' Tailspin Toys. Diiu niy cd nghia la thay dSi gia trj trong bit ky instance nio 
' cua class se thay dSi gii trj trong tit ci cac instance. 

Dim custl As New CustomerWithSharedMembersO 
Dim cust2 As New CustomerWithSharedMembersO 
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' C6 thi sCf dyng cu phip chain cho 66i tdgng nhu sau: 
custl .CompanyName = "Wingtip Toys" 
cust2.CompanyName = "Tailspin Toys" 

* Tuy nhiin, cu phip nin dung cho cac thanh phin chia se Id 
' ClassName.SharedMemberName, v( dp: 

' CustomerWithSharedMembers.CompanyName = "Tailspin Toys". 
MessageBox.Show(*The company name is " & custl.CompanyName, Me.Text) 

' Cic thu tyc chia si cCia class c6 thi gpi thong qua mot instance cua class hoic 
' khing cin mit instance vdi cu phip: 

' Classname.ProcedureName, vi cu phap nin dung cho cac thu tyc chia se la: 

‘ ClassName.SharedProcedureName syntax. 

' G<?i phuong thdc chia si thong qua instance: 

MessageBox.ShowfThe last order was placed on " & _ 
custl .LastOrderDate, Me.Text, MessageBoxButtons.OK, 

MessageBoxIcon.Information) 

' G(>/ pht/ong thdc chia si thing qua tin class 
MessageBox.Show("The last order was placed on ■ & _ 
CustomerWithSharedMembers.LastOrderDate, Me.Text, 
MessageBoxButtons.OK, MessageBoxIcon.Information) 

End Sub 

Private Overloads Function GetCustomer(ByVa) CustID As Integer) As Customer 

' Him niy dupe g<?i niu truyin vio mit si nguyin 
Dim cust As New CustomerQ 

’ ta sd dung dO liiu gii 
cust.AccountNumber * "1101" 
cust.FirstName = "Carmen" 
cust.LastName = "Smith" 

Return cust 

End Function r 
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Private Overloads Function GetCustomer(ByVal CustLastName As String) As 
Customer 

' HAm nky dupe gpi n£u truyen vko mdt chuSi 
Dim oust As New Customer() 

’ Stir dpng dO lipu gii 
cust.AccountNumber = "1101“ 
cust.FirstName = 'Carmen' 
cust.LastName = 'Smith* 

Return oust 
End Function 

End Class 

40. ChuSi - String 



Chifcfng trinh nhy bilu di4n nhilu phuong thufc cua class String. Ckc 
phifcfng thufc dime chia ra lim ba nh6m: 

> Ckc phircmg thtfc trri v4 c&c chuSi (nhu Insert, Remove...) 

> C£c phirnng thde trd vi thdng tin (nhi/ IndexOf) 

> Cdc phi/ong thdfc chia s& (Shared) (nhir String.Format) 

Ngohi ra c6n c6 ckc class hufti dung khde Ik StringBullder vk StringWrlter. 
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Project: Chuoi - String 

frmMain.vb 

Option Strict On 
Imports System.Text 
Imports System.10 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code phat sinh form dupe bd qua 

Private Const DEFAULT_TEXT As String = “the quick brown fox jumps over the 
lazy dog* 

Private Const QUOTE As String = "" 

Private mstrSample As String = DEFAULT_TEXT 
Private rbtnShared As RadioButton «' 

Private rbtn String Return As Ra<fioButfi^ e 1 L -. 

Private rbtnStringlnfo As RadioButton * C ; ^ 

Private Enum SelectedMethod . ;/ v. , 

Compare 

CompareOrdinal 

Concat . >A ' 

Ends With 

Format 

IndexOf 

IndexOfAny 

Insert 

Join 

LastlndexOf 

LastlndexOfAny 

PadLeft 

PadRight 

Remove 

Replace 

Split 

StartsWith 

Substring 
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ToLower 
ToUpper 
Trim 
TrimEnd 
Trim Start 
End Enum 

Private sm As SelectedMethod 

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnClear.Click 
txtResults.Clear{) 

End Sub 

Private Sub btnRecalc_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnRecalc.Click 
RecalcO 
End Sub 

Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnRefresh.Click 
RefreshText() 

End Sub 

Private Sub btnStringBuilder_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnStringBuilder.Click 

' dema class StringBuilder 

If chkDebug.Checked Then 
' Veto chi' dd debug 

System.Diagnostics. Debugger.Break() 

EncUlf 

StringBuilder nim trong namespace System.Text, da imports d trin 
Dim sb AsvNpw StringBuilderfThe quick brown fox jumps over the lazy dog“) 

sb.lnsert(19, ‘ happily - ) 
sb.Remove(10, 6) 
sb-ReplaceCjumps', ■leaps') 
sb.AppendFormat{“ {0} times in {1} minutes', 17, 2) 
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’ Gid sCr mudn thdm m$t d£u phiy vdo sau tit "dog". Cin xdc djnh vf trf tit ndy 
' bdng cdch sit dyng IndexOf, nhutng StringBuikJer khdng cung dp phifdng thifc 
‘ ndy Do dd, phii sit dyng phi/dng thitc ToString 64 nh$n m0t chu&i, vd Idm vi$c 
' vdi ddi tUQng ndy. 1 

Dim intPos As Integer 
intPos = sb.ToString.lndexOf(“dog“) 

If intPos > 0 Then ■ ' • f ' - r ! 

' Chdn d£u phiy vdo vf tri tim thiy c0ng vdi 60 ddi cua tit m dog H 
sb.lnsert(intPos + “dog'.Length,',') ’ 

End If 

if- C.y- 

* Code tUdng tijt sit dung tri/c tiip d6i titpng String 
Dim str As String = “The quick brown fox jumps over the lazy dog' 

f J . v , 

str = str.lnsert(19, “ happily*) 

' Li].' , ; 

str = str.Remove(10, 6) 

str = str.Replace('jumps“, “leaps') 

str &= String.Format(“{0} times in {1} minutes'. 17, 2) 

intPos - str.lndexOf('dog') 

If intPos > 0 Then 

str = str.insert(intPos + “dog'.Length,", “) 

End If 

txtResults.AppendTextfStringBuilder output: ' & sb.ToString & 

Environment.NewLine) 

txtResults.AppendText(“String output: ' & str & Environment.NewLine) 

End Sub 

- Private Sub btnStringWriter_Click(ByVal sender As System.Object, ByN/al e As 
System.EventArgs) Handles btnStringWriter.Click 

' Demo class String Writer 

' Ghi vdo StringWriter gidng nhif la ghi vdo m0t file - 
' nhitng ghi vdo b0 nhd thay vi ghi vdo file 
' StringWriter ndm trong namespace System. IO 

Dim sw As New StringWriterj) 

If chkDebug.Checked Then 

System.Diagnostics.Debugger.Break() 

End If 
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‘ Gid sit nhin du0c mdt c£u true dCt HSu, m$t mdng ede chuoi chita thdng tin dja chi. 

Dim addresslnfo() As String = {“John Smith“, “123 Main Street", “Centerville", 
“WA“, “98111“} 

’ Tao mdt dia chi c6 djnh dang 

‘ Cho ede ddng tin vd dja chi vdo StringWriter 
sw.WriteLine(addresslnfo(0)) 
sw.WriteLine(addresslnfo(1)) 

* C6 thS sit dyng phuong thitc String. Format dS tao ddng dja chi, nht/ng d ddy 
‘ chi edeh sit dgng ci hai phuong thitc WriteLine vd Write. 

Sw.Write(addresslnfo(2)) 
sw.Write(“, “) 
sw.Write(addresslnfo(3)) 
sw.Write(“ “) 

s w. W riteL»ne(address I nfo(4)) 

' hodc: 

' sw.WriteLine(String.Format( u {0}, {1} {2}", addresslnfo(2), _ 

* addresslnfo(3), addresslnfo(4))) 


' Sit dang class String, code kho chju hdn 
Dim sir As String 

str = addresslnfo(O) & Environment.NewLine 
str &= addresslnfo(l) & Environment.Newtine 
str &= address!nfo(2) & “, “ 
str &= addresslnfo(3) & “ " & addresslnfo(4) 
str &= Environment.NewLine 

’ hodc: 

'str &= String.Format( H {0}, {1} {2}{3}", addresslnfo(2), addresslnfo(3), _ 

addresslnfo(4), Environment. NewLine) 


' Hi4n thj ket qui 

txtResults.AppendTextfStringWriter output: “ & 
Environment.NewLine & sw.ToString) 
txtResults.AppendText(“String output: “ & _ 
Environment. NewLine & str) 

End Sub 
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Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 
‘ Khdi tao cac gii trj 
' Trang dUdc chon 
tabStringDemo.Selectedlndex = 0 

’ Cac nut dUQc chQn trin m6i trang 
' ChQn cic nut diu tiSn trin m6i trang 
rbtnStringlnfo = optlndexOf 
rbtnStringReturn ^ optlnse>rt . • ‘ 

rbtnShared = optCompare ■ • 

' Hiin thj van bin trin trang diu tiin 
DisplayText(optlnsert) 

End Sub ■ '■ - 

Private Sub tabStringDemo Selected I ndexChanged(ByVal slender As 
System.Object, ByVal e As System. EventArgs) Handles 
tabStringDemo.SelectedlndexChanged 

Dim pagSelected As TabPage = tabStringDemo. SelectedTab 
' Code nay chay tnfdc si/ kien Load cua form. 

‘ Khdng thi/c hien neu si/ kien Load cua form chUa thi/c hiin. 

If Not rbtnStringReturn Is Nothing Then 

’ Di chuyen panel chda thong tin din trang hiin hinh. . 

' Nhu g 1 tong lam d6i vdi trang u Other H 
If Not pagSelected Is pagOther Then 
pnIDemo. Parent = pagSelected 
End If 

' Di/a trin trang di/Qc chon, hiin thj kit qui 
If pagSelected Is pagReturnStrings Then 
grpSample.Visible = True 
DisplayText(rbtnStringReturn) 

Elself pagSelected Is paglnfo Then 
grpSample. Visible = True 
DisplayText( rbtnStringlnfo) 

Elself pagSelected Is pagShared Then 
grpSample.Visible = False 
DisplayText( rbtnShared) 

End If 
End If 
• End Sub 






Private Function AddQuotes(ByVal strValue As String) As String 
' Thim cic d£u ngo$c kip de bQc vir> bin. 

' Thay th£ m$t d£u ngoic (")kep thanh hai dau ngoac kip ("") 

Return QUOTE & Replace(strValue, QUOTE, QUOTE & QUOTE) & QUOTE 
End Function 

Private Sub DisplayText(ByVal rbtn As RadioButton) 

' Thi/c hi$n c6ng viic dua trip radio button dtfpc chon 
If rbtn Is optCompare Then 
rbtnShared = rbtn 
sm = SelectedMethod.Compare 

HandleParametersfstrA", "This is a test", *'strB“, "this is a test", _ 

"ignoreCase", "True") 


Elself rbtn Is optCompareOrdinal Then 
rbtnShared = rbtn 

sm = SelectedMethod.CompareOrdinal 

HandleParameters("strA“, "This is a test", "strB", "this is a test") 

Elself rbtn Is optConcat Then 
rbtnShared = rbtn 
sm = SelectedMethod.Concat 

HandleParameters("strA", "This is a test", "strB", " of how this works", _ 

"strC", * when you concatenate") 

Elself rbtn Is optEndsWith Then 
rbtnStringlnfo - rbtn 
sm = SelectedMethod. EndsWith 
mstrSample = DEFAULT_TEXT 
HandleParameters("value", "dog") 

Elself rbtn Is optFormat Then 
rbtnShared = rbtn 
sm = SelectedMethod.Format 

HandleParameters("Format", "Your {0:N0} items total {1:C}.\ _ 

"Paraml", ‘12", "Param2", "12.35") 


Elself rbtn Is optindexOf Then 
rbtnStringlnfo = rbtn 
sm = SelectedMethod. IndexOf 
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mstrSample = DEFAULT_TEXT 
HandleParameters(*valueV "o', “startlndexV ", ‘count*, ““) 

Elself rbtn Is optlndexOfAny Then 
rbtnStringlnfo = rbtn 
sm = SelectedMethod. IndexOf Any 
mstrSample = DEFAULT.TEXT 

HandleParameters(‘anyOf()‘, ‘abc‘, 'startlndexV ", 'count', ") 

Elself rbtn Is optlnsert Then 
rbtnStringReturn = rbtn 
sm = SelectedMethod.Insert 
mstrSample = DEFAULT_TEXT 
HandleParameters('startlndex', *19", 'value',' happily') 

Elself rbtn Is optJoin Then 
rbtnShared = rbtn 
sm = SelectedMethod Join 

HandleParameters('separator',"values()\ 'item1,item2,item3,item4') 

Elself rbtn Is optLastlndexOf Then 
rbtnStringlnfo = rbtn 
sm = SelectedMethod.LastlndexOf 
mstrSample = DEFAULT_TEXT 

HandleParameters('value', *o", 'startlndexV “V 'count', "*) 

Elself rbtn Is optLastlndexOfAny Then 
rbtnStringlnfo = rbtn 
sm = SelectedMethod. LastlndexOf Any 
mstrSample = DEFAULT_TEXT 

HandleParameters('anyOf()V "abc', 'startlndexV "V 'count', *") 

Elself rbtn Is optPadLeft Then 
rbtnStringReturn = rbtn 
sm = SelectedMethod.PadLeft 
mstrSample = '123.45* 

HandleParameters('totalWidth“, "10", "paddingChar", "$") 

Elself rbtn Is optPadRight Then 
rbtnStringReturn = rbtn 
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sm = SelectedMethod. PadRight 
mstrSample = "Pad* 

HandleParametersftotalWidth", *10", "paddingChar", ■_") 

Elself rbtn Is optRemove Then 
rbtnStringReturn = rbln 
sm = SelectedMethod. Remove 
mstrSample = DEFAULT_TEXT 
HandleParameters("startlndex‘, '10*, "count", "6") 

Elself rbtn Is optReplace Then 
rbtnStringReturn = rbtn 
sm = SelectedMethod.Replace 
mstrSample = DEFAULT_TEXT 

HandleParametersfoldValue", "jumps', "newValue", “leaps") 

Elself rbtn Is optSplit Then 
rbtnStringlnfo = rbtn 
sm = SelectedMethod.Split 
mstrSample = DEFAULT_TEXT 
HandleParameters("separator()', “abc", “count", "') 

Elself rbtn Is optStartsWith Then 
rbtnStringlnfo = rbtn 
sm = SelectedMethod.StartsWith 
mstrSample = DEFAULT_TEXT 
HandleParameters(‘value", "The qui") 

Elself rbtn Is optSubstring Then 
rbtnStringReturn = rbtn 
sm = SelectedMethod.Substring 
mstrSample = DEFAULT_TEXT 
HandleParameters("startlndex", "12", “length", "5") 

Elself rbtn Is optToLower Then 
rbtnStringReturn = rbtn 
sm = SelectedMethod, ToLower 

mstrSample = "This Sample has SOME mixed-CASE Text!" 
HandleParametersQ 
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Elself rbtn Is optToUpper Then 
rbtnStringReturn = rbtn 
sm = SelectedMethod.ToUpper 

mstrSample = "This Sample has SOME mixed-CASE Text!" 
HandleParameters{) 

Elself rbtn Is optTrim Then 

rbtnStringReturn = rbtn ' is 

sm = SelectedMethod.Trim 

mstrSample = DEFAULT_TEXT m 

HandleParametersCtrimCharsO", "the dog") 

Elself rbtn Is optTrimEnd Then ... - 'qc- *j ' ^ ; 

rbtnStringReturn = rbtn . • v-T. 1! ' ; ' f ' 

sm = SelectedMethod.TrimEnd < * 

mstrSample = DEFAULT_TEXT > r ;: ■ c 

HandleParametersCtrimCharsO", "the dbg") r ' ?■ 

Elself rbtn Is optTrimStart Then 

rbtnStringReturn = rbtn rr <;* •. t-<}..w 

sm = SelectedMethod.TrimStart _ ' v h 1 * 

mstrSample = DEFAULT_TEXT vrh e- * l4 , 

HandleParameters("trimCharsO“. "thettojj") T : >* ;?■ •: : nt r 

End If v 'W. % 

' Hien thi van bin vl du.vi gQi Recalc 64hiin thj kit qui 
RefreshText() ■ ’ y> '* 1 ' ' 

Recalc() 1 re 

End Sub J ■, » 

• ^ ’ K. * 

Private Sub HandleCheckedChanged(ByVal sender As System. ObjeeS, ByVal e As 
System.EventArgs) Handles optlnsert.CheckedChanged, 
optPadLeft.CheckedChanged, opiPadRight.CheckedChanged, 
optRemove.CheckedChanged, optReplace.CheckedChanged, 
optSubstring.CheckedChanged, optToLower.CheckedChanged, 
optToUpper.CheckedChanged, optTrim.CheckedChanged, 
optTrimEnd.CheckedChanged, optTrimStart.CheckedChanged, 
optEndsWith.CheckedChanged, optlndexOf.CheckedChanged, 
optlndexOfAny.CheckedChanged, optLastlndexOfAny.CheckedChanged, 
optStartsWith.CheckedChanged, optLastlndexOf.CheckedChanged, 
optCompare.CheckedChanged, optCompareOrdinal.CheckedChanged, 
optConcat.CheckedChanged, optFormat.CheckedChanged, 
optJoin. CheckedChanged 

Disp!ayText(CType(sender, RadioButton)) 

End Sub 
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Private Sub HandleParametersQ 
' Hien thi khong tham s6 
HandleParameterDisplay(O) 

End Sub 

Private Sub HandleParameters(ByVal Paraml As String, ByVal Paraml Value As 
String) 

' Hiin thj mdt tham sd 
IblPrml Text = Paraml 
txtPrml .Text = Paraml Value 
HandleParameterDisplay(1) 

End Sub 

Private Sub HandleParameters(ByVal Paraml As String, ByVal Paraml Value As 
String, ByVal Param2 As String, ByVal Param2Value As String) 

' Hiin thj hai tham si 
IbIPrm 1.Text = Paraml * 
txtPrml .Text = ParamtValua' 
lblPrm2.Text= Pa*am2 
txtPrm2.Text = Param2Vaki6 
HandlePar^meterDisiSteVf2) ! ■ 

End Sub ' 

*• I'-*: = i" " - 

- r •• 

Private Sub Hand!ePafantet*f$(ByVal Paraml As String, ByVal Paraml Value As 
String, ByVal Para m2 As Sljftng, ByVal Parani2VaJue As String, ByVal Param3 As 
String, ByVal Param3Vaiud As'String) 

1 Hiin thjba tham s# ' 0 1 ^ ^ 

IblPrml.Text * Paraml ‘ 

txtPrml .Text = Paraml Value 
lblPrm2.Text = Param2 
txtPrm2.Text ± Parain2Value 
lblPrm3.Text = Param3 
txtPrm3.Text = Param3Value 
HandleParameterDisplay(3) 

End Sub 

Private Sub HandleParameterDisplay(ByVal intCount As Integer) 

* Hiin thj ho$c in cac Label tham s6 va TextBox dUa tren so tham sd' 

IblPrml .Visible = (intCount > 0) 
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txtPrml .Visible = (intCount > 0) 
lblPrm2.Visible = (intCount > 1) 
txtPrm2. Visible = (intCount > 1) 
lblPrm3.Visible = (intCount > 2) 
txtPrm3. Visible = (intCount > 2) 

End Sub 

Private Sub HandleResultsLabel(ByVal MethodName As String) 
SetResultsLabel(‘Sample a , MethodName, Nothing) 

End Sub 

Private Sub HandleResultsLabel(ByVal MethodName As String, ByVal Paraml As 
String) 

SetResultsLabelfSample”, MethodName, Paraml) 

End Sub 

Private Sub HandleResultsLabelfByVal MethodName As String, ByVal Paraml As 
String, ByVaf Param2 As String) 

SetResultsLabel(*Sample\ MethodName, Paraml & \ * & Param2) 

End Sub 

, "• • ' S.I .■ 

Private Sub HandleResultsLabeljSyV&iMethodNameString, ByVal Paraml As 
String, ByVal Param2 As String, feyVal Paiam3As String) 

SetResuitsLabelfSampleC MethodName, Paraml & “ & Param2 & " & 

Param3) 

r ■ i r. \'jb 1 ! 

End Sub , , ■ . L ■ 


Private Sub HandleSharedResuttsLabel(ByVal MethodName As String) 
SetResultsLabelfString*. MethodName, Nothing) 

End Sub 

Private Sub HandleSharedResu!tsLabei(ByVal MethodName As String, ByVal 
Paraml As String) 

SetResultsLabel(“String', MethodName. Paraml) 

End Sub 

Private Sub HandleSharedResultsLabel(ByVal MethodName As String, ByVal 
Paraml As String, ByVal Param2 As String) 

SetResultsLabel('String*, MethodName, Paraml & ", * & Param2) 

End Sub 
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Private Sub HandleSharedResultsLabel(ByVal MethodName As String, ByVal 
Paraml As String, 6yVal Param2 As String, ByVal Param3 As String) 
SetResultsLabel("String\ MethodName, Paraml & * & Param2 & * & 

Param3) 

End Sub 

Private Sub Recalc() 

Dim strSample As String 
Dim strParaml As String 
Dim strParam2 As String 
Dim strParam3 As String 

Try 

Select Case sm 

Case SeiectedMethod.Compare 
If strParam3 <> String.Empty Then 

HandleSharedResultsLabel("Compare“, AddQuotes(strParaml), _ 

AddQuotes(strParam2), strParam3) 
IbIResults.Text = String.Compare(strParam1, strParam2, _ 

CBool(strParam3)).ToString 

Else 

HandleSharedResultsLabelfCompare", AddQuotes(strParaml), _ 

AddQuotes(strParam2)) 

IbIResults.Text = String.Compare(strParam1, strParam2).ToString 
End If 

Case SelectedMethod.CompareOrdinal 

HandleSharedResultsLabel("CompareOrdinar, AddQuotes(strParaml)) 
IbIResults.Text = String.CompareOrdinal(strParam1, strParam2).ToString 

Case SelectedMethod.Concat 

HandleSharedResultsLabel(“Concat“, AddQuotes(strParaml), _ 

AddQuotes(strParam2), AddQuotes{strParam3)) 
IbIResults.Text = String.Concat(strParam1, strParam2, strParamS) 

Case SelectedMethod.EndsWith 

HandleResultsLabel(*EndsWith“, AddQuotes(strParam1)) 

' EndsWith tri vS mdt gii trj boolean - chuyin sang m$t chuSi 
IbIResults.Text = strSample.EndsWith(strParam1).ToString 


= txtSample.Text 
= txtPrml.Text.TrimEnd 
= txtPrm2.Text.TrimEnd 
= txtPrm3.Text.Trim End 




54 


- Coding Technique 


Case SelectedMdthod.Format 

HandleSharedResultsLabefCFormat", AddQuotes(strParam1), 

strParam2, strParam3) 

IbIResults.Text = String.Format(strParam 1, Clnt(strParam2), _ 

CDbl(strParam3)) 


Case Selected Method. IndexOf 
If strParaml <> String.Empty Then 

If strParam2 <> String.Empty And strParam3 <> String.Empty Then 
HandleResultsLabelflndexOf', AddQuotes{strParam1), _ 

strParam2, strParam3) 

IbIResults.Text = strSample.lndexOf(strParam1, Clnt(strParam2), _ 

Clnt(strParam3)) ToString 

Elself strPararrj2 <> String.Empty Then 

HandleResultsLabel('lndexOf", AddQuotes(strPararnl), strParam2) 
IbIResults.Text = strSample.lndexOf(strParam1, _ 

Clnt(strParam2)).ToString 

Else 

HandleResultsLabeipndexOf', AddQuotes(strParam 1)) 
IbIResults.Text = strSample.lndexOf(strParaml).ToString 
End If 
End If 


Case SefectedMethod.IndexOfAny 
If strParaml <> String.Empty Then 

. If strParam2 <> String.Empty And strParam3 <> String.Empty Then 
HandleResultsLabeipndexOfAny", AddQuotes(strParaml), _ 

strParam2, strParam3) 

IbIResults.Text = strSample.IndexOfAnyfstrParaml ToCharArray, _ 
Clnt(strParam2), Clnt(strParam3)).ToString 
Elself strParam2 <> StringlEmpty Then 

HandleResultsLabel(“lndexOfAny M , AddQuotes(strParam1), _ 

strParam2) 

IbIResults.Text^ strSample.IndexOfAny(strParam1 ToCharArray, _ 

Clnt(strParam2)).ToString 

Else 

HandleResultsLabel(“lndexOfAny", AddQuotes(strParam1)) 
IbIResults.Text = _ 

strSample. lndexOfAny(strParam1 .ToCharArray).ToString 

End If 


End If 
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Case SelectedMethod.lnsert 

HandteResultsLabefnnsert’, strParaml, AddQuotes(strParam2)) 
IbIResults.Text = strSample.lnsert(Clnt(strParam1), strParam2) 

Case SefectedMethotfiJoin 

' Doan code n&y nhin mdt danh sdch cac gid trj each 
' nhau bintj d£u phiy. 

HandleResultsLabel("Join“, strParaml, AddQuotes(strParam2)) 

Dim astrValues() As String 

astrValues = strParam2.Split(", MoCharArray) 

IbIResults.Text = String.Join(strParam1, astrValues) 

Case SelectedMethod.LastlndexOf 
If strParaml <> String.Empty Then 

If strParam2 <> String.Empty And strParam3 <> String.Empty Then 
HandleResultsLabelfLastlndexOf", AddQuotes(strParam1), _ 

strParam2, strParam3) 

IbIResults.Text = strSample.LastlndexOf(strParam1, _ 

Clnt(strParam2), Clnt(strParam3)).ToString 
Elself strParam2 <> String.Empty Then 

HandleResultsLabel(“LastlndexOf“, AddQuotes(strParam1), _ 

strParam2) 

IbIResults.Text = strSample.LastlndexOf(strParam1, _ 

Clnt(strParam2)).ToString 

Else 

HandleResultsLabelfLastlndexOf", AddQuotes(strParaml)) 
IbIResults.Text = strSample.LastlndexOf(strParam1).ToString 
End If 
End If 

Case SelectedMethod.LastlndexOf Any 
If strParaml <> String.Empty Then 

If strParam2 <> String.Empty And strParam3 <> String.Empty Then 
HandleResultsLabelfLastlndexOfAnyV AddQuotes(strParaml), _ 
strParam2, strParam3) 

IbIResults.Text = trSample.LastlndexOfAny(_ 

strParaml.ToCharArray, Clrvt(strParam2), _ 
Clnt(strParam3)).ToString 
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Elself strParam2 <> String.Empty Then 

HandleResultsLabelfLastlndexOfAny - , AddQuotes(strParaml), _ 

strParam2) 

IbIResults.Text = strSample.LastlndexOfAny(_ 

strParaml.ToCharArray, Clnt(strParam2)).ToString 

Else 

HandleResultsLabelfLastlndexOfAny', AddQuotes(strParam1)) 
IbIResults.Text = strSample.LastlndexOfAny(_ 

strParaml .ToCharArray),ToString 
End If - 

End If 

Case SelectedMethod.PadLeft ■ 

* 

If strParam2 = String.Empty Then 

' N6u khdng c6 thaiji s6 thCl hai, String. PadLat si? dying 
‘kf ttfkho&ng tring 

HandleResuttstabeK'PadLeft", strParaml) 

IbIResults.Text = strSample.PadLeft(Clnt(strParam1)) 

Else • -. ■ 

Hand leResultsLabelCPadLeft', strParaml. AddQuotes(strParam2)) 
IbIResults.Text = strSampte.PadLet^CfnttetfParaml), _ 

CChar(strParam2)) 

End If y • : V 

Case SelectedMethod.PadRight 

* N&u khdng c6 tham s6 thut hai, String. PadRight sCf dung 
‘ ky ti/ khoing tring 

If strParam2 = String.Empty Then - 1 1 

HandleResultsLabel(*PadRight\ strParaml) 

IbIResults.Text = strSample.PadRight(Clnt(strParam1)) 

Else 

HandleResultsLabel{*PadRight\ strParaml. AddQuotes(strParam2)) 
IbIResults.Text = strSample.PadRight(Clnt(strParam1), _ 

CChar(strParam2)) 

End If 

Case SelectedMethod.Remove 

HandleResultsLabel(“Remove*. strParaml, strParam2) 

IbIResults.Text = strSample.Remove(Clnt(strParam1), Clnt(strParam2)) 
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Case SelectedMethod.Replace 

HandleResultsLabel('Replace*, AddQuotes(strParaml), _ 

AddQuotes(strParam2)) 

IbIResults.Text = strSampie.Replace(strParam1, strParam2) 

Case SelectedMethod.Split 

* Hi£n thi mdt ming chudi, di/pc djnh dgng nhtf sau: 

‘ {"item 1 ”, " item2", n item3"} 

' Vi dy ndy sCf dyng phUdng thtfc Join v£ Split 
If strParam2 = String.Empty Then 

HandleResultsLabelfSplit*, AddQuotes(strParamt)) 

IbIResults.Text = T & QUOTE & String.Join(QUOTE & & QUOTE, __ 

strSample.Split(strParaml.ToCharArray)) & QUOTE & •}* 

Else 

HandleResultsLabelfSplit’, AddQuotes(strParaml), strParam2) 
IbIResults.Text = & QUOTE & String.Join(QUOTE & Y & QUOTE, _ 

strSample.Split(strParam1.ToCharArray, _ 
Clnt(strParam2))) & QUOTE & 

End If 

Case SelectedMethod.StartsWith 

HandleResultsLabelfStartsWith’, AddQuotes(strParam1)) 

IbIResults.Text = strSarnple.StartsWith(strParam1).ToString 

Case SelectedMethod.Substring 

' N6u d4 trtfng tham s6 tfn3 hai, String. Substring tri v4 tit 
' ci cic ky tij cdn lyi 
If strParam2 » String.Empty Then 

HandleResultsLabelfSubstring", strParaml) 

IbIResults.Text = strSample.Substring(Clnt(strParam1)) 

Else 

HandleResultsLabelf Substring", strParaml, strParam2) 
IbIResults.Text = strSample.Substring(Clnt(strParam1) ) _ 

Clnt(strParam2)) 

End If 1 

Case SelectedMethod.ToLower 
HandleResultsLabelf ToLower") 

IbIResults.Text = strSample.ToLower 
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Case SelectedMethod.ToUpper 
HandleResultsLabel(’ToUpper’) 

IbIResults.Text = strSample.TolIpper 

Case SelectedMethod.Trim 

’ Neu khdng truySn v&o tham s6, Trim m&c djnh /d la bd khoing tr&ng 
If strParaml =, String. Empty Then 
HandleResultsLabel(“Trim") 

IbIResults.Text = strSampte.Tflm() 

Else ! . .. 

HandleResuItsLabel^Trim', AddQuotes(sfrParam1)) 
lblResults.Text *= 3trSempteTrjrn(strParam1.ToCharArray()) 

End If ^ y , 

Case SelectedMetbod.TrimEnd 

1 NS'u khdng c6 thamTrimEnd chlbd kho$ngrir£ng 
If strParamt a String.Empty Then < 

HandleResult&Udsel^riicnEftd'). 

Ibl Results.T ext *■ strSampie.T rim End() 

Else I 

HandfeResultsLabel("TrimEnd', AddQuotes(strParam1)) 
IbIResults.Text = strSample.TTimEnd(strParamt.ToCharArray()) 
End If . i -n». v 5 ■ ‘ 

■ s •• * "■ . j 

Case SelectedMethod.TrimStart 

' Ndu khdng tnjySn tham sd*. TtimStart chl bd khoitng tring 
If strParaml « String.Empty Theh ■; . 

HandleResultsLabel(“TrimStart“) . v - 

IbIResults.Text = strSampfe.TrimStart() 

Else . f , ■■ ir , 

HandleResultsLabeK'TrimStart^ AddQuotes(strParaml)) 
IbIResults.Text = strSample.TrimStart(strParam1 .ToCharArrayO) 
End If 
End Select 

Catch exp As Exception 

' NSu cd Idi xdy ra, hi4n thj thdng tin 
IbIResultsLabel.Text = ’ , «ERROR» , ‘ 

IbIResults.Text = exp.Message 
End Try 
End Sub 
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Private Sub RefreshText{) 
txtSample.Text = mstrSample 
End Sub 


Private Sub SetResultsLabei(ByVal Source As String, ByVal Method As String, 
ByVal Parameters As String) 

IbIResultsLabel.Text = String.Format(“Results of (0}.{1 }({2})‘, Source, Method, 
Parameters) 

End Sub 
End Class 


41. Try - Catch - Finally 


Chifcrng trinh n&y bi£u diin each suf dung c&u true b4t lii mdi trong Visual 
Basic NET: Try - Catch - Finally. 


@jj] T ly-Catch-Finally 


Command To Run ’ - 

No Error Handling 
Basic Eftcw Handing 
Delated Error Handing 


. Test Data'---~ " 

| Text File To Open 
\ |cVno(Je.txt 

Enter a file name & path to test error handling, 
j Try different combinations for example; 


Custom Message 


T ry. Catch, Finely 


C:\nofile.txt 

c:\nodir\nofteM 

\\noservefSnoshareSnofile.txt 


Cac chile nanq chinh: 

Chircfng trinh c6 n&m nut. M6i nut thifc hien mef mot file chi dinh trong 
TextBox co nhan Text File To Open. M6i nut cd mpt kieu b^t I6i khde nhau 
suf dung khoi Try-Catch-Finally, ngoai trir nut co nhan No Error Handing. 

Project: Try-Catch-Finally 

frmMain.vb 

• Option Strict On 

■ Imports System.IO 

■ Public Class frmMain 

Inherits System.Windows.Forms.Form 
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• ' Code phit sinh form dupe bd qua 

* DUa nQi dung vio vin biin bin dudi TextBox tin file 

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 

' Code bin dudi sd dung m$t StringWriter d4 tao mdt chuSi trong bd nhd. 

Dim txt As StringWriter = New StringWriter() 

With txt 

.WriteLine(*Enter a file name & path to test error handling.*) 

.WriteLine("Try different combinations for example:") 

.WriteLlneC") 

.WriteLine(" C:\noffile.txt") 

WriteLine(" c:\nodir\nofile.txt") 

.WriteLine(" \\noeervef\irosHiafe\n6flJe.txt") ' 

End With \ 

' ChySn StringWriter thinh chuSi v& hiin thjnd 
Me.txtMessage.Text = txt.ToStringO : 

End Sub 

; I 

Private Sub cmdNoTryCatch_Click(ByVai sender Ap System.Object, ByVal e As 
System.EventArgs) Handles cmdNoTryCatch.Click 

' Hdi dS bio dim li ngUdi sd dung mu6n chgy chUc ndng niy 
Dim strMsg As String = "The following code has no error handling and will cause 
an unhandled exception if a file is not found. Do you want to continue?" 

If MessageBox.Show(strMsg, Me.Text, MessageBoxButtons.YesNo, _ 

MessageBoxIcon.Question, MessageBoxDefauitButton.Button2) = _ 

DialOgBesult.Yes Then 

' Sd dung class FileStream trong namespcae System. lO 
Dim fs As FileStream 

\ 

’ Linh niy se bi iSi n&u file khdng tin t$i 
fs = File.Open(Me.txtFileName.Text, FileMode.Open) 

MessageBox.Show(’The size of the file is: * & fs.Length, Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 

fs.CloseO 
End If 
End Sub 
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Private Sub cmdBasicTryCatch_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdBasicTryCatch.Click 

* Thu tyc niy tht/c hiin bit l6i vdi kh6i Try-Catch cd bin 
Dim fs As FileStream 

Try 

* Lenh niy se giy ra iSi ni'u file khdng tin tyi 

fs = File.Open(Me.txtFileName.Text, FileMode.Open) 

MessageBox.Show(‘The size of the file is: ’ & fs.Length, Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 

fs.Close() 

Catch exp As Exception 

' Se bit tit ci cic ISi khdng rd ring 

MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, _ 
MessageBoxIcon.Stop) ' 

End Try 
E,nd Sub 

Private Sub cmdDetailedTryCatch_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles cmdDetailedTryCatch.Click 

* ThO tyc niy tht/c hi$n Try-Catch bit cac Idi HSn quan din IO 
Dim fs As FileStream 

Tr y , 

* L$nh niy giy ra fSi n&u file khdng tin tyi 

fs = File. Open<Me.txtFileName. Text, FileMode.Open) 

MessageBox.ShowfThe size of the file is: * & fs,Length, Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 

fs.Close() 

Catch exp As FileNotFoundException 

' Si bit idi khi file yiu ciu khdng tin tyi 
MessageBox.Show(*The file you requested does not exist. 1 , Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon.Stop) 

Catch exp As DirectoryNotFoundException 
' Bit Idi khi thd myc yiu ciu khdng tin tyi 
MessageBox.Show(“The directory you requested does not exist .“, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon.Stop) 
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Private Sub cmdBasicTryCatch_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdBasicTryCatch.Click 
‘ Thu tyc niy tht/c hien bit iSi vc/i kh6i Try-Catch cd bin 
Dim fs As FileStream 
Try 

’ Linh niy se gay ra ISi niu file khdng tin tai 
fs = File.Open(Me.txtFileName.Text, FileMode.Open) 

MessageBox.ShowfThe size of the file is: * & fs.Length, Me.Text, 

MessageBoxButtons.OK, MessageBoxIcon.Information) 

fs.CloseQ 

Catch exp As Exception 

’ Se bit tit ci cac ISi khdng ro ring 

MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, _ 
MessageBoxIcon.Stop) 

End Try 
End Sub 

Private Sub cmdDetailedTryCatch_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles cmdDetailedTryCatch.Click 
* Thu tyc niy tht/c hi$n Try-Catch bit cic ISi HSn quan din tO 
Dim fs As FileStream 

Try , 

* Linh niy giy ra t6i n#u file khdng tin tyi 
fs = File. Open(Me.txtFileName.Text, FileMode.Open) 
MessageBox.ShowfThe size of the file is:" & fs,Length, Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 

fs.Close() 

Catch exp As FileNotFoundException 

‘ Se bit ISi khi Tile yiu ciu khdng tin tyi 
MessageBox.ShowfThe file you requested does not exist/, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon.Stop) 

Catch exp As DirectoryNotFoundException 
' Bit Idi khi thU myc yiu ciu khdng tin tyi 
MessageBox.ShowfThe directory you requested does not exist.*, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon.Stop) 
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Catch exp As iOException 
’ Cac iSi IO chung 

MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, _ 

MessageBoxIcon.Stop) 


Catch exp As Exception 

‘ Bat cac Idi khac ■''' '■ ■ 

MessageBox.Show(exp.Message, Me.Text; MessageBoxButtons.OK, _ 
MessageBoxIcon.Stop) " 

End Try 
End Sub 

Private Sub cmdCustomMessage_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles cmdQustomMessage.Click 
' ThUc hien bat I6i vdi khoi Try-Catch. d£ bit cac l6i IO 
Dim fs As FileStream 

Try 

’ LSnh ndy se giy ra ISi ndu file kh6ng t6n , t$i 
fs = File.Open(Me.txtFneMftme.Te!xt, l FileMode.’Opeh) 

MessageBox.Showf Ttie size ofthefiieis; ■ & fs.Length, Me^Text, _ 

MessageBoxButtons.OK, MessageBdxtdon.Information) 

fs.Close() 

Catch exp As IOException •<■.. •- -v 

' Bit bat ky loi IO nao • • • • 1 .' r..- 

Dim strMsg As String ; >■ s ' < ■’ J ' 

strMsg = "I was unable to open the file you re^dested, * & _ 
Me.txtFileName.Text & vbCrLf & vbCrLf & _ 

"Detailed Error Information below:" & vbCrLf & vbCrLf & _ 

“ Message: "& exp.Message & vbCrLf & i : 

" Source: “ & exp.Source & vbCrLf & vbCrLf & _ 

" Stack Trace:" & vbCrLf 

Dim strStackTrace As String 

' Truy xuat de doi ti/dng StackTree co the gay ra exception vi vay can 
1 d£t doan code trong mot khdi Try-Cath ' 

Try 

strStackTrace = exp.StackTrace() 
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Catch stExp As Security.SecurityException 

strStackTrace = “Unable to access stack trace due to security restrictions.* 

Catch stExp As Exception 

strStackTrace = “Unable to access stack trace/ 

End Try 

strMsg = strMsg & strStackTrace 

MessageBox.Show(strMsg, Me.Text, MessageBoxButtons.OK, _ 
MessageBoxlcon.Stop) 

Catch exp As System. Exception 

’ Catch nay bat tit ci cac loi khdng mong ddi 
MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, _ 
MessageBoxlcon.Stop) 

End Try 
End Sub 

Private Sub cmdTryCatchFinally_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdTryCatchFinally.Click 

* Thu tyc ndy thi/c hi$n mQt khii ca bin Try Catch-Finaity. 

Dim fs As FileStream 

Try 

* L$nh ndy se giy ra (Si niu file khdng tin tai 

fs = File.Open(Me.txtFileName.Text, FileMode.Open) 

MessageBox.ShowfThe size of the file is: “ & fs.Length, Me.Text, _ 

, - . , MessageBoxButtons.OK, MessageBoxIcon.Information) 

Catch exp As Exception 

* Bdt tit ci cic l6i xdy ra 

MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, _ 
MessageBoxlcon.Stop) 

Finally 

1 Niu khdng md file thanh cdng, tham chieu se Id Nothing. 

If Not fs Is Nothing Then 
fs.Close() 
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MessageBox.Show(*File closed successfully in Finally block*, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon.Information) 

End If 
End Try 
End Sub 
End Class 

Phan VIII - Cac chu de cao cap 

42. Da tieu trinh - Multithreading 

Chuang trinh n&y chi cdch suf dung da tidu trinh dl thuc hien nhidu c6ng 
vi$c ddng thdi. Chuang trinh n&y khdng c6 ddng bg, bdi vi kh6ng c6 dur li£u 
duac xuf ly bdi nhi&u ti&i trinh. 



Chuang trinh n&y cho phdp l&m nhidu cdng vi$c trdn cdc ti£u trinh khdc 
nhau. Nut ddu tidn thuc hi§n cdng vigc trong ciing ti&i trinh vdi ting dung, 
ngudi suf dung khdng th£ tuong t&c vdi form chfnh cho dd'n khi cdng vi£c kdt 
thuc. 

Ntit thuf hai vh ndt thuf ba thuc hi$n cdng vi$c trong c&c ti$u trinh khdc,. 
cho phdp ngudi suf dung tidp tuc tuong tdc vdi form. Nut thuf hai thuc hi$n 
cdng vi§c tif m$t ti£u trinh trong ufng dung (worker pool). V& nut thuf ba tao 
mot ti£u trinh Win32 mdi v& thuc hign cdng vi$c trong n6. 

Bdi vi vigc debug cdc chuang trinh Multithreading rift phurc tap, ndn cdc 
thuOc tinh DebuggerStepThrough dugc dp dung tai cdc diim c6 suf dung 
nhi£u tilu trinh dl bd qua debug. 
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Project: Da tieu trinh - Multithreading 

frmTaskProgress.vb 

Option Strict On 

Public Class frmTaskProgress 

Inherits System.Windows.Forms.Form 

' Code phat sinh form di/oc bd qua 

Private Sub frmTaskProgress_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
'Hiin thj ID cua Mu trinh gqi form nay 

Me.lblThreadlD.Text &= CStr(AppDomain.GetCurrentThreadldO) 

End Sub 
End Class 

frmMain.vb 

Option Strict On 

Imports System .Threading ‘ Namespce chula class Thread 

Public Class frmMain 

Inherits System .Windows .Forms .Form 

' Code phit sinh form di/pc bd qua 

’ ^ri. • V V ' - - 

Private Sub frmMain_Load(ByVal sender As System.Object, _ 

ByVal e As SystermEventArgs) _ 

Handiest MyBase.Load 
' HiSn thj *) Mu trinh chfnh cua ting dyng 

IbIThreadlO.Text &= CStr(AppDomain.GetCurrentThreadld()) 

End Sub 

Private Sub cmdSameThread_Click(ByVal sender As System.Object, _ 

ByVal e As System.EventArgs) _ 

Handles cmdSameThread.Click 

' Thi/c hiin cing vi$c trong cung mdt Mu trinh quin ly cCta s6 frmMain 
TheLongRunningTask() 

End Sub 
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1 Di chay Ling dung trong mdt tieu trinh worker pool, sti dung mot ham uy quyen. 
Delegate Sub TaskDelegate() 

<DebuggerStepThrough()> Private Sub cmdWorkerPoolThread_Click( _ 

ByVal sender As System.Object, _ 

ByVal e As System.EventArgs) _ 

Handles cmdWorkerPoolThread,Click 
' De thuc hien cong vide trong mdt tiSu trinh worker pool, t$o mot instance 
' cua mot ham uy quyen, sau do goi Beginlnvoke trSn uy quyen do 
Dim td As New TaskDelegate(AddressOf TheLongRunningTask) 
td.Beginlnvoke(Nothing, Nothing) 

End Sub 

<DebuggerStepThrough()> Private Sub cmdRunOnNewWin32Thread_Click( _ 
ByVal sender As System.Object, _ 

ByVal e As System.EventArgs) _ 

Handles cmdRunOnNewWin32Thread.Click 
' De thuc hien cong viec trong mot tieu trinh mdi cua h§ dieu hanh, 

' tao mot instance mdi cua tieu trinh quan ly cong viec. 

' Tao mdi mot tieu trinh 

Dim t As New Thread(AddressOf TheLongRunningTask) 

' Bit dau thuc hien tieu trinh mdi 
t.Start() 

End Sub 

<DebuggerStepThrough()> Private Sub TheLongRunningTask() 

' Phuong thUc nay gia lap mot edng viec ton nhieu thdi gian. De dai dien cho 
' edng viec dang dUdc thqc hi$n, mot form vdi mot thanh progress se hien thj 
’ trong qua trinh thuc hien. Sau khi hoan tat edng viec form tU dong lai. 

Dim f As New frmTaskProgress() 

f.ShowQ 

f.Refresh() 

' Tang din thanh progress 
Dim i As Integer 
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Fori= 1 To 10 

f prgTaskProgress.Value += 10 
' Dpi nufa giay 

Thread. CurrentThread.Sleep(500) 

Next 

' D6ng form sau khi ho&n t£t c6ng vi§c 
f.HideQ 
f.Dispose() 

End Sub 
End Class 

43. TCP Remoting 

Vi du n&y duac thiet ke d£ chi cdch sd dung kidn trtic .NET Remoting suf 
dung ba ki4u dtfi ttftfng ttf xa. Ngo&i r&, ni3 stir dung cdb file efi'u hinh XML dl 
chi rd cdc doi ti/dng vik thdng tin server thay vi difa chung vho code hay d£ 
trong registry. 


IIH] Remoting - Client 


SHDil 

■ Client Activated ot Singleton ' 

- ■■ Input Data- 

- __ 

r ■ -- ■ 

Default Name 

John Smith 

C ■ 

, Default Age 

30 


i j New Name 

j Julie Smith : 

Get Current Values 

New Age 

| 29 

Update Values 

Updated Get Values 

: r" Single Call - —-.- 

Update & Get Values j 

Get Debug Data 

Single Call Debug Data | 

Release Instance 

|.! 


.-.- 


-.-. ; 


Customer Name is John Smith. Customer Age is 30 
Update using properties successful! 

Customer Name is Julie Smith. Customer Age is 29 


Cleat List 
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Cac chufc nana chinh: 

Vi du ndy chtfa 3 solution: 

> Remoting - Server 

> Remoting - Host 

> Remoting - Client 

M6i solution chtfa mpt project. 

Mot trong edc project (RemoteCustomer) Id m$t Class Library cung c&p ba 
kieu doi ttfgng cd th€ tao: 

> Customer (client activated) 

> SingleCallCustomer (WellKnown singlecall) 

> SingleonCustomer (WellKnown singleon) 

Host Project chtfa mot ting dung Windows Forms doc file cdu hinh XML c6 
ten Host.exe.config de ldm cho cdc class dd dinh nghia trong project 
RemoteCustomer s&n sdng phuc vu. 

Client project cung c6 mot tfng dung Windows Forms. N6 nhd vdo file cdu 
hinh c6 ten Client.exe.config dd biet noi cdn tim cdc dd'i ttfdng tif xa. 

Trtfdc khi chay tfng dung, cdn build cd ba project. Build theo thtf ttf sau: 

> RemoteCustomer 

> Host 

> Client 

Khi da build thdnh cdng, chay tfn dung Host trtfdc d£ bdo ddm cdc dtfi 
ttfong sdn sdng phuc vu tit xa. Tidp theo chay Client. 

Neu mudn chay thtf trdn hai mdy, cln thay ddi file cdu hinh .config cua 
client, dd’i localhost thdnh dia chi IP hodc tdn DNS cua mdy server. Ngodi ra, 
cdn thay d6i file cdu hinh cua server neu muddi thay dtfi (so) cong TCP. 

Project (Class Library): RemoteCustomer 

Customers b 

■ Option Strict On 
Namespace RemotingSample 

Public Class Customer: Inherits MarshalByRefObject 

' Cac bien Private d£ k/u cac gia trj thuoc tinh cua Customer 
Private m_Age As Byte = 0 
Private m_Name As String = “«Uninitialized»’ 
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' Biin Private di Itfu thdi gian object instance dUQc t$o 
Private Readonly mdteCreationTime As DateTime = Date.Now 
’ Constructor mac nhiin khdng co d6i s6 
Public Sub New() 

MyBase.New() 

End Sub 

* ' r 

* Constructor cd tham s6 chi dUqfc gdi bdi c&c Client Activated Object 
Public Sub New(ByVal NewName As String, ByVal NewAge As Byte) 
Me.Name = NewName 
Me. Age = NewAge 
End Sub 

' C&i d$t cho thuQc tJnh Age 
Public Property Age() As Byte 
Get 

Return m_Age ; 

End Get ■ ! rV-., v r . 

-• ■ '■ -A 

Set(By Val Value A» Byte) 

If Value > 0 Then 
m_Age = Value 
Else 

m_Age = 0 

End If . .... r . •. 

End Set < 

End Property . 

' C&i d$t thuQc tinh Name 
Public Property Name() As String 
Get 

Return m_Name 
End Get 

Set(ByVal Value As String) 
m_Name = Value 
End Set 
End Property 
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* Tri v4 Customer Name vi Age trong mdt chuSi 
Public Function GetCustomerlnfo() As String 

Return String.FormatfCustomer Name is {0}. Customer Age is {1}’, _ 
Me.Name, Me.Age) 

End Function 


* Chip nhan thay doi Name & Age vi tri v4 cac gia tri trong mdt chuSi 

Public Function UpdateCustomerlnfo(ByVal NewName As String, ByVal NewAge 
As Byte) As String 

* Cip nhat cac thu$c tinh cue bd 
Me.Name = NewName 
Me. Age = NewAge 

' Tht/c hidn edng vi$c chlnh d diy, vi dp nhU c$p nh$t database 
Return String.FormatfCustomer Name is {0}. Customer Age Is {t}\ J> 

Me.Name, Me.Age) - i if 

End Function ^ 

s , . r- ■> ■ 

' Tri v4 ngiy vi thdi gian dupe t$o cuaddi tt/Qng hi$n hinh • •> 7- 

Public Readonly Property DebugCreationTimeO As DateTime 

Get f-*. .-■*/. on" C ■>>■■■ ■ 

Return mdteCreatiodTime ^ c . . j. . ; 

End Get . . / >\ , 

End Property 

* Tri v4 tin miy ttnh eda d6i tdpng dang chpy trin nd 
Public Readonly Property DebtygHostName() As String 

Get 

Return System.Environment.MachineName 
End Get 
End Property 
End Class 
End Namespace 

SingleCallCustomer.vb 

Option Strict On 
Namespace RemotingSample 
Public Class SingleCallCustomer 
Inherits MarshalByRefObject 
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Private m_Age As Byte = 0 

Private m_Name As String = "«Uninitialized»“ 

Private Readonly mdteCreationTime As DateTime = Date.Now 
Public Sub New() 

MyBase.New() 

End Sub 

Public Property Age() As Byte 
Get 

Return m_Age 
End Get 

Set(ByVai Value As Byte) 

If Value > 0 Then 
m_Age = Value 
Else 

m_Age = 0 
End If 
End Set 
End Property 

Public Property Name() As String 
Get 

Return m_Name 
End Get 

Set(ByVai Value As String) 
m_Name = Value 
End Set 
End Property 

Public Function UpdateCustomerlnfo(ByVal NewName As String, ByVal NewAge 
As Byte) As String 

Me.Name = NewName 
Me.Age = NewAge 

Return String.FormatCCustomer Name is {0}. Customer Age is {1}*, _ 

Me.Name, Me.Age) 

End Function 
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Public Readonly Property DebugCreationTime() As DateTime 
Get 

Return mdteCreationTime 
End Get 
End Property 

Public Readonly Property DebugHostNameQ As String 
Get 

Return System.Environment.MachineName 
End Get 
End Property 
End Class 
End Namespace 


SingletonCustomer.vb 

Option Strict On 
Namespace RemotingSample 
Public Class SingletonCustomer 
Inherits MarshalByRefObject 
Implements (Disposable 
Private m_Age As Byte = 0 
Private m_Name As String ='«Un in itial«ed>>■ 
Private Readonly mdteCreatkmTime As DateTime 
' Bi£n d4 Itfu s6 ngi/di sCf dyng dd kfrttdS vAo 
Private m_Connected As Integer 

Public Sub New() 

MyBase.New() 

End Sub 




Public Sub NewClient() 

‘ C$p nhit s6 ngtJdi sit dicing da k&t n<3? 
m_Connected += 1 
End Sub 



Public Property Age() As Byte 
Get 

Return m_Age 
End Get 
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Set(ByVal Value As Byte) 

If Value > 0 Then 
m_Age = Value 
Else 

m_Age = 0 
End If 
End Set 
End Properly 

Public Property Name() As String 
Get 

Return m_Name 

End Get . ' : , r . . ^ 

Set(ByVal Value As String) 
m_Name = Value 
End Set 
End Property 

Public Function GetCustomerlnfoO As String 

Return String.FormatfCustomer Name is {0}. Customer Age is {1}", _ 

Me.Name, Me.Age) 

End Function 

Public Function UpdateCustomerlnfo(ByVal NewName As String, ByVal NewAge 
As Byte) As String 

Me.Name = NewName 
Me.Age = NewAge 

Return String.Format('Customer Name is {0}, Customer Age is {1}", _ 

Me.Name, Me.Age) 

End Function 

Public Readonly Property DebugCreationTime() As DateTime 
Get 

Return mdteCreationTime 
End Get 
End Property 
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Public Readonly Property DebugHostName() As String 
Get 

Return System.Environment.MachineName 
End Get 
End Property 

' Trk ve so client hi$n hknh kit nd’i vko dii tUq)ng nay 
Public Readonly Property Connected() As Integer 
Get 

Return m_Connected 
End Get 
End Property 

Public Sub Dispose() Implements System.IDisposable.Dispose 
' Khi m<5t client chim dirt sil d^ng, giim biin dim 
m_Connected -= 1 
End Sub 
End Class 
End Namespace 

Project: Host 

References: RemoteCustomer.dll (dtfdc bi6n dich ttr project tr£n) 

B£ cho client 'load' eke doi tifcrng, n6 doc file Host.exe.config khi bdt diu 
chuTcrng trinh. Chdrtng trinh nky gik dinh file nky n&m trong cCing thtf muc 
vdi file .exe. Noi dung file nky difdc lull trong file app.coniig n&m d thir muc 
chufa source. Trtfdc khi bien dich, ch4p file nky vko thir muc chtfa file .exe vdi 
ten mdi Ik Host.exe.config. 

app.config 

<configuration> 

■ <system. runtime. remoting> 

<application> 

<service> 

<activated type="RemotingSample.Customer,RemoteCustomer7> 

<wellknown 

type="RemotingSample.SingleCallCustomer,RemoteCustomer" 

objectUri= H Sing!eCallCustomer" 

mode="SingleCall“ 
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/> 

<wellknown 

type="RemotingSampie.SingletonCustomer,RemoteCustomer" 

objectUri=*SingletonCustomer" 

mode='Singleton" 

/> 

</service> 

<channels> 

<channel ref="tcp" port=‘8080"> 

<serverProviders> 

<formatter ref='binary"/> 

</serverProviders> 

</channel> 

</channels> 

<!-- 

Below is an example of using a different port. 

—> 

<!— 

<channe!$> 

cchannel ref="tcp" port="9090"> 

<serverProviders> 

<formatter ref=*binary7> 

</serverProviders> 

</channel> 

</channels> 

—> 

</application> 

</system.runtime. remoting> 

</configuration> 

frmMain.vb 

Option Strict On 

Imports System.10 , 

Imports System.Runtime.Remoting 

Public Class frmMain 

Inherits System.Windows.Forms.Form 
' Code phat sinh form dupe bo qua 
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' Him niy duyet qua t4t ci cac ki£u ClientActivatedService mi dupe toad 
' thdng qua RemotingConfiguration.Configure(Remoting.config) 

Private Sub ListClientActivatedServiceTypesO 
D‘\m en\ry As ActivatedServiceT ypeEntry 

For Each entry In RemotingConfiguration. GetRegisteredActivatedServiceTypes() 
Me.lstOutput.ltems.Add(‘Registered ActivatedServiceType: " & _ 

entry.TypeName) 

Next 
End Sub 

' Him niy duyit qua tSt ci cac ki£u WellKnownService mi duqc load thdng 
' qua RemotingConfiguration.Configure(Remoting.config) 

Private Sub ListWellKnownServiceTypesO 
Dim entry As WellKnownServiceTypeEntry 
For Each entry In _ 

RemotingConfiguration.GetRegisteredWellKnownServiceTypes() 
Me.lstOutput.ltems.Add(entry.TypeName & " is available at" & entry.ObjectUri) 
Next 
End Sub 

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 
Try 

' Dqc file Host.exe.config 

‘ G<?i RemotingConfiguration. Configure d<?c file ciu h)nh (xml) vi 64 ki4n true 
' remoting biet nhCing ki4u nio se torn cho sin sing phyc vu 
Me.IstOutput.Items.AddfLoading Activated Configuration File*) 

RemotingConfiguration. ConfigureOHost.exe.config*) 

’ Sau khi load file remoting.config, Hit ki danh sach cic ki4u ClientActivated 
' vi cac kiSu WetlKnown vio ListBox trin form 
Me.ListClientActivatedServiceTypesQ 
Me.ListWellKnownServiceTypesO 

Catch exp As Exception 
' Bit l6i tong quat 
Dim txt As String 
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txt = 'I was unable to load the file remoting.config or it is not in the correct 
format." & vbCrLf & _ 

"Please make sure it is located in the same directory as this exe " & _ 

" and that it is in the correct format." & vbCrLf & vbCrLf & _ 

“Detailed Error Information below:" & vbCrLf & vbCrLf & _ 

" Message: “ & exp.Message & vbCrLf & _ 

" Source:" & exp.Source & vbCrLf & vbCrLf & _ 

■ Stack Trace:" & vbCrLf & _ 
exp.StackTrace 

MessageBox.Show(txt, "Generic Exception", MessageBoxButtons.OK, 
MessageBoxIcon.Stop) ■ 

Me.lstOutput.ltems.Add(‘Unabled to load objects.") 

End Try 

End Sub 
End Class 

Project: Client 

References: RemoteCustomer.dll 

app.conflg 

<configuration> 

<system. runtime. remoting> 

<application> 

<client url="tcp://localhost:8080*> 

<activated type="RemotingSample.Customer,RemoteCustomer"/> 

<wellknown type=‘RemotingSample.SingleCallCustomer 1 RemoteCustomer" 
url=‘tcp://localhost:8080/SingleCallCustomer" /> 

<wellknown type="RemotingSample.SingietonCustomer,RemoteCustomer" 
url=*tcp://localhost:8080/SingletonCustomer" /> 

</client> 

<!— 

Below is an example using a DNS Entry with a different port. 

You will need to uncomment the block to use it (as well as 
comment the above block). 

--> 


<!-- <client url='tcp://www.myserver.com:9090"> 
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<activated typess M RemotingSample.Customer,RemoteCustomer7> 

<wellknown type="R©motingSample.SingleCallCustomer,RemoteCustomef J ' 
url="tcp://www.myserver.ooni:9090/SingleCallCustomer* /> 

<wellknown type="RemotingSample.SingletonCustonr»er,RernoteCiJStorner* 
url=*tcp:/A«ww.mysa.rve/.com:j9|090/SingletooCusli(^©r'/>, • 


</client> 


</application> 

■ </system.runtime.rembting> 
</configuration> 

frmMain.vb 

Option Strict On 

Imports System.Runtime.Remoting L 
• Imports RemotingSample 


. £ ■ & '.; : 1 ' : 8 . :■?- 
. i'S'e U"-' 


V\ 


•* r. -3i>* . V 1 •til -*U- - 

0 T'i i * 

' T '- \ 

1 - " * ./ ; ’ ( r;, r ■' V ,: ‘ . 

\ f TixT|fc\ j ■■■ 




,y C# 


■ Public Class frmMain 

Inherits System.Windows.Forms.Form 

■ ’ Code phat sinh form dupe bd qua 

' Sit dung de tham chieu dS’n mdt kiSu Client Activated 
Private mCustomer As Customer 



' BiSh nay dude sit dung khi mudn nhiSu clients ktft n6i v&o cOng m$t 
' object instance tren server , 4 

X : " ■ -' A 1 r: ‘ 

Private mSCustomer As SingletonCustomer 


Top-, o^t 1 
•in? -■ '■. i\ f u v 


Private Sub SetCtlState(ByVai NewState As Boolean) 
' Enable nut Create 

Me.cmdCreate.Enabled = NewState , 

' Disable cac nut khac 
Me.cmdGet.Enabled = (Not NewState) 

Me.cmdUpdate.Enabled = (Not NewState) 

Me.cmdUpdateAndGet.Enabled = (Not NewState) 
Me.cmdDebugData.Enabled = (Not NewState) 

Me.cmdRelease.Enabled = (Not NewState) 
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' Quy dmh cac radio button 
Me.rbClient.Enabled = NewState 
Me.rbSingle.Enabled = NewState 
End Sub 

Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdClear.Click 

' X6a dd liiu trong listbox 
Me.lstResponses. Items.Clear() 

End Sub 

Private Sub cmdCreate_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdCreate.Click 
Dim txt As String 

Try, ,, s 

Dim objNotCreated As Boolean = False 

If Me.rbClient.Checked = True Then 
' SO dung Client Activated Type 

' Chu y Id land New nay co the truyen vao cac tham s6' cho Constructor 
mCustojn^er = Rew Customer(Me.lblDefNameValue.Text, _ 

CByte(Me.lblDefAgeValue.T ext)) 
objNotCreated = (mCustomer Is Nothing) 

Else 

v ' SO dyng Server Activated Type 

' Khdng th£ truySn tham s6 vdo constructor trong tri/dng hgp ndy. 

’ Bdi v) server tgo instance vd Idm cho no sin sdng phuc vu, ta chi cin c6 
' mQt tham chi&u den instance dang chgy thdng qua mdt trung gian (proxy). 
Dim args() As Object 

mSCustomer = CType(ActivatorXreatelnstance(_ 

GetType(RemotingSample.SmgletonCustomer), args), _ 
RemotingSample.SIngletonCUstomer) 

mSCustomer.NewClientO 
objNotCreated = (mSCustomer Is Nothing) 

End If 

' Thay d6i trang thai cac nut 
SetCtlState(objNotCreated) 




380 


- Coding Techniques! - 


Catch exp As RemotingException 
’ Bit cac exception Remoting 

txt = “I was unable to access the remote customer object.* & vbCrLf & _ 
"Detailed Error Information below:" & vbCrLf & vbCrLf & _ 

" Message: * & exp.Message & vbCrLf & _ 

* Source:" & exp.Source & vbCrLf & vbCrLf & _ 

" Stack Trace:" & vbCrLf & _ 
exp.StackTrace() 

i 

MessageBox.Show(txt, "Remoting Exception", MessageBoxButtons.OK, 
MessageBoxIcon.Stop) 

Catch exp As System.Net.Sockets.SocketException 
' Bit cic exception Socket 

txt = "I was unable to access the remote customer object." & vbCrLf & _ 
“Is it possible the server is not running?" & vbCrLf & vbCrLf & _ 
"Detailed Error Information below:" & vbCrLf & vbCrLf & _ 

* Message: “ & exp.Message & vbCrLf & _ 

“ Source: * & exp.Source & vbCrLf & _ 

“ Error Code: " & exp.ErrorCode.ToStringO & vbCrLf & _ 

" Native Error Code: " & exp.NativeErrorCode.ToString() & vbCrLf & _ 

* Stack Trace:" & vbCrLf & _ 
exp. StackTrace 

MessageBox.Show(txt, "Socket Exception", MessageBoxButtons.OK, _ 
MessageBoxIcon.Stop) 

Catch exp As Exception 
' Bit iSi t6ng quit 

txt = ‘I was unable to access the remote customer object." & vbCrLf & _ 
“Detailed Error Information below:" & vbCrLf & vbCrLf & _ 

" Message: ‘ & exp.Message & vbCrLf & _ 

" Source: * & exp.Source & vbCrLf & vbCrLf & _ 

" Stack Trace:" & vbCrLf & _ 
exp. StackT race 

MessageBox.Show(txt, ‘Generic Exception", MessageBoxButtons.OK, 
MessageBoxIcon.Stop) 

End Try 
End Sub 




Private Sub cmdD6bugData_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdDebugData.Click 
' L£y dQ li$u kiim tra tti kiiu Client Activated 

If ((Not mCustomer Is Nothing) Or (Not mSCustomer Is Nothing)) Then 
Try 

If Me.rbClient.Checked = True Then 
With Me.lstResponses.Items 
.AddCDebug data follows:’) 

.Add(String.Formats Creation Time: {0}’, _ 

mCustomer.DebugCreationTime.ToString)) 
.Add(String.Formate Remote Host Name: {0}’, _ 

mCustomer.DebugHostName)) 

.Add(’End Debug Data") 

End With 
Else 

With Me.lstResponses.Items 
.Add(“Debug data follows:") 

.Add(String.Formate Creation Time: {0}\ _ 

mSCustomer. DebugCreationTime.ToString)) 
.Add(String.Formate Remote Host Name: {0}", _ 

mSCustomer. DebugHostName)) 

.Add(String.Formate Number of connected clients: {0}*, _ 
mSCustomer. Connected.ToStringO)) 
.Add(‘End Debug Data") 

End With 
End If 

Catch exp As Exception 
' Bit iSi ttfng quat 
Dim txt As String 

-txt = "I was unable to access the remote customer object." & vbCrLf & _ 
“Detailed Error Information below:" & vbCrLf & vbCrLf & _ 

’ Message:" & exp.Message & vbCrLf & _ 

• Source: “& exp.Source & vbCrLf & vbCrLf & " Stack Trace." & vbCrLf & 
exp.StackTrace 

1 MessageBox.Show(txt, "Generic Exception", MessageBoxButtons.OK, _ 
MessageBoxIcon.Stop) 

End Try 
End If 
End Sub 
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Private Sub cmdGet_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdGetjClicl$ 

' Ydu ciu server dO liSu cua customer 
Try - ■ • 

If Me.rbClientChecked = True Then 
Me.lstResponses.ltems.Add(m€ustomer.GetCustomerlnfo()) 

Else 

Me.lstResponses.Items. Add(mSCuetom«rjGetCustomerlnfo()) 

End If • , 

Catch exp As Exception v . .- 

Dim txt As,String .4 * '■: > 

txt = *1 was unable to access the remote eustomer object.' & vbCrLf & . 
"Detailed Error Information below;* & vbCrLf & vbCrLf & _ 

" Message; ‘ & exp.Message & vbCrLf & _ 

" Source:" & exp.Source & vbCrLf A vbCrLf ft _ 

" Stack Trace:" & vbCrLf & _ 10 

exp.StackTrace . i.-j\ < «' 

MessageBox.Show(txt, "Generic Exception'’-, MessageBoxButtons.OK, 
MessageBoxIcon.Stop) . * . 

• •:> . !• . 

End Try ... >; 

End Sub 

Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdUpdate.Click 

* Cap nh$t di7 li$u trSn Server si7 dung cac thudc tinh public 
If {(Not mCustomer Is Nothing) Or (Not mSCustomer Is Nothing)) Then 
Try 

If Me.rbClient.Checked = True Then 
mCustomer. Name = Me.txtNewName.Text 
mCustomer.Age 5 = CByte(Me.txtNewAge.Text) 

Else 

mSCustomer.Name = Me.txtNewName.Text 
mSCustomer. Age = CByte(Me.txtNewAge.Text) 

End If 


Me.lstResponses.Items.AddfUpdate using properties successful!") 
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Catch exp As Exception 
Dim txt As String 

txt = " I was unable to access the remote customer object." & vbCrLf & 
“Detailed Error Information below:" & vbCirLf & vbCrLf & _ 

" Message: "& exp.Message & vbCrLf & _ 

" Source:' & exp.Source & vbCrLf & vbCrLf & _ 

" Stack Trace:" & vbCrLf & _ 5 

exp. StackTrace - 

MessageBox.ShoW^t, "Generic Exception", MessageBoxButtons.OK, 
MessageBoxIcon.Stop) " 

•' ' A;' : 

End Try ' !h -' ‘ : 

End If \ V lt 

End Sub • ; 

Private Sub cmdUpdateAndGet_CliCk(ByVal sender As System.Object, ByVal e As 
System.EventArgp) Handles cmdUpdateAndGet.Click 

' C$p nfi&t c&g giA ^Mn server sue dying him nh$n vio hai gii trj vi nhin 
' v$ dil Client Activated 

If ((Not mCustomer Is nothing) Or (Not mSCustomer Is Nothing)) Then 
Try ;; ^ 

If Me.rbClient.Checked =(True Then 
Wifii Me.lStResponses.Items 

.Add(mCustomer.UpdateCustomerlnfo(Me.txtNewName.Text, _ 
CByte(Me.tXtNew Age.Text))) 

End With 
Else 

With Md.lstResponses.ltems 

.Add(mSCustomer.UpdateCustomerlnfo(Me.txtNewName.Text, _ 

» eByte(Me.txiNewAge.Texi))): 

End With ' ' 

-End If •.. 

, '-v't; 

Catch exp As Excepffon 
Dim txt As String 

txt = "I was unable to access the remote customer object." & vbCrLf & _ 
"Detailed Error Information below:" & vbCrLf & vbCrLf & _ 

" Message: “ & exp.Message & vbCrLf & _ 
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" Source: “ & exp.Source & vbCrLf & vbCrLf & _ 

* Stack Trace:" & vbCrLf & _ 
exp.StackTrace 

MessageBox.Show(txt, "Generic Exception", MessageBoxButtons.OK, 
MessageBoxIcon.Stop) 

End Try 
End If 
End Sub 

Private Sub cmdRelease_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdRelease.Click 

* Giii phong tham chieu dSn dd'i tupng tren server 
If ((Not mCustomer Is Nothing) Or (Not mSCustomer Is Nothing)) Then 
Dim objReleased As Boolean = False 
If rbClient.Checked = True Then 
mCustomer = Nothing 
objReleased = (mCustomer Is Nothing) 

Else 

* Do dd'i tifpng co cung cd'p phUdng thufc, ta ndn g<?i no. 

1 Trong vi du nay no khdng I Am gi quan trong, chi don giin giim bien dem 
mSCustomer. Dispose() 
mSCustomer = Nothing 
objReleased = (mSCustomer Is Nothing) 

End If 

’ Ddi trang thai cdc nut 
SetCtlState(objReleased) 

End If 
End Sub 

Private Sub cmdSing!eCall_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdSingleCall.Click 

' Cac dd'i tUdng SingleCall chi s6ng trong phi/dng thdc goi 
’ Trong khi cdc thudc tfnh tdn tai, chung chi co thS dupe sit dung khi doi ti/png 
' khdng dupe sU dung trong che dp SingleCall 

' MAc du ta khdng cung cip cac d6i s6, nhUng ta phii truyen vdo mot 
' mang cac doi tupng. Nothing se khdng lam vide dupe. 

Dim args() As Object 
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Dim cust As SingleCallCustomer 
Try 

cust = CType(Activator.Createlnstance( _ 

GetType(RemotingSample.SingleCallCustomer), args), _ 
RemotingSam pie. SingleCallCustomer) 

With Me.IstResponses.Items 

.AddCSingleCall.UpdateCustomerlnfo: “ & _ 

cust.UpdateCusiomerlnfo(Me.txtNewName.Text, _ 
CByte(Me.txtNewAae.Textp) 

Addf Update Successful!*) 

End With > ! .» ' < 

Catch exp As Exception ^ <v j■ «■ Cl ,. 1 . 

Dim txt As String v - v 

txt - *1 was unable to access the remote customer objpcl* & vbCrLf-& _ 
“Detailed Error Information below:“ & vbCrLf & vbCrLf & _ 

" Message: * & exp.Message & vbCrUf&._ : 

“ Source: “ & exp.Source & vbCrLf & vbCrLf &_ 

‘ Stack Trace:* & vbCrLf & _ 
exp.StackTrace 

MessageBox.Show(txt, “Generic Exception*, MessageBoxButtons.OK, 
MessageBoxIcon.Stop) 

End Try 
End Sub 

Private Sub cmdSingleDebug_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdSingleDebug Click 

‘ Cac doi tUdng SingleCall chi sd'ng trong phuong thdc ggi. 

‘ MSi Ian ta lay duf lieu debug, ta lay no td mot instance mdi cua d6i tUQng 
Dim args() As Object 
Dim scCust As SingleCallCustomer 
Try 

scCust = CType(Activator.Createlnstance( _ 

GetType(RemotingSample.SingleCallCustomer), args), _ 
RemotingSample. SingleCallCustomer) 

With Me.lstResponses.ltems 
.AddfDebug data follows.*) 

,Add(String.Format(" Creation Time: {0}*, _ 

scCust. DebugCreationTime.ToString)) 
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Add(String.Format(* Remote Host Name: {0}", scCust.DebugHostName)) 

1 Chu y si/ khac nhau cua thdi gian tao 
Add(String.Format(" Creation Time: {0}“, _ 

scCust.DebugCreationTime.ToString)) 

.AddfEnd Debug Data*) 

End With 

Catch exp As Exception 
Dim txt As String 

txt = “I was unable to access the remote customer object.* & vbCrLf & _ 
“Detailed Error Information below:“ & vbCrLf & vbCrLf & _ 

" Message:" & exp.Message & vbCrLf & _ 

“ Source:" & exp.Source & vbCrLf & vbCrLf & _ 

“ Stack Trace:* & vbCrLf & _ 
exp.StackTrace 

MessageBox.Show(txt, "Generic Exception*, MessageBoxButtons:OK, 
MessageBoxIcon.Stop) 

End Try 

End Sub 

Private Sub frmMain_Closed(ByVal sender As Object, ByVal e As 
System. EventArgs) Handles MyBase.Closed 

* Giai phong cac d6i tupng chi/a dtfpc giii phdng 
If Not mCustomer Is Nothing Then 
mCustomer = Nothing 
End If 

End Sub ■ 

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 

' Doc file cau hinh cua Ling dung (client.exe.config). File n&y chtia thdng 
' tin cay h)nh remoting cho client. 

Try 

' Gia sd file nky trong cung thU myc vdi file exe 
RemotingConfiguration.Configure("client.exe.config“) 
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Catch exp As Exception 

Dim txt As String , * 

txt = “I was unable to load the file config.xml." & vbCrLf & _ 

“Please make sure it is located in the same directory as this exe " & _ 

“ and that it is in the correct format.* & vbCrLf $ _ 

'Detailed Error Information below:" & vbCrLf & vbCrLf & _ 

" Message: 11 & exp.Message & vbCrLf & _ 

" Source:" & exp.Source & vbCrLf & vbCrLf & _ 

* Stack Trace:" & vbCrLf & _ 
exp.StackTrace 

MessageBox.Show{txt, “Generic Exception", MessageBoxButtons.OK, 
MessageBoxIcon.Stop) 

‘ Disable nut Create 
Me.cmdCreate.Enabled = False 
End Try 
End Sub 

Private Sub txtNewAge_Validating(ByVal sender As System.Object, ByVal e As 
System.ComponentModel.CancelEventArgs) Handles txtNewAge.Validating 

' Kiem tra d£ bao dam chi co gia tn so dddc nh$p vao vh bao 
' dam gia tri trong vCmg gia trj cua kieu byte 
Try 

Dim d As Byte = CByte(Me.txtNewAge.Text) 

Catch exp As Exception 
Dim txt As String 

txt = "The value you entered, '{0}', for the Customer's New Age is incorrect." & 
vbCrLf & "Please enter a value in the range of 0 to 255." & vbCrLf & _ 

"The value will be reset to 0 by default." 

MessageBox.Show(String.Format(txt, Me.txtNewAge.Text), Me.Text, 
MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 

Me.txtNewAge.Text = "0“ 
e.Cancel = True 
End Try 
End Sub 

; • End Class 





388 


Codn g I'rrijmqvu'^ • 


44. Serializing va Deserializing cac doi ttfcfng 

Chifcfng trinh ndy bi£u diln cdch serialize (chuyen d6l ttfong thdnh 
Stream) vd deserialize (chuyln stream thdnh dtfi ttfctag) mpt d6'i tuong. 


^Serializing Objects 


Default Serialization wth Soap Format tat 
Serialize Q&ttl Instance 
Deserialize CJavsl Instance 


r Data Veiueii for Manes 

! • "F - 

! Below yt (2 


rl3 


* |t 

Af» jt |T 

* IT 


Default Serialization with Binary Formatter 


Serialize deni Instance 


J 


Deserialize Clatsl Instance 


pCustom Seriaization 


L._ 


J 




,!(i 1 ,* 


View Swaizsd Ctassl SOAP Be ~\ 


.Sjjfielized Cisss2 SGA? fite 


|nrlru:SOAP^NC-‘>ittp://achemat)arltoap.or^toapyeficodrig/' 
j<nMSOAP{NV«\Hltixif/tehai^atianltoap.o^/soa(Venvelopey n 
yrnlm:ck>'Vitlp:V/tcharna*mrceoftcorn/toap/aricoding/ck/1.0" 

S DAP -E NV: encari i^Styl^'littpVif schemas, wnkoap. or$/ toap/encoi^iQ/ ■> 

<SOAP-£NV;Body> . TT 
<a1:dass1 id-tef-V' 

xmlns:a1*"http://schemas.niicro»ofLccim/clr/ntassanuVBNET,HowTaSefiatangObiects/S*ializii 
g0 bjects^2CS2(Vefs»n%XlQ.(l0.0^2Di20Ditue%3Dneiitial%2C^20F^i]licK^T0^60^00^' 

<x>1</x> . ' - ' ■' 

<y> 2 </y> 

</a1:tias«1> 

< /SOAP-ENV:Boc(y> 

</50AP-ENV:Envelope> 


All files will be writen to D:V)OaJME“1Sntbooks\LOCALS~1 VTempV 


Cac chufc nana chfnh: 

> Cho ph£p ngirdi suf dung serialize hai class, mdt cdch serialize chufm vd 
mpt cdch serialize c6 tuy bi£n. Chirong trinh c6 sdu nut bam difefe chia 
nhdm d£ thiic hi§n chuyen ede dtfi tiftfng thdnh ede stream vd ngtfoc lai. 
Hai nut d phia difdi cho phdp ngudi suf dung xem ede SOAP envelope 
cua ede doi ttfong da difoc chuyen thdnh stream. Cac hop vdn bdn ben 
phdi cho phdp nhdp ede gid tri 1dm duf lieu khdi tao cho ede instance. 
Cdc TextBox read-only (chi cho phdp doc) hi£n thi ede gid tri cua ede 
trifcmg sau khi stream difoc chuyen lai thdnh ddi tiftfng. 
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Project: Serializing Objects 

References: System.Runtime.Serialization.Formatters.Soap.dll 

Class'! .vb 

Option Strict On 

’ Class ndy diigc danh dau Id Serializable. Trortg vl du ndy, no se diigc chuyen 
' sang mdt file vd ngUdc lai. Niu slI dung dinh d?ng SOAP, file co tdn Class 1 File.xml. 
* Niu dung dinh dang Binary, file se co tin Class 1 File.dat 

’ Thuoc tinh ndy cho phdp mot class co thi serializable 
<Serializable()> Public Class Classl 

‘ Tit cd cac field frong class ndy deu co the serialize, ngo$i trd cac thanh phin 
‘ co danh diu 1a NonSerialized, nhu z. 

Public x As Integer 
Private y As Integer 
<NonSerialized()> Public z As Integer 

* Constructor don gidn de dUa gia trj vdo cac field. 

Public Sub New(ByVal argx As Integer, ByVal argy As Integer, ByVal argz As 
Integer) 

Me.x = argx 
Me.y = argy 
Me.z = argz 
End Sub 

’ ThuQc tinh dS xem gib trj cua biin private y 
Public Readonly Property GetYQ, As Integer 
Get 

Return y 
End Get 
End Property 


End Class 



C1ass2.vb 

■ Option Strict On 


' Class nby ditpc dbnh di'u lb Serializable. Ngoai ra, class nay con sit dung 
' ISerializable, interface nby cho phep tuy bien vi$c chuyen cbc d6i titpng. 

' ISerializable ddi hdi phbi cbi dbt phudng thitc GetObjectData, vb mdt constructor 
* se ditpc gpi trong Deserialization 

imports System.Runtime.Serialization 'Namespace chtia ISerializable 

<Seriaiizable()> Public Class Class2 
Implements ISerializable 

' Bdi vl trong vf dp nby co sit dung chuyen d6i tuy biSn, nSn thuoc tinh NonSerialized 
' se khdng cd tbc dpng. Thay vbd dd, ngitdi vi£t ctide Cho class quySt djnh thanh 
' phin nbo cho phdp serialize, dita trSn phUdng thufc GetObjectData. Chu y lb trong 
' class nby z dupe dbnh d£u lb NonSerialized, nhung no vin dupe chuyen doi theo 
' m$t each khbe. 

Public x As Integer 
Private y As Integer 
<NonSerialized()> Public z As Integer 

Public Sub New(ByVal argx As Integer, ByVal argy As Integer, ByVal argz As 
Integer) 

Me.x = argx 
Me.y = argy 
Me.z = argz 
End Sub 

' Constructor die biSt dupe gpi trong quit trlhh deserialization. 

Public Sub New(ByVal info As Serializationlnfo, ByVal context As 
StreamingContext) 

Me.x = info.Getlnt32("x') 

Me.y = info.Getlnt32('y") 

Me.z = info.Getlnt32(‘z") 

Dim d As Date = info.GetDateTime("TimeStamp') 

End Sub 
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' Thudc iinh dS xem gia tri cua bi&n private y 
Public Readonly Property GetY() As Integer 
Get 

Return y 
End Get 
End Property 

' Pht/ong thutc nAy diSu khi€n each cAc thAnh phin se dupe serialize 
’ C6 the truySn vAo cAc giA tri hi$n hAnh (hhrU x vA 2) ho Ac gia tri khac (nhi/y). 
' Ta cung co thS serialize cac item khac, cho du chung khdng phii IA thAnh 
’ phin cua class ti/dng Jug (nhu 'TlmeStamp') 

Public Sub GetObjectData(ByVal info As Serialization Info, ByVal context As 
StreamingContext) Implements ISerializable.GetObjectData 
With info 

.AddValue(‘x\ Me.x) 

.AddValue('y“, -1) 

.AddValue(‘z\ Me.z) 

.AddValueCTimeStamp", Date.Now) 

End With 
End Sub 

• End Class 

frmMain.vb 

• Option Strict On 
Imports System.10 

Imports System.Runtime.Serialization.Formatters.Binary 

• 'Namespace chria BinaryFormatter 


' Can co tham chieu dS'n System.Runtime.Serialization.Formatters.Soap de dung 
‘ cho import nay 

Public Class frmMain 
Inherits System.Windows.Forms.Form 

' Cac bien nay dupe khoi tao trong sd kien Form Load 
Private strFileNamel As String 
Private strFiieName2 As String 
Private strFileName3 As String 
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• 1 Code phat sinh form dupe bd qua 

Private Sub cmdStandardSerializationSoap_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles cmdStandardSerializationSoap.Click 
' Thu tuc nay tao mdi mot instance cua Ctassl, sau do chuySn n6 thdnh 
' file ClasslFile.xml vdi dinh dang SOAP 

' Tao d6i titdng dung d4 serialize 

Dim c As New Classl {Clnt(txtX.Text), Clnt(txtY.Te*t) r Clnt(txtZ.Text)) 

' File Stream dung de ghi v&o file chi dinh Hong strFileNampI 
Dim fs As New FileStream(strFileName1,>FileMqde._Qpe<jQrCreate) 

f 4i < J - . J 

* Tao mot instance SOAP Formatter 
Dim sf As New SoapFormatter() - 

' Chuyen d6i tUQng c vdo file strFiteNaml 
sf.Serialized, c) ; 

’ Dong file vi giii phdng tii nguydri 
fs.CloseO 

' Cho phep Deserialization 1 

cmdStandardDeserializationSoap. Enabled = True 
cmdViewClassI .Enabled = True 

End Sub 

Private Sub cmdStandardDeserializationSoap_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) _ 

Handles cmdStandardDeserializationSoap.Click 

' Thu tuc nay chuyen mot doi titdng tif file ClasslFile.xml vd gan no vdo m$t 
’ tham chieu Class 1 

' Khai bao tham chieu se tro den d6i tiipng dupe chuyen tit file 
Dim c As Classl 

Dim fs As New FileStream(strFileName1, FileMode.Open) 

Dim sf As New SoapFormatterQ 
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' Deserialize c ft/ strFileNamel 

I 

' Chu y la doi tUdng dupe Deserialize phai dUdc ep kieu dung cCta no 
c = CType(sf.Deserialize(fs), Classl) 

fs.Close() 

' Hi£n thi c£c gii tr( cua d6i ti/png li'y tif file 
txtXAfter.Text = CStr(c.x) 
txtYAfter.Text = CStr(c.GetY) 
txtZAfter.Text = CStr(c.z) 

cmdStandardDeserializationSoap. Enabled = False 
cmdViewCtassI .Enabled = False 

End Sub 

Private Sub cmdStandardSerializationBinary_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) _ 

Handles cmdStandardSerializationBinary.Click 
' Thi tpc n&yt$o m$t instance mdi cua Classl, sau dd serialize no vao 
‘ file Class1File.dat vdi djnh dgng nhi phdn (Binary) 

’ Tqo d6i tJQng si dupe serialize 

Dim c As New Classl (Clnt(txtX.Text), Clnt(txtY.Text), Clnt(txtZ.Text)) 

' FileStream ding dS ghi vio file strFileName2 
Dim fs As New FHeStream(strFileName2, FileMode.OpenOrCreate) 

' Tao mQt instance da Binary Formatter 
Dim bf As New BftiaryFormatter() 

’Serialize c vio file strFileName2 
bf. Serialize (fs, c) 

' Dong file vi giai phong tai nguyin 
fs.Close() 

‘ Cho phep Deserialization 

cmdStandardDeserializationBinary.Enabled = True 
End Sub 
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Private Sub cmdStandardDeserializationBinary_Click(ByVa! sender As 
System.Object, ByVal e As System.EventArgs) _ 

Handles cmdStandardDeserializationBinary.Click 
' Thu tuc nay deserialize mot dot tildng td file Class 1 File, dat va gan vao 
' mdt tham chieu Class 1 

‘ Khai bao tham chieu se tro den dd'i tdgng dugc deserialize 
Dim c As Class 1 

Dim fs As New FileStream(strFileName2, FileMode.Open) 

Dim bf As New BinaryFormatter{) 

'Deserialize c tC(strFilename2 
c = CType(bf.Deserialize(fs), Class 1) 

fs.Close() ■:. 

txtXAfter.Text * CStr(c.x) 
txtY After,Text = CStr(c.GetY) 

txtZAfter.Text = CStr(c.z) ! - w 1 

cmdStandardDeserializationBlnary.Enabled = False . ■ , 

End Sub 

Private Sub cmdCustomSerialization_Click(ByVal senderjts SystarrvGbject, _ 
ByVal e As System.EventArgs) _£ ./ • . , .• ;; 

Handles cmdCustomSerializaUpn.Qiick . , ,i • - <■;> ■ .< ’«?v -i; , 

* Thu tuc nay tao mot instance cua Class?, sau d6 serialise nd vdo file 
' Class2File.xml vdi djnh dgng SOAP. Chu yM,m^c dt> CtassS c6 serialization 
' tuy bien, code thiic hiSn vin gi6ng nhu serialization 6hu4n. Si/ khic bi$t Id 
' d trong code cua class. . .. 

Dim c As New Class2(Cint(txtX.Text), Clnt(txtY.Text), Clnt(txtZ.Text)) 

Dim fs As New FileStream(strFileName3, FileMode.OpenOrCreate) 

Dim sf As New SoapFormatter() 

sf.Serialize(fs, c) 
fs.CloseO 

cmdCustomDeserialization.Enabled = True 
cmdViewClass2.Enabled = True 


End Sub 
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Private Sub cmdCustomDeserialization_Click(ByVal sender As System.Object, 
ByVal e As System,EventArgs) _ 

Handles cmdCustomDeserialization.Click 

’ Thu tuc nay deserialize mdt doi tUdng tti Class2File.xml va gan vao 
‘ mot tham chieu Class2. 

Dim c As Class2 

Dim fs As New FileStream(strFileName3, FileMode.Open) 

Dim sf As New SoapFomlatterO 

c = CType(sf.Deserialize(fs), Class2) 
fs.CloseO 

txtXAfter.Text = CStr(c.x) 
txtY After.Text = CStr(c.GetY) 
txtZAfter.Text = CStr(c.z) 

cmdCustomDeserialization.Enabled = False 
cmdViewClass2.Enabled = False 
End Sub 

Private Sub cmdViewClasst_Click(ByVal sender As System.Object, _ 

ByVal e As System.EventArgs) _ 

Handles cmdViewClassI .Click 
’ Doc ndi dung cua file va hiSn thj tren tr&n TextBox 
Dim fs As New FileStream(strFileName1, FileMode.Open) 

Dim sr As New StreamReader(fs) 
txtView.Text = sr.ReadToEnd() 
sr.Close() 
fs.Close() 

End Sub 

Private Sub cmdViewClass2_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdViewClass2.Click 

Dim fs As New FileStream(strFileName3, FileMode.Open) 

Dim sr As New StreamReader(fs) 
txtView.Text = sr.ReadToEndQ 
sr.Close{) 
fs.CloseO 
End Sub 
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Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 

‘ Li'y di/dng din TEMP sCi dung class Path trong namespace System. IO 
Dim strTempPath As String = Path.GetTempPath() 
strFileNamel = strTempPath & “Classl File.xml" 
strFileName2 = strTempPath & "Classl File.dat" 
strFileName3 = strTempPath & "Class2File.xmr 

Me.sbFilePath.Text = "All files will be written to " & strTempPath 
End Sub 

Private Function lsValidlnt32(ByVal Data As String) As Boolean 
Try 

Dim i As Integer 

i = System.Convert.Tolnt32(Data) 

Return True 

Catch exp As FormatException 

* ChuySn kieu dO lieu bi Idi 
Return False 

Catch exp As Exception 

* Tnldng hdp Idi khac 
Return False 

End Try 
End Function 

Private Sub ValidatingTextlslnt32{ByVal sender As Object, ByVal e As 
System.ComponentModel.CancelEventArgs) Handles txtX.Validating, 
txtY.Validating, txtZ.Validating 

‘ Bao dam gia trj nhap vio co th£ chuyin sang mdt sd’ Int32 (Integer) 

Dim txt As TextBox = CType(sender, TextBox) 

If Not lsVa!idlnt32(txt.Text) Then 
Dim strMsg As String 

strMsg = String.FormatfThe value you entered {0} is not a valid 32-bit integer. 
Value will be changed to zero.", txt.Text) 

MsgBox(strMsg, MsgBoxStyle.Exclamation, "Validation Warning") 
txt.Text = "0" 

End if 
End Sub 
- End Class 
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Phan IX - Xuf ly dvt li$u 

45* Ket duf lieu vao mpt ComboBox 

Chirong trinh nay cho biet mot so cdch ket duf lieu vzio mpt control 
ComboBox. 



Chirong trinh bieu di^n cdch k£t duf lieu vko mot ComboBox tir nhmu 
nguon dtf lieu khdc nhau. Dur lieu c6 the tir mot mang (Array), ArrayList, 
DataTable va Data View. 

Chu y: 

Chirong trinh suf dung database Northwind trong SQL Server hoac MSDE. 
Project: Ket du lieu vao ComboBox 

frmMain.vb 

■ Option Strict On 

Imports System.Data.SqlClient 

■ Public Class frmMain 

Inherits System.Windows.Forms.Form 

Protected dsProducts As New DataSetQ 
Protected dvProducts As DataView 
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Protected Const SQL_CONNECTION_STRING As String = _ 
"Server=localhost;‘ & _ 

"DataBase=Northwind;" & _ 

"Integrated Security=SSPI' 

Protected Const MSDE_CONNECTION_STRING As String = _ 
"Server=(local)\NetSDK;" & _ 

"DataBase=Northwind;‘ & _ 

"Integrated Security=SSPI" 

Protected Const CAPTION_TITLE As String = "Bind Data to a ComboBox" 
Protected Const DEFAULT_SORT As String = "ProductName ASC" 
Protected Const CAPTION_ICON_BUTTON As MsgBoxStyle = 
CType(MsgBoxStyle.Information + MsgBoxStyle. OKOnly, MsgBoxStyle) 
Protected Const PRODUCT_TABLE_NAME As String = "Products" 

’ Dinh nghla cau true cho m$t ph&rr loai, chtia tin pharr loai va ma phan loai 
Protected Structure Divisions 
Private divName As String 
Private divld As Integer 

Public Sub New(ByVal name As String, ByVal id As Integer) 
divName = name ■>> . 

divld = id 
End Sub 

Public Readonly Property getName{) As String 
Get 

Return divName < . 

End Get 
End Property 

Public Readonly Property getld() As Integer 
Get 

Return divld 
End Get 
End Property 


End Structure 




399 


Friend WithEvents cmdDV As System.Windows.Forms.Button 
Friend WithEvents IblAssociated As System.Windows.Forms.Label 
Friend WithEvents GroupBoxI As System.Windows.Forms.GroupBox 

• 1 Code phat sinh form di/dc bo qua 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

Dim strConnection As String = SQL_CONNECTlON_STRING 

' Hien thj thong bao la dang ket nd'i vko SQL Server. Thdng bao nay chi can 
' thief cho Ian thUc hien ket noi dau tien. Sau khi da xac dinh dupe MSDE hay 
' SQL Server, thong bao nay khdng c£n den ntia. 

Dim frmStatusMessage As New frmStatus() 

frmStatusMessage.Show("Connecting to SQL Server") 

' Thi/c hien ket noi vko SQL Server cue bp trUdc, neu khdng thknh cong 
' thi chuyen qua MSDE cue bp 
Dim IsConnecting As Boolean = True 
While IsConnecting 

Try 

' Class SqlConnection cho phep trao doi vdi SQL Server. Constructor 
' chap nhan mot chudi ket noi lam mpt tham so. ChuSi ket noi nay sit 
' dyng cd che an toan tich hop, nghla Ik ngitdi lap trinh phai co quyen 
' dang nhkp vko SQL Server, hokc la mot thanh vien cua nhom 
' Administrators tren may tinh cue bp. Khong can password hokc 
‘ user id trong chudi ket noi nay. 

Dim northwindConnection As New SqlConnection(strConnection) 

' SqlDataAdapter difdc sti dung de thiet lap mpt DataSet 
Dim ProductAdapter As New SqlDataAdapter( _ 

"SELECT ‘ 11 _ 

& "FROM products", __ 
northwindConnection) 

' Thiet lap DataSet chda duf lieu cua bkng Products. Bdi vi DataSet co the 
' chita nhieu tap ket qua, tot nhk't la dat ten cho tkp ket qua khi thiet l$p 
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-- ('iVHDg — 

' DataSet. Trong truing hpp niy ta dat ten la N Products " 
ProductAdapter.Fill(dsProducts, PRODUCT_TABLE_NAME) 

' Tao DataView; suf dung Constructor dSchidinh sip xSp, diSu kien Iqc „ 
dvProducts = New DataView(dsProducts.Tables(‘products"), "\ _ 

DEFAULT_SORT, DataViewRowState.OriginalRows) 

1 Dt7 lieu da dupe lay thanh edng, thoit vong lap 
IsConnecting = False 

‘ XCi ly khi thuc hien k&t nd'i xiy ra l6i 
Catch exc As Exception 

If strConnection = SQL^CONNECTION_STRING Then 
' Khdng thi ket nd'i vio SQL Server, chuy4n qua MSDE 
strConnection = MSDE_CONNECTION_STRING 
frmStatusMessage.Show("Connecting to MSDE") 

Else 

' Khdng thS ket n6i vio SQL Server hoic MSDE 
frmStatusMessage.CloseQ 

MsgBoxfTo run this sample, you must have SQL “ & _ 

"or MSDE with the Northwind database installed. ", _ 
CAPT!ON_ICON_BUTTON, CAPTION_TITLE) 

' Thoat cht/dng trinh 

End 

End If 
End Try 
End While 

frmStatusMessage.Close() 

GroupBoxI Visible = False 
End Sub 

Private Sub cmdArray_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdArray.Click 

' Ket vao mdt ming don gian chila cac chuoi li tin cac mau 
Dim myColorsQ As String = {"AQUA", “BLACK", “BLUE", "GREEN", ‘RED", 
"WHITE", “YELLOW"} 

Cdr'nboBoxl.DataSource = myColors 


- Coding Techniques 
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ComboBoxl.Selectedlndex = 0 
GroupBoxI .Visible = False 
IbISource.Text = "Array- 
End Sub 

Private Sub cmdArrayUsLCIick(ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles cmd Array List.Click 

' Kit Vito m$t arraylist don giin chila tin cic hfoh cd bin 
Dim myShapes As New ArrayList() 

With myShapes 
.Add(“CIRCLE") 

.AddfOCTAGON*) 

.Add(“RECTANGLE*) . 

.AddCSQUARE*) 

.Add(*TRAPE2CHD*) 

.Add(*TRIANGLE*) 

End With v 'V 

ComboBoxI .DataSource = myShapes 
ComboBoxl.Selectedlndex = 0 y 

GroupBoxI .Visible = False 
IbISource.Text = *ArrayList" 

End Sub 

Private Sub cmdArrayListA_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdArrayListA.Click 

' Ket vio mdt arraylist chufa cic phin td li ciu trie didjnh nghta 
Dim myDivisions As New ArrayListQ 


' Cho cic phan tur cd c£u true vio arraylist 
With myDivisions 

.Add(New DivisionsfCENTRAL", 1)) 
.Add(New Divisions(’EAST‘, 2)) 
.Add(New Divisions(“NORTH“, 3)) 
.Add(New Divisions(-SOUTH“, 4)) 

End With 


' K£t arraylist vio ComboBox 
With ComboBoxI 

.DataSource = myDivisions 
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.DisplayMember = "getName" 

.ValueMember = "getld" 

End With 

ComboBoxI .Selectedindex = 0 

ibl Associated.Text = CType(ComboBox1.SeJectedVlalue, String) 

GroupBoxI .Visible = True . r , r , . 

IbISource.Text = “AneayUst-AdvancetPr » 1 a ^ \ 

End Sub ■' > 0 ; Jvi. i • •• ... >iw •- ■■■ 

Private Sub cmdDS_Click(ByVal sender As System.Object, SVVel e Aft^^ 
System.EventArgs) Handles cmdDS.Click {“VtODATOO’Jbi A. 

' K4t bing Products trong database Northwind d& dUQc due vA#. dMtoset dsProducts. 
With ComboBoxI t fc;---. 

Data Source a dsProducts.Tables(*PRODUCTS‘) ;>.• j : T’ • >/. 

.DisplayMember = "ProductName" i > v T 

.ValueMember = "ProductID' 

End With 

ComboBoxI .Selectedindex = 0 •> 

IblAssociated.!ext = CType(ComboBox1 .SelectedValue, String) < 

G roupBoxI .Visible = True 
IbISource.Text = “DataSet* 

End Sub 

Private Sub cmdDV_Click(ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles cmdDV.CHck 

' Ki't vdo dataview d§ dtiQG sip xSp 
With ComboBoxI 

.DataSource = dvProducts 
.DisplayMember = “ProductName" 

.ValueMember = "ProductID" 

End With 

ComboBoxI .Selectedindex = 0 

IblAssociated.Text = CType(ComboBox1 .SelectedValue, String) 

GroupBoxI .Visible = True 
IbISource.Text = "DataView" 


End Sub 
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Private Sub ComboBoxI _SelectedlndexChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles CpmboBoxl.SelectedIndexChanged 
' Hiin thj gii tri ki't hpp vdi phin tit dupe chpn trong ComboBox, nSu gii trj niy 
* t6n tpi. Di xic djnh co t6n tpi, kiim fra groupbox c6 hi4n thj (visible) hay khdng. 
' Thudc tkih niy di/pc gin /i False trohg Me kSt di7 lidu n€fu khdng c6 gii trj k&t 
' hpp, vi gin li True n£u co. 

If GroupBoxI .Visible = True Then 
IblAssociated.Text = CType(ComboBox1.SelectedValue, String) 

End If 
End Sub 

End Class 

frmStatus.vb 

■ Option Strict On 

■ Public Class frmStatus 

Inherits System.Windows.Forms.Form 

• ' Code phit sinh form dupe bd qua 

Public Overloads Sub Show(ByVa) Message As String) 

IblStatus.Text = Message 
Me.ShowQ 

Application.DoEvents() 

End Sub 
End Class 

46. T$o #ng dung Master-Details Windows Forms 

Chifcfng trinh n&y chi edeh tao ufng dung Master-Details. Bdy 14 ki4’u form 
k£t dur li$u ph$ bi£n v4 hffu dyng cho vi$c duy§t qua edc record vd xem ede 
cdp d^ chi tidt dd li$u khde nhau c6 li§n quan ddn m6i record. 

- lit'’’* ; ' W-' ' I' i-" 
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„ p Maslei-Detdils Windows Terms 


RISES' 



Cac chufc nana chinh: 

> Bi&i dien c&ch m<)t DataSet c6 th£ chufa btfn DataTable v& k£t v&o ede 
control khde nhau v& difcrc d6ng b6 vdi nhau bkng dd'i ttrqng 
BindingContext cua Form. 

> Hi&i thi duf li$u trong hai control DataGrid kh£c nhau, m$t cho bdng 
Orders (b&ng chinh - Master), v& mot cho bdng Order Details (bdng ede 
chi ti£t - Details). 

> Hi£n thi duf li$u trong mQt DataGrid, suf dung c&c control phu cua 
DataGrid dl di x&u vko Order Details. 

> Duy^t qua ede record b&ng edeh nh&n v&o eke nut ho&c diing eke phlm 
mui t&n v& eke phim Home/End. 

■> each dp dung ede dinh dang ri&ng vko c&c control c6 k£t duf li$u. 


Chu f. 

Chuong trinh sd dung database Northwind trong SQL Server ho&c MSDE. 


Project: Master-Details Windows Forms 


frmMaln.vb 

• Option Strict On 
■ Imports System.Data.SqlClient 
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• Public Class frmMain 

Inherits System.Windows.Forms.Form 

- ' Code ph&t sinh form dtfqc bd qua 

‘ Khdi t$o c&c h£ng s6 d6 k6t n6i vAo database v£ hiin thj thdng b&o iSi 
Protected Const CONNECJION_ERROR_MSG As String = _ 

"To run this sample, you must have SQL “ & _ 

"or MSDE with the Northwind database installed. * 

Protected Const MSDELCONNECTION.STRING As String = _ 
*Server=(loca1)\NetSDK;“ & _ 

“DataBase=northwlnd;‘ & _ 

‘Integrated Security=SSPI‘ 

Protected Const SQL_CONNECTION_STRING As String = _ 
‘Server=localhoat;‘ & _ 

*DataBase=northwind;‘ & _ 

‘Integrated Secortty-sSSPI’ 

Protected DidPreviouslyConnect As Boolean = False 

Private dsEmpioyeeCAders As DataSet 

Private dtEmptoyee As DataTable 

Private dtOrders As DataTable 

Private dtOrderDetaW, AsOalaTable 

Private dtSat*rA» d^aWe* ^ 

Private dvOftMfc A* 1 T 

Private dvOrderDetaits Aa DataView 
Private dvSales AsDataView 
Private sda As SqlDataAdapter 

Protected strConn As Strtng * SQLjPQNNECT10N_STRING 


’ XQ ty nut« 

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) HahdtesbthFifst.Ctick 

’ Di chuyin <3Sn record diu tiSn 
FirstRecordQ 
End Sub 
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' Xil ly nut» 

Private Sub btnLast_Click(ByVa! sender As System.Object, ByVai e As 
System.EventArgs) Handles btnLast.Click 

’ Di chuySn dSn record cu6i cung 

LastRecordQ t ~ •. 

End Sub - . ' ? ; . 

> : i .j c r ‘ '■‘.u; r 

' XCf ly nut > , . . . v ^ j< V 4 

Private Sub btnNext_Click(ByVal sender As SystehfoGbjeeb ©yMal e A$; *. 

System.EventArgs) Handles btnNextCMck . s •. . . . 

* Di chuyin din record ki tiSp - r . ., j , t ; • 

NextRecord() 

End Sub ; -> v -* ;a'V' h ' j ) > ?< »e.. 

-o<*. ■ '/it : 

‘ XCf ly nut < , 1 !•..« - -iron e 

Private Sub btnPrevk>us_Click(ByVal sender As System,Obj^ 3 t* iyVaj e Ae. 
System.EventArgs) Handles btnPrevious.Click 

* Di chuyin lui vi mQt record -,l ■ n " ! , v . ^ < v e h« 

PreviousRecordO i T ^ , 

End Sub 

' Xuf ty si/ ki$n PositionChanged cda BindingQonterf. St/ kiQn f&y phAt &inh tUdng 
' ting khi thay d6i Position trong cAc si/ k%n Click cuacAc nUt duyitdd 04 u. 
Protected Sub dtEmployee_PositionChanged<ByVa^senderAs Object, ByVai e As 
System.EventArgs) .. , t> , ;V j r 

BindOrdersGridO 

BindOrderDetailsQ ridQ / 

ShowTotalSalesQ 
ShowCurrentRecordNumberQ 
End Sub 

• t ’ 

' Xil ly st/ ki$n KeyDown trdn Form. Di st/ki$n nAy pbit sinh, thudc tfnh 
' KeyPreview trin Form phii dupe d$t lit True. Gii trj m$c nhiSn lit False. 

Private Sub frmMain_KeyDown(ByVal sender As Object, ByVai e As 
System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown 

' Cho phAp ngudi sijf dt/rtg duy$t qua cAc record si/ dung cAc phim mui tin 
If e.KeyCode = Keys.Right Then NextRecordO 
If e.KeyCode = Keys.Left Then PreviousRecordO 
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If e.KeyCode = Keys.Home Then FirstRecord() 

If e.KeyCode = Keys.End Then LastRecordO 
End Sub 

’ Xuf ly Form load 

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 
CreateDataSet() 
lnitializeBindings() 

BindOrdersGridO 

BindOrderDetailsGrid() 

ShowCurrentRecordNumberO 
End Sub 

' Xuf ly stf ki$n nhinchuQt trin DataGrid. Si/ ki$n nky phkt sinh khi khung cua 
' DataGrid dupe nhin chuQt - khdng phki Ik dc 6 . Cin xCt ly tMm cho si/ 

’ ki$n CurrentCellChanged 

Private Sub grdOrders_Cljck(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles grdOrders.Click 

' K4t dO li$u cho Order Details di/a trin record dupe chQn trong grdOrders. 
BindOrderDetailsGrid() 

End Sub 

* XO ly si/ ki$n CurrentCellChanged, phkt sinh khi ngudi sO dpng 
' chuyin qua m$t cell khke trin grid. 

Private Sub grdOrders_CurrentCellChanged(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles grdOrders.CurrentCellChanged 
' Lkm nSi bit tokn bd ddng dupe chpn 
grdOrders.Select(grdOrders.CurrentCell.RowNumber) 

‘ Kit dO li$u cho Order Details di/a trin record dupe chpn trong grdOrders. 
BindOrderDetailsGridO 
End Sub 

' Kit vk djnh dpng ludi Order Details di/a vko record dang dupe chpn trin ludi Orders 
Sub BindOrderDetailsGridO 

' Liy OrderlD hien hknh being ckch dung CurrentRowIndex cua DataGrid 
Dim strCurrentOrderlD As String = _ 

dvOrdersCgrdOrders.CurrentRowIndexK'OrderlDO.ToString 
' Lpc dO li$u trin OrderDetails dt/a trin OrderlD dang dupe chpn 
dvOrderDetails.RowFilter = “OrderlD = “ & strCurrentOrderlD 
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With grdOrderDetails 

.CaptionText = “Order# * & strCurrentOrderlD 
.DataSource = dvOrderDetails 
End With 

' Trade tiin li lim s$eh collection TableStyles 
g rdOrderDetails .T ableStyles.C lear() 

Dim grdTabieStyiel As New DataGridTab!eStyle() 

With grdTabieStyiel 

* Ludn ludn quy djnh MappingName, ngay ci vdi DataView chico m$t Table. 

* N&u khdng, khdng c6 iSi xiy ra nhUng djnh d$ng khdng dupe dp dyng. 
.MappingName = dvOrderDetails.Table.TableName 

End With 

’ Stirdyng column style sS lim choViQc ttf dQhg phit sinh cic cQt mil tic dyng. 

‘ Khi cic dd'i tdpng Column Style dupe id dyng, cic cQt dO liSu mi ta mu6n hiSn 
' thj phii cd m$t d6i tdQng column style kft vdi nd. 

Dim grdColStylel As New DataGHdTextBoxColUmn() 

With grdColStylel 

.MappingName = “ProductName* 

HeaderText = 'Product* 

.Width = 175 
End With 

k . * , . ■ -■ ■ 

Dim grdColStyle2 As New DataGridTextBoxCoiUmn() 

With grdColStyle2 

.MappingName = "UnitPrice' 

.HeaderText = “Price* 

' Djnh dyng dO ti$u dang tiSn t$ 

.Format = *c* 

.Width = 75 
End With 

Dim grdColStyle3 As New DataGridTextBoxColumn() 

With grdColStyle3 

.MappingName = "Quantity" 

.HeaderText = "Quantity" 

.Width = 75 
End With 
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Dim grdColStyle4 As New DataGridTextBoxCoiumn() 

With grdColStyle4 

.MappingName = "SubTotal" 

.HeaderText = "Sub Total" 

* Djnh d?ng dO liSu dang tiSn te 
.Format = "c" 

.Width = 75 
End With 

Dim grdColStyle5 As New DataGridTextBoxColumn() 

With grdColStyle5 

.MappingName = "Discount" 

.HeaderText = "Discount" 

’ Djnh dgng dd li&u dS hiin thj d dang phin trdm. 

.Format = "P0" 

.Width = 50 
End With 

Dim grdColStyle6 As New DataGridTextBoxColumnQ 
With grdColStyle6 

.MappingName = "CategoryName" 

.HeaderText = “Category" 

.Width = 125 
End With 

' Ap dung cac Column Style vCta tgo 
grdTableStylel .GridColumnStyles.AddRange _ 

(New DataGridColumnStyle() (grdColStylel, grdColStyle2, _ 
grdColStyle3, grdColStyle4, grdColStyle5, grdGolStyle6}) 

grdOrderDetails.TableStyles.Add(grdTableStylel) w 

■■ ' 

End Sub 

' Kit dd liiu v£ djnh dang Ictdi Orders di/a v&o Employee hi$h ftdnh 1 ; 

Sub BindOrdersGrid() ' v 

' Lqc dd li&u dt/a trin gi& trj cua thudc tinh Tag. ThuQc tinh nfy chife ErrtployeelD 
dvOrders.RowFitter = "EmployeelD = " & txtLastName.Tfig ToString : 
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With grdOrders 

.CaptionText = 'Orders* 

DataSource = dvOrders 
End With 

grdOrders.TableStyles.ClearO 

Dim grdTableStylel As New DataGridTableStyleQ 
With grdTableStylel 

MappingName = dvOrders.Table.TableName 
End With 

Dim grdColStylel As New DataGridTextBoxColumn() 

With grdColStylel 

.MappingName = "OrderlD' 

.HeaderText = 'Order ID" 

.Width = 50 
End With 

Dim grdColStyle2 As New DataGridTextBoxColumn() 

With grdColStyle2 

.MappingName = 'CompanyName* 

HeaderText = 'Customer" 

.Width = 140 
End With 

Dim grdColStyle3 As New DataGridTextBoxColumn() 

With grdColStyle3 

.MappingName = 'OrderDate' 

‘ Dinh d?ng dtf li$u li ngiy thing. Loai bd thdi gian ra khdi gia tri 
.Format = "d“ 

.HeaderText = "Order Date" 

.Width = 75 
,End With 

Dim grdColStyle4 As New DataGridTextBoxColumn() 

With grdCotStyle4 

.MappingName = "Total' 

■HeaderText = "Total" 

.Format = "c" 
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.Width = 75 
End With 

grdTableStylel .GridCoiumnStyles.AddRange _ 

(New DataGridColumn$tyle() {grdColStylel, grdColStyle2, _ 
grdColStyle3, grdColStyle4}) 
grdOrders.TableStyles.Add(grdTableStylel) 

End Sub 

' Tao DataSet sut dung trong chUdng trinh niy. No chita b6n bing, bao gdm 
' Employee, Cic Order cua Employee, Sales to Date, vi Order Details. 

Sub CreateDataSet() 

Dim frmStatusMessage As New frmStatus() 

If Not Did Previous i yConnect Then 
frmStatusMessage.ShowfConnecting to SQL Server") 

End If 

Dim IsConnecting As Boolean = True 

\ 

While IsConnecting 
Try 

Dim scnnNW As New SqlConnection(strConn) 

Dim strSQL As String = _ 

"SELECT EmployeelD, LastName, FirstName, HireDate " & _ 

"FROM Employees" 

' D&i tupng SqlCommand dupe sCf dung d£ thUc thi cac l$nh SQL 
Dim scmd As New SqlCommand(strSQL, scnnNW) 

' SqlDataAdapter sCf dung d6i tUQng SqlCommand de dt/a di 7 liiu v&o DataSet 
sda = New SqlDataAdapter(scmd) 

' SqlCommandBuikler ti/ ddng phat sinh cac l$nh SQL c£n thiSt d£ 

' cip nhit database sau niy. 

Dim seb As New SqlCommandBuilder(sda) 


' Cac l$nh dupe phat sinh bdi SqlCommandBuilder dupe dt/a tren tip 
' CommandText hiin /i inh cua ddl tupng SqlCommand. Ta cd th£ gpi 
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' GetUpdateCommand d£phit sinh l$nh Update di/a trin gii trj hi$n hinh 

' cua thudc tinh CommandText. 

scb.GetUpdateCommandO 

' T$o mdi mdt DataSet vi cho vio DataTable diu tiin 
dsEmployeeOrders = New DataSet() 
sda.Fill(dsEmployeeOrders, “Employee") 

' Linh SQL d£ l£y cic Order cua Employee 
scmd.CommandText = _ 

“SELECT od.OrderlD, SUM(CONVERT(money, (od.UnitPrice * “ & _ 

“ od.Quantity) * (1 - od.Discount) /100) * 100) * & _ 

' AS Total, o.EmployeelD, o.OrderDate, “ & _ 

" c.CompanyName* & vbCrLf & _ 

“FROM [Order Details] od ‘ _ 

“ INNER JOIN Orders o“&_ 

“ ON od.OrderlD = o.OrderlD" & vbCrLf & _ 

’ INNER JOIN Customers c “ & _ 

■ ON o.CustomerlD = c.CustomerlD" & vbCrLf & _ 

“GROUP BY od.OrderlD, o.EmployeelD, o.OrderDate, c.CompanyName" 

' Dua bing thCl hai vio DataSet 
sda.Fill(dsEmployeeOrders, “Orders") 

' Linh SQL l£y Employee Sales-To-Date 
scmd.CommandText = _ 

"SELECT e.employeeid, sum(UnitPrice * Quantity) as “ & _ 

“ ‘SalesToDate’ “ & _ 

“FROM [order details] od “ & _ 

“ INNER JOIN orders o " & _ 

“ ON o.orderid = od.orderid “ & _ 

“ INNER JOIN employees e “ & _ 

“ ON e.employeeid = o.employeeid' & vbCrLf & _ 

‘ “GROUP BY e.employeeid* 

’ Dda bing thd ba vio DataSet 
sda.Fill(dsEmployeeOrders, ’Sales“) 
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' L$nh SQL l£y Order Details 
scmd.CommandText = _ 

"SELECT od.OrderlD, od.UnitPrice, od.Quantity, od.Discount, " & _ 

■ p.ProductName, c.CategoryName, * & _ 

" (od.UnitPrice * od.Quantity) As SubTotal ‘ & _ 

"FROM [order details] od " & _ 

‘ INNER JOIN Products p ON od.ProductID = p.ProductID " & _ 

“ INNER JOIN Categories c ON c.CategorylD = p.CategorylD " & __ 
"ORDER BY od.OrderlD" 

‘ DUa being thCt til vdo DataSet 

sda.Fill(dsEmployeeOrders, "OrderDetails") 

' Gdn ede bien cho cac DataTable d£ sir dicing sau ndy 
dtEmployee = dsEmployeeOrders.Tables(O) 
dtOrders = dsEmployeeOrders.Tables(l) 
dtSales = dsEmployeeOrders.Tables(2) 
dtOrderDetails = dsEmployeeOrders.Tables(3) 

' Quy djnh ede DataView cho ede DataGird vd TextBox SalesToDate 
dvOrders = dtOrders.DefauItView 
dvOrderDetails = dtOrderDetails. DefauItView 
dvSales = dtSales. DefauItView 

' D£ thi'y dugc ki£u giao dien Master-Details khac , cd dQ lidu Master vd 
' dCf liiu Details chtta trong cung m$t DataGrid, bd ghi chu cac ddng code 
' bin diJdi, cac ddng code ndy quy dinh mot md’i quan he bing cha-con. 

* dsEmployeeOrders.Relations.Add{"Order_OrderDetails", _ 

' dtOrders.Columns(”OrderlD”), dtOrderDetails.Columns{"OrderlD")) 

' Dtf lieu da duqc lay thdnh edng, thoat vdng Idp vd dong form Status 
IsConnecting = False 
DidPreviouslyConnect = True 
frmStatusMessage.Close() 

Catch expSql As SqlException 

MsgBox(expSql.Message, MsgBoxStyle.Critical, Me.Text) 

Exit Sub 
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Catch exp As Exception 

If strConn = SQL_CONNECTION_STRING Then 
strConn = MSDE_CONNECTION_STRING 
frmStatusMessage.Show(“Connecting to MSDE") 

Else 

frmStatusMessage.CloseO 

MsgBox(CONNECTION_ERROR_MSGi MsgBoxStyle.Critical, Me.Text) 
End 
End If 
End Try 

frmStatusMessage.CloseO 
End While 
End Sub 

' XCi ly djnh dang cho TextBox Hire Date 

Protected Sub DateToString(ByVal sender As Object, ByVal e As 
ConvertEventArgs) 

‘ C6 thi sCf dyng mdt trong hai each sau di chuyin djnh dang ngAy: 

‘ e. Value = CTypefe. Value, DateTime). ToString( n d H ) 
e.Value = CType(e.Value, DateTime).ToShortDateString 
End Sub 


' Di chuyin Position cua BindingContext v4 record dau tien. 

Public Sub FirstRecordO 

’ Vj trf cua binding context diSu khiin Position (vi tri) cua record hien hAnh, 
’ Record diu tiin 14 record 0 (khdng phii 1) 
Me.BindingContext(dtEmployee).Position = 0 
End Sub 

’ Quy djnh cac kit dCt li$u cho cAc control 
Private Sub lnitializeBindings() 

txtLastName.DataBindings.Add(‘Text", dtEmployee, "LastName") 

' Sl! dung thude tlnh Tag ta cd thi kit m$t giA trj in can khi duydt qua cAc 
' record. Trong chUdng trinh nAy, cac s6 EmployeelD tUdng ting vdi cac si 
’ ddng trong DataTable, do do chi cin dung thu$c tlnh Position nhU trong 
‘ thu tuc ShowCurrentRecordNumber. 

txtLastName.Data8indings.Add("Tag\ dtEmployee, "EmployeelD") 
txtFirstName.DataBindings.Add("Text", dtEmployee, "FirstName") 
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’ Dii ti/Qng Binding kit m$t thuQc tlnh cua mdt control vAo m$t trudng cua 
' data source. Sau khi tgo dii ttlQng Binding, cho tid vio ddi tUdng 
' ControlBindingCollection thiy dtJQc bdi tit ch cic control Windows Forms 
' thdng qua thu$c tfnh DataBindings. '■ '' 

Dim dbnHireDate As New BindingfText", dtEmployee, •HireBate") 
txtHireDate.DataBindings.Add(dbnHireDate) 

' Niu c6 sit dung cAc thu tgc ph&n tlch/djnh d$ng, th) tMm chung 
Add Needier dbnHireDate.Format; AddrbesGf Date-TeStrmg 
AddHandler dbnHireDate.Parse, AddressOf StringToDate - 

* .. ■'* : : .rote? •’ ■ 'J c 

Dim dbnSaiesToDate As NatfE^iogCTex& rftSates, "SatesToDate') 
txtSalesToDato.DettBMdir^u^(dton$ale«foOate) : 

AddHandler dbnS^ft*ftji|)ate*fc>rrn&t, AddressOf MoneyToString 
AddHandler dbnS^efFfflDateParse,, AddressOf StringToMoney 
AddHandler Me.BindingCbntext(dtEmptoyee).Pos itionC ban ged, _ 
AddressCtf^tEmpt^refiLPeflitiOfiChanged 
End Sub 

' Di chuyin BindingContext Position din record cuii cOng 
Public Sub LastRecordO * 

Me.BindingContertj^Efftfdoyee).Position = dtEmployee.Rows.Count -1 
End Sub 

' XQ ly Format cho TextBox SalesToDate 

Protected Sub MoneyToString(ByVal sender As Object, ByVal e As 
ConvertEventArgs^ - 

e.Value = CType(e.Value, DecimaOToStringCc’) 

End Sub 

' Di chuyin BindingContext Position den record kit tiip 
Public Sub NextRecordO 

Me. BindingContext(dtEmployee). Position += 1 
End Sub 

‘ Di chuyin BindingContext Position lui ve mdt record 
Public Sub PreviousRecord() 

Me.BindingContext(dtEmployee).Position -= 1 
End Sub 
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’ Hi£n thi chi s6 record hi$n h&nh v£ t6ng s6 record 
Protected Sub ShowCurrentRecordNumber() 
IbtRecordNumber.Text = “Record " & _ 

Me.BindingContext(dtEmployee).Position + 1 & “ of ' 
dtEmployee.Rows.Count . 

End Sub - 


' C$p nh$t gi£ trj cua Sales To Date cho mdi emptoyeekttf figt/dia# dung 
*duy$t qua c&c record. c ''cvnu 

Protected Sub ShowTotalSales() . T T f 

' Lqc dvSales dt/a vko gi£ trj cCta thuQc tfnh Tag % 
dvSates.RowFitter = "EmployeelD = ‘ & txtLtotttara*ilS^ 

End Sub u .» ’M\ ■. • * 

'XOty st/kiQn Pars » cho TextBox Mir* Dafa 
Protected Sub StringToDate(ByValqrei?f)#jj^^^ 

ConvertEventArgs) i )\r . 

Try ■ ; V ; ; 

e. Value * CD$te(e,Vftlu^^ v- 

Catch exp As Exception v..J : 4 - T. ;<,,=»*?„~'j •. 

MsgBox(exp.Message, MsgBpxStyte.drttieat, Mf.Text) 

End Try • 

End Sub 


’Xit ly si/ ki$n Parse cho TextBox Sales To Date .,• 

Protected Sub StringToMoney(ByVal sender As Object, ByVat e Asc 
ConvertEventArgs) -• 

Try 

e.Value = CType(e.Value, Double) 

Catch exp As Exception 

MsgBox(exp.Message, MsgBoxStyle.Critical, Me.Text) 

End Try 
End Sub 
End Class 
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47. Tao mpt ufng dung Offline 

Chucrng trinh ndy bieu diln cdch sijf dung cdc phtfcng thufc cua doi ttfong 
DataSet d£ cho phdp mot ufng dung ldm viec vdi ccr scf dur lieu d ch£ d<? cd ket 
noi (online) hodc khdng k£'t noi thtfdng true (offline). 


|[^ Tao ting dung Offline 

mmm 


P* Select Bos to View/Save RecctcbCMfae 


ID: 

jsERGS 

Add Record 


Company Name: |Be/glund$ srvabbkcip 

Delete Recod 


Lorn act Name: 

| Christina Berglund 

Cancel Edit 


Contact Trtfac 

jOidei Adiinmtfator 




Addiess; 

jBefguvsvagen B 

Cancel AH 


City: 

|tulea 


Region 

j Postal Code: js -958 22 

Reset Fotm 


CounUy: 

| Sweden 




Phone: 

j0921 -12 34 65 * ■* j0921 -12 34 S7 

<< j < | 5 of 91 > | » 



Get CusUniiUJit 



Save Customer 



Cac chufc nana chinh: 

> Chuy^n dur lieu vd thong tin trang thai cdc record cua mot DataSet vdo 
mot file XML. 

> Doc dur li§u vd thdng tin trang thdi cdc record tir m&t file XML vdo m$t 
DataSet. 

> Cdp nhdt ede thay ddi da thtfc hien tren DataSet ldn co sd duf li#u trdn 
SQL Server. 

> SqlCommandBuilder duqc sd dung d£ tao ede l$nh Insert, Update vd 
Delete cho SQL Adapter. 


Project: Tao ung dung Offline 

CustomersDataSet.xsd 

• <?xml version='1.0‘ encodings‘utf-8 1 ?> 

■ <xsd:schema id="CustomersDataSet" xmlns=“" 

xmlns:xsd=‘http://www.w3.org/2001/XMLSchema“ xmlns:msdata=“urn:schemas- 
microsoft-com:xml-msdata"> 

<xsd:element name="Customers‘> 




<xsd:complexType> 

<xsd:all> 

<xsd:element name=“CustomerlD" type="xsd:string‘ /> 

<xsd:element name='CompanyName" type=“xsd:string" /> 

<xsd:element name=*ContactName“ minOccurs="0‘ type="xsd:string“ /> 
<xsd:element name= M ContactYltie" minOccurs="0 , ‘ type='xsd:string‘ /> 


<xsd:element name=‘Address* minOccurs="0" type="xsd:string" /> 
<xsd:eiement name="City* minOccurs?="0‘ type=“xsd:string* /> 
<xsd:element name='Regton* minOccurs=“0“ type= B xsd:string* /> 
<xsd:element names* PostalCode* minOccurs=*0" type=*xsd:string“ /> 
<xsd:element name=*Coyntry“ minOccurs=*0* type= B xsd:string* /> 
<xsd:element name=*Phone" mrnOccurs= B 0 B type=*xsd:string* /> 
<xsd:element name=*Fax* rr}jnQppurs=‘0* type=*xsd:strjng*/> 
</xsd:ali> - ■ - 

</xsd:complexType> , ( 

<xsd:key name=“Constraint1 , < msdpt^:PrjmaryKey= ,, true‘> 

<xsd:selector xpath=\“ /> " ‘ . 

<xsd:field xpath=*CustomeflD“/>' • --'••r - •• 

</xsd:key> - . 

</xsd:element> 

<xsd:element name=“CustomersDataSet* msdfctadsP^S^^edlM ’ 
<xsd:complexType> 

<xsd:choice maxOccurs=*unbounded*> 

<xsd: element ref= B Customers* /> 

</xsd:choice> 

</xsd:complexType> 

</xsd:element> 

</xsd:schema> 


,/V.CrAii iu/ 
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■ 7 **? 7 
•* IV 


frmMain.vb 

Option Strict On 

Imports System.Data.SqlClient 

Imports System.10 


Public Class frmMain 

Inherits System Windows.Forms.Form 


’ dsCuslomers se chita tat ca customer d USA 
Protected dsCustomers As New CustomersDataSet() 




- Coding Tocimiques — 

Protected dsCustomerChanges As New CustomersDataSet() 

Protected daCustomers As SqlDataAdapter 

/ 

' St) dung de tham chiiu din bing chufa thing tin customer 

Protected Const CUSTOMER_TABLE_NAME As String = "Customers" 

Protected Const SQL_CONNEGTION_STRING As String = _ 
"Server=localhost;" & 

“DataBase=Northwfnd;* ! $u; 

"integrated Security=SSPI" 

Protected Const MSDE_CONNECTION_STRING As String = _ 
u Server=(local)\NetSDK;" & _ 

“DataBase=Northwind;" & _ 

"Integrated Security=SSPI" 

Dim DidPreviouslyConnect As Boolean = False 

Dim IsAdding As Boolean = False 

’ Code phat sinh form dupe bd qua 

Private Sub bnAdd_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles bnAdd.Click 
Try \ ■ ■ • 

' Kit thuc cic soqn thio hiin hinh 

BindingContext(dsCu£tomers, "Customers").EndCurrentEdit() 
BindingContext(dsCustomers, "Customers").AddNew() 

Catch exc Aa Exception 

MsgBox(exc.Message, MsgBoxStyle.Critical, Me.Text) 

End Try 

‘ Thim m$t record mdi Thu tyc UpdateViewState se enatte- 
' cic nut di/a trin gii tri niy 
IsAdding = True 
UpdateViewStateQ 
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End Sub 
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Private Sub bnCancel_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles bnCancel.Click 
' Tra Igi cac gia trj g6c 

BindingContext(dsCustomers, "Customers").CancelCurrentEditO 

IsAdding = False 

UpdateViewState() 

End Sub 

Private Sub bnCancelAII_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles bnCancelAII.CIick 
' Trh lai cac gia trj gd'c cho DataSet 
dsCustomers.Customers. RejectChangesQ 
End Sub 

Private Sub bnDelete_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles bnDelete.Click 

' St? dyng phuctng thifc Delete thay cho phuong thtic RemoveAt khi DataSet 
' se cip nh$t dtf li$u nguSn 

dsCustomers.Customers(BindingContext{dsCustomers, _ 

“Customers"). Position). DeleteQ 

UpdateViewStateO 
End Sub 

Private Sub bnFirst_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles bnFirst.Click 

BindingContext(dsCustomers, "Customers").Position = 0 
UpdateViewStateO 

End Sub - 

Private Sub bnGetCustomers_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles bnGetCustomers.Click 
' DCf lieu cd the li'y tCt mot file XML ho$c tit Server 
If chkWorkOffline.Checked Then 
dsCustomers = GetCustomersFromXMLO 
Else 

dsCustomers = GetCustomersFromServer() 

End If 
BindData() 

UpdateViewStateO 
End Sub 
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Private Sub bnLast_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles bnLast.Click 

BindingContext(dsCustomers, “Customers").Position = _ 

BindingContext(dsCustomers, "Customers").Count 
UpdateViewStateO 
End Sub 

Private Sub bnNext_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles bnNext.Click 

BindingContext(dsCustomers, “Customers").Position += 1 
UpdateViewStateO 
End Sub 

Private Sub bnPrev_C!ick(ByVa! sender As System.Object, ByVal e As 
System.EventArgs) Handles bnPrev.Click 

BindingContext(dsCustomers, “Customers").Position -= 1 
UpdateViewStateO 
End Sub 

Private Sub bnReset_Click(ByVal sender As System.Object, ByVal e As 
System EventArgs) Handles bnReset.Click 

' Xoa dQ liiu trong b£ng Customers cua DataSet 
dsCustomers.Customers.ClearO 

' Cap nh$t trang th£i c&c control d4 cho phep l£y di1 lieu 
UpdateViewStateO 
End Sub 

p rivate Sub bnSaveCustomers_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles bnSaveCustomers.Click 
’ Dua cac thay dii vko DataSet 

BindingContext(dsCustomers, 'Customers’).EndCurrentEditO 
’ Co thS thi/c hi$n c$p nhit vko mot file XML hokc len Server 
If chkWorkOffline.Checked Then 

' Gift DataSet di dUOc ghi vko mot file XML 
SaveCustomerslnXML(dsCustomers) 


Else 
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' Lay c&c record duoc thay doi trong DataSet dsCustomers 
dsCustomerChanges = CType(dsCustomers.GetChanges, _ 

CustomersDataSet) 

' Cip nhit duf lieu ngudn neu da co thay doi v& trdn cac thay doi 
‘ vao DataSet hien hdnh 
If Not (dsCustomerChanges Is Nothing) Then 
dsCustomerChanges = SaveCustomersOnServer(dsCustomerChanges) 


' Trdn cac thay doi vdo DataSet neu co thay doi 
If Not (dsCustomerChanges Is Nothing) Then 
dsCustomers.Merge(dsCustomerChanges) 

End If 
End If 
End If 
End Sub 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

' Sao chep bang Customers vao bing CustomersHT de tranh loi khoa ngoai 
SetupTable() 

UpdateViewState() 

End Sub 

Sub BindDataQ 

' X6a tdt ci cac ket dO lidu 
tbCustomerlD.DataBindings.Clear() 
tbCompanyName.DataBindings.ClearO 
tbContactName.DataBindings.ClearQ 
tbContactTitle.DataBindings.Clear() 
tbAddress.DataBindings.Clear() 
tbCity.DataBindings.Clear() 
tbRegion.DataBindings.Clear() 
tbPostalCode.DataBindings.Clear() 
tbCountry. DataBindings.Clear() 
tbPhone.DataBindings.Clear() 
tbFax.DataBindings,Clear() 
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' Kit thudc tinh cua mdi control vio mdt field cda dsCustomers de dO lieu hien 
' thj trin control do. DataBinding se quin ly viec hien thj dut lieu khi ngiJdi set 
' dung duyet, them, xoa, stfa dd li$u trong DataSet. 
tbCustomerlD.DataBihdings.Add(“Text*, dsCustomers, _ 

“Customers. CustomerlD*) 
tbCompanyName.DataBindings.Add(*Text“, dsCustomers, _ 

“Customers. CompanyName*) 
tbContactName.DataBindings.Add(“Text“, dsCustomers, _ 

“Customers. ContactName*) 

tbContactTitle.DataBindings.AddfText", dsCustomers, _ 

“Customers.ContactTitle“) 

tbAddress.DataBindings.Add(“Text“, dsCustomers, l 

‘CustomereiAddress") ; 

tbCity.DataBindings.Add(“Text*, dsCustomers, "Customers.City*) 
tbRegion.DataBindings.Add("Text", dsCustomers, ^Customefs.Region*) 
tbPostalCode. DatdBrndings. Add("Tekr r dSOti aiomers,/JCoStom e rs. PostalCode") 
tbCountry.OataBindirtgfi^UkW'Jext", dsCustomers, "Customers.Country') 
tbPhone.DataBindtrtgs.Arid('Text", dsCustombrs, "Customers.Phone*) 
tbFax. DataBindings.AddP("Text“r'dsCustomers,/Customers.Fax*) 

End Sub ... 



* Nh$n cic record ^ bing &wto&e*$HT4roa§ database Northwind 
Static ConnectionString As^Strmg ^BQtiG^Nft|ECTtON„S7RING 

. '>jVnfr'! ittK .!■ *.r 

Dim ds As New CustomersDataSet() Kf . • . 

Dim frmStatusMessage As New frmStatus() , ; v) 

If Not DidPrevioUslyConnect Then 
frmStatusMessage.Show("Connecting to SQL Server*) 

End If 

' Thi/c hi$n kSt n6i vio SQL Server hodc MSDE cqc bd 
Dim IsConnecting As Boolean = True 

While IsConnecting 

Try 

Dim cnNorthwind As New SqlConnection(ConnectionString) 




424 


— Coding Techniques - 

* SqlDataAdapter dupe sit dung de thiet l$p mQt DataSet 
daCustomers = New SqlDataAdapter( _ 

“SELECT CustomerlD, CompanyName, ContactName, ContactTitle, ' 
& ‘Address, City, Region, PostalCode, Country, Phone, Fax * _ 

& "FROM CustomersHT", _ 
cnNorthwind) 

' Thiet l$p DataSet vdi thong tin tit bang Customers. 
daCustomers.Fill(ds, "Customers") 

r 

' DO lieu da ditdc lay, thoai khdi vdng lap 
IsConnecting = False ' 

DidPreviouslyConnect = True 

Catch exc As Exception 

If Connectionstring = SQL_CONNECTION_STRlNG Then 
' Khdng th£ k£t n6i vao SQL Server, chuySn qua MSDE 
Connectionstring = MSDE_CONNECTION_STRING > 
frmStatusMessage.Show(‘Connecting to MSDE") 

Else 

' Khdng the thi/c hien ket n6i 
frmStatusMessage.CloseO 

MessageBox.Show(“To run this sample, you must have SQL " & _ 

“or MSDE with the Northwind database installed.", _ 

“SQL Server/MSDE not found", _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon.Exclamation) 

End . 

End If 
End Try 
End While 

frmStatusMessage.CloseO 

daCustomers.DisposeO 

Return ds 
End Function 
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Function GetCustomersFromXMLO As CustomersDataSet 
Dim ds As New CustomersDataSet() 

' Dqc mdt file XML vdo DataSet. Sd dung co che DiffGram dS thong tin RowState 
' co thS dddc sd dung dS c$p nhat di7 lieu nguSn khi goi phuong thdc Update 
’ cua SQL Data Adapter. Cd chi' DiffGram cung phai dtidc sCf dung khi goi 
' phddng thdc WriteXML cua DataSet. 

Try 

ds.ReadXml("../dsCustomers.xml K , XmlReadMode.DiffGram) 
ds.Tables(0).TableName = “Customers" 

Catch FileNotFound As FileNotFoundException 

' Dd lieu XML phdi dddc ghi vao trddc khi co the doc no. 

MsgBox{“No XML file available. View data online and save to offline.", 
MsgBoxStyle. Critical) 

End Try 

Return ds 
End Function 

Function SaveCustomersOnServer(ByVal dsCustomerChanges As 
CustomersDataSet) As CustomersDataSet 

1 Cap nh$t bing CustomersHT vdi cac thay doi td DataSet 
Static Connectionstring As String = SQL_CONNECTION_STRING 

Dim frmStatusMessage As New frmStatus() 

If Not DidPreviouslyConnect Then 
frmStatusMessage.ShowfConnecting to SQL Server") 

End If 

Dim IsConnecting As Boolean = True 
While IsConnecting 

Try 

Dim cnNorthwind As New SqlConnection(ConnectionString) 

daCustomers = New SqlDataAdapter( _ 

"SELECT CustomerlD, CompanyName, ContactName, ContactTitle, "_ 

& "Address, City, Region, PostalCode, Country, Phone, Fax ‘ _ 

& ‘FROM CustomersHT", _ 
cnNorthwind) 
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' SqlCommandBuikier xem xet c&u lenh Select va xdy dt/ng lenh SQL de 
' thi/c hiin insert, update va delete. 

Dim oCommandBuild&r As New SqlCommandBuilder(daCustomers) 

.=i' ; ■ ■•••',. , . v V 

daCustomerS.lnsertGptrrniand = oCommandBuilder.GetlnsertCommand 
daCustomers.UpdateCommand * oCommandBuilder.GetUpdateCommand 
daCustomers.DeleteCommand = oCommandBuilder.GetDeleteCommand 

’ Cap nh&t dO HSu nguSn vdi Cetc ddng co thay doi va tri ve 
’ cac ddng c6 thay d&i ' ’ * ' 

If Not (dsCustomerChangea* ^Nothing) Then 
■ PhAiehlcy thi b£ng n&o d& c$p nhdt 
daCustomers.Update(d$CustomerChanges.Tables{0)) 

Return dsCustomerChanges 
Else 

Return Nothing 
End If 

' DO m dS &iffc thodt khdi vdng l&p 

IsConnecting = False • . ; 

DidPrevloua^Corifinaci^irruW ■ 

■ '-To ; ‘‘jgwtfi&t h * .■ * 

Catch sqlExc As SqlE&cdption ; 

Select Case sqlExc.Numb&r J 1 fl • 

Case 17 • / b: " l ' y ' 

'SQL Serverktidng{6n t$i f 

If ConnectionString * $QL_CONp4ECTION_STRING Then 
Connection Strfhg = MSD£_CONNECTION^STRING 
frmStatbsMessage.ShowCConnecting to MSDE") 

Else 

frmStatusMessage.CloseQ 

MessageBox.Show(“To run this sample, you must have SQL “ & _ 
'6r MSDE with the Northwind database installed.', _ 

'SQL Server/MSDE not found', _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon.Exclamation) 

End 
End If 
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Case 2627 

‘ L6i khoa chinh 

MsgBox(“2 Records were added with the same primary key." & 
“ Changes canceled.", MsgBoxStyle.Critical, Me.Text) 
dsCustomers. RejectChanges() 

Exit Function 
End Select 

Catch exc As Exception 

MsgBox(exc.Message, MsgBoxStyle.Critical, Me.Text) 

End Try 
End While 

frmStatusMessage.CloseO 
End Function 

Sub SetupTableO 

' Tqo bing CustomersHT vi insert cac record tit bing Customers 
Static Connectionstring As String = SQL_CONNECTION_STRING 

Dim ds As New Cu$tomersDataSet() 

Dim frmStatubMe&sagiAs New frmStatus() 

If Not DidRrevioustyCbnn<MTben • » , ■ 

frmStatu&Message.S*»^(*Q 6 nneaflngto SOU Server") 

End If v ...,.!r <v T -Pivi'., • -d ' r, 

» , 4 <Of ,-vl ... ■■■ it-:. 

Dim IsConnecting As Boolean 3 = True 
While IsConnecting - t 

Try 

Dim cnNorthwihd As New SqlConnection(ConnectionString) 
cnNorthwind.Open() 

' Bing suf dung cho chitdng trinh niy phii dddc tao . 

‘ D6i ttfQng SqlCommand dung d4 thi/c hi$n cac i&nh SQL 
Dim cmlnitSQL As New SqlCommand() 

' K&t command vio kSt noi database 
cmlnitSQL.Connection = cnNorthwind 
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’ Chon kieu linh li Text 

cmlnitSQL.CommandType = GommandType.Text 

' Kiem tra bing CustomersHT cb t6n t$i chUa 
cmlnitSQL.CommandText = “SELECT countO FROM dbo.sysobjects 
WHERE id = object Jd('CustomersHT')“ 

' ThUc thi lenh 

Dim recordCount As Integer = CType(cmlnitSQL.ExecyteScalar(), Integer) 
If recordCount > 0 Then . ■ . r 

' Neu bang da t6n t?i th) thoat, n&u chiia c6 thi t#o nd V. r 

cmlnitSQL.Dispose() ' 

cn North wind. CloseQ • ■. 

IsConnecting = False 

DidPreviouslyConnect = True ; 

Return . 

End If 

' Tao bing CustomersHT 

cmlnitSQL.CommandText = “CREATE TABLE [CustomersHT] (“ & _ 

“[CustomerlD] [nchar] (5) NOT NULL PRIMARY KEY ,“ & _ 
"[CompanyName] [nvarchar] (40) NOT NULL , “ & _ 
“[ContactName] [nvarchar] (30) NULL , “ & _ 

“[ContactTitle] [nvarchar] (30) NULL , “ & _ 

“[Address] [nvarchar] (60) NULL , “ & _ 

"[City] [nvarchar] (15) NULL , " & _ 

“[Region] [nvarchar] (15) NULL , “ & _ 

“[PostalCode] [nvarchar] (10) NULL ," & __ 

“[Country] [nvarchar] (15) NULL , “ & _ 

“[Phone] [nvarchar] (24) NULL , “ & _ 

“[Fax] [nvarchar] (24) NULL )“ 

' Tht/c hien cau l£nh trin 
cmlnitSQL.ExecuteNonQueryO 
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' Insert dCf lieu til bang Customers vbo bang CustomersHT mdi 
crhlnitSQL.CommandText = "INSERT INTO CustomersHT “ & _ 

"(CustomerlD, CompanyName, ContactName," & _ 
‘ContactTitle, Address, City, Region," & _ 

“PostalCode, Country, Phone, Fax) " & _ 

“SELECT CustomerlD, CompanyName, ContactName," & 
"ContactTitle, Address, City, Region," & _ 

"PostalCode, Country, Phone, Fax FROM Customers" 

' Thi/c hien ciu lenh 
cmlnitSQL.ExecuteNonQueryO 

cmlnitSQL.Dispose() 

crtNorthwind.CloseO 

' ’ DO lipu dacap nh$t thanh c6ng, thoat vdng lap 
IsConnecting = False 
DidPreviouslyConnect = True 

Catch e As SqUException 

if Connection String = SQL_CONNECTION_STRING Then 
Connectionstring = MSDE_CONNECTION_STRING 
frmStatusMessageShow("Connecting to MSDE") 

Else 

frnrtStatusMeesage.CloseO 

MsgSoxCYou muist have iSQL Server ot MSDE with “ & _ 

"the Northwind database installed", MsgBoxStyle.Critical, __ 

- "S(iL Server/MSDE not found") 

’ Th&dl chtfdnp trbh nSu khdng kit hd'i dope 
End 

End If 

Catch e As Exception 

MsgBox(e.Message, MsgBoxStyle.Critical, “General Error") 

End Try 
End While 


End Sub 
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Sub UpdateViewStateO 

' Hien thi vj tri cua record dS ngUdi suf dgng biet dang lam vide tren record 
‘ ndo va co bao nhieu record. 

IbIPosition.Text = (((BindingContext(dsCustomers, "Customers").Position + 
1).ToString + " of “) + BindingContext(dsCustomers, _ 

"Customers").Count.ToString) 

' Neu DataSet co dit lieu th) disable cac nut Read va enable cac nut Update 
If dsCustomers.Customers.Count <> 0 Then 
bnGetCustomers. Enabled = False 
bnAdd. Enabled = True 
bnDelete.Enabled = True 
bnCancel.Enabled = True 
bnCancelAII.Enabled = True 
bnSaveCustomers.Enabled = True 
bnReset.Enabled = True 
Else 

bnGetCustomers. Enabled = True 

bnAdd.Enabled = False 
bnDelete. Enabled = False 

bnCancel.Enabled = False 

bnCancelAII.Enabled = False ^ 

bnSaveCustomers. Enabled = False „ 

bnReset.Enabled = False ... ' ■ 

■ i' r . l.-'-u .r, 

End If r . ‘ : : 

. .. _■ .. •" - , ■. . 'f'nn-y: 

■ ; • i ■ j _ V :.. ; , 

' Cho phdp ngudi sul dyng thay <3& CustomartO kfifotfyrnffl record 
' Khdng cho phdp xoa trong khi thitn m$t record- " ■« -, h , 

If IsAdding Then 1 < f " 

tbCustomerlD. Enabled = True ’ 

bnDelete.Enabled = False 
Else 

tbCustomerlD.Enabled = False - 
End If 

IsAdding = False 
End Sub 
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Function SaveCustomerslnXML(ByVal dsCustomers As CustomersDataSet) As 
Customers DataSet 

' Ghi DataSet vao file XML eye bd Sit dying cd chS DifGram de li/u thong tin 
' RowState hien hanh cua tat ci dur lieu dS SQL Data Adapter cd thS thuc 
' hien cac thao tac thich hdp khi ggi phUdng thde Update. DiffGram cOng 
' phii duoc sCf dung khi doc di 7 lieu td tile XML. 
dsCustomers. WriteXml("../dsCustomers.xmr, Xm I WriteMode. DiffGram) 
Return dsCustomers 

End Function . 

■ V'i. -• . ■< 1 

■ End Class . 


48. Tao mpt Form nh$g* li|u ; ; 

Chddng trinh niky bieu diin edeh tao m$t form nhap duf lieu de them, cdp 
nhat va x6a cac record trong m$t bfing. 


Data Entry Form 


Product List 


1 Alice Mutton 15 ] 1 

Aniseed Syiup 
Boston Crab Meat 
Camembert Pierrot 
Carnarvon Tigers 
Chai 




Product ID 

Product Name 



h? 

[Alice Mutton 



Suppiers 


Units In Stock 

Unit Price 

| Pavlova, Ltd. 

d 

1° 

[39 

Categories 

• ' v ■ ' \ *■ 

Reorder Level 

Units On Order 


|M eat/Poultry 
Qty Per Uni 
120 -1 kg tins 


3 F 


¥ 


Discontinued 


Add 


Update 


Delete 


Refresh 


Cac chufc nanq chinh: 

> ADO .NET dtfdc sii dung di’ them (Insert), x6a (delete), va sura (update) 
c£c record trong bang Products cua database Northwind. Mpt class 
Listltem duoc tao de liru mpt gia tri vh mot kh6a chinh ket vdi gid tri 
d6 di suf dung trong c&c ComboBox trin form. 


Project: Tao mot form nhap lieu 
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Listltem.vb 

• Option Strict On 
Option Explicit On 

• ' Class ndy dUoc sii dung d£ Il/u noi dung va khoa chinh cua mot record ma ta 

■ ‘ muon hien thi trong ListBox 

■ Public Class Listltem 

Private mValue As String ' Luu noi dung cua record 
Private mID As Integer ' LUu khoa chinh cua record 

Public Sub New(ByVal strValue.As String, ByVal irrtID As Integer) 
mValue = strValue 
mID = intID 
End Sub 

Public Sub Nfew() 
mValue = “* 
mID = 0 
End Sub 

Property ID() As Integer 
Get 

Return mID 
End Get 

Set(ByVal Value As Integer) 
mID = Value 
End Set 
End Property 

Property Value() As String 
Get 

Return mValue 
End Get 

Set(ByVal Value As String) 
mValue = Value 
End Set 
End Property 
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' Khi mdt ListBox hign thj mdt phin tit trong t$p hgp cdc phdn tit, no g(?i phddng thitc 
' ToString d£ liy gia trj d& hiSn thj, do dd ta cin override phtfdng thitc ndy d£ 

' class ndy tri vS mValue. 

Public Overrides Function ToStringO As String 
Return mValue 
End Function 

■ End Class 

frmMain.vb 

Option Strict On 

• Option Explicit On 

■ Imports System.Data 

• Imports System.Data.SqlClient 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

Protected Const SQL_CONNECTION_STRING As String = _ 

"Server=localhost;" & _ 

"DataBase=Northwind;" & __ 

"Integrated Security=SSPI;Connect Timeout=5" 

Protected Const MSDE_CONNECTION_STRING As String = _ 
"Server=(local)\VSDotNet;" & _ 

"DataBase=Northwind;" & _ 

"Integrated Security=SSPI;Connect Timeout=5‘ 

Private Connectionstring As String = SQL_CONNECTION_STRING 
Private HasConnected As Boolean = False 
Private Mode As String = "Update" 

• -Code phdt sinh form dutpc bd qua 

-is „ 

' - 'S Private Sub btnAdd__Click(ByVal sender As System.Object, ByVal e As 
> v ^ptem.EventArgs) Handles btnAdd.Click 
vft. ■CtearFormO 
YY Mode = "Add" 

,;S4 * i ' 
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btnDelete. Enabled = False 
btnAdd.Enabled = False 
End Sub 


Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDelete.Click 
DeleteProduct() 

End Sub 


Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal, e As 
System.EventArgs) Handles btnUpdate.Click 

' KiSm tra che dd dS quyi't dinh hinh dQng ttfdng ting 
If Mode = "Add" Then ' 

AddProductj) ” * C 

Else ' " 

UpdateProduct() 

End If . / u - 


f iO r U/. 


End Sub 


Jv •' .Co :’v 

Lv, itfc civ- i- 


Private Sub frmDataEntry_Load(ByVal sender As Systerh.dbjecC 1\ 

ByVal e As System.EventArgs) _ 

7 ,1*3* /, ‘S '; . "-■■!’*-! A* \f£ ‘ ' '. 

Handles MyBase.Load 

' Thi&t tip t&t ci danh sich vi ComboBox dupe s& dgng trin form 

J. , i f j^'<* . * i/ ] . vIK ■ ^ ^ ■ r* " 

PopulateCategoryComooO 


PopulateSupplierComboO 

PopulateProduclList() 


(. ,-Ub V 


End Sub 

Private Sub 1st P rod ucts_S elected Index Changed^ ByVal sender As System.Object, 

ByVal e As System.EventArgs) __ 

Handles IstProducts.SetectedlndexChanged 

PopulateFormQ 
btnDelete.Enabled = True 
btnAdd.Enabled = True 
Mode = “Update* 


End Sub 
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Private Sub AddProduct() 

‘ Thu tyc niy thSm mdt record mdi vio database khi ngi/di stf dyng nhdn vio 
' nut Update vi dang d chS d6 ADD (mode= M ADD") 

' Kiim tra cac gii trj tren form 
If Not lsValidForm() Then 
Exit Sub 
End If 

Dim cnSQL As SqlConnection 

Dim cmSQL As SqlCommand 

Dim strSQL As String 

Dim intRowsAffected As Integer 

Dim ProductName As String = txtProductName.Text 

Try 

* Xiy dt/ng ciu l$nh Insert d£ thdm m$t sin phim mdi vio bing Products 
strSQL = “INSERT Products VALUES (“ A _ ' 

PrepareStr(PfoductName) & Y & 

CType(cbSuppliers.ltems(cbSuppliers.Selected Index), Listftem).ID 
CType(cbCategories.ltems(cbCategories.Selectedlndex) 1 List Item). ID & & 

PrepareStr(txtQtyPerUnit.Text) & V A_ 
txtUnitPrice.Text A & _ c , 

txtUnitstnStock.Text A A _ 
txtUnitsOnOrder.Text A V A _ 

IxtReorderLevel.Text A A _ 

CType(llf(chkDiscontinued.Checked, “I", “0“), String) A *)“ 


cnSQL = New SqlConnection(ConnectionString) 
cnSQL.OpenQ 

cmSQL = New SqlCommand(strSQL, cnSQL) 
cmSQL.ExecuteNonQueryO 

' D6ng vi giii phong cac doi ttfpng 
cnSQL.CIose{) 
cmSQL.Dispose() 
cnSQL. DisposeQ 
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' Cip nhit l?i danh sach Product List 

PopulateProductList() 

FindProductByName(lstProducts, ProductName) 

Catch Exp As SqlException 

MsgBox(Exp.Message, MsgBoxStyle.Critical, 'SQL Error*) 
Catch Exp As Exception 

MsgBox(Exp.Message, MsgBoxStyle.Critical, 'General Error') 
End Try 
End Sub 

Private Sub ClearFormO 

’ X6a n$i dung trin form 
txtProductlD.Text = " 
txtProductName.Text = " 
txtQtyPerUnit.Text = 
txtUnitPrice.Text * '0.00' 
txtUnitslnStock.Text^'0' 
txtUnitsOnOrder.TiXt » f 0* 
txtReorderLevel.Text m 'O' ;> 

chkDiscontinued.Checked * False 
cbSuppliers.Selectedlndex *-1 
cbCategories.Selectedlndex * *1 



Private Sub DeieteProduct() 

* ThO tyc niy sd dung 66 xda m$t record product ra khdi database khi ngUdi 
' sit dyng nh£n vdo nut Delete 

Dim cnSQL As SqlConnection 
Dim cmSQL As SqlCommand 
Dim strSQL As String 
Dim intRowsAffected As Integer 
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Try 

' XAy di/ng cAu linh Delete dS x6a sAn phim hiSn hAnh ra khdi bing 
strSQL = "DELETE FROM Products “ & _ 

"WHERE ProductID = " & Clnt(txtProductlD.Text) 

cnSQL = New SqlConnection(ConnectionString) 
cnSQL.OpenQ 

cmSQL = New SqlCommand(strSQL, cnSQL) 
intRowsAffected = cmSQL. ExecuteNonQuery() 

If intRowsAffected <> 1 Then 

MsgBox("Deiete Failed. Product ID " & txtProductID.Text & _ 

" not found.", MsgBoxStyle.Critical, “Delete") 

End If 

' D6ng vA giAi phdng cAc d6i tuong 
cnSQL.Cios e() 
cmSQL. Dispose^ 
cnSQL.Dispose() 

PopulateProductOstQ 

Catch e As SqlException 

MsgBox(e. Message, MsgBoxStyle. Critical. “SQL Error") 

Catch e As Exception 

MsgBox(e. Message, MsgBoxStyle. Critical, "General Error") 

End Try ^> :i 

End Sub 

Private Sub FindKemBylD(ByVal cbCombo As QomboBox, ByVal strlD As String) 
' Thu tyc nAy sit dyng dS t)m m$t item trong m$t ComboBox vA chgri nd 
Dim bFound As Boolean 
Dim Listltem As Listltem 
Dim ItemCount As Integer 


Listltem = New Listltem() 
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ItemCount = 0 

While Not bFound Or ItemCount <= cbCombo.Items.Count -1 
Listltem = CType(cbCombo.ltems(ltemCount), Listltem) 

If Listltem.ID = Clnt(strlD) Then 
cbCombo.Selectedlndex = ItemCount 
bFound = True 
End If 

ItemCount += 1 
End While 

If Not bFound Then 
cbCombo.Selectedlndex = -1 
End If 

End Sub 

Private Sub FindProductByName(ByVal IbList As ListBox, ByVal strValue As 
String) 

' Thu tuc nay siJt dyng de tim mdt Product trong Product List Box vh chgn no 
Dim blsFound As Boolean 
Dim Listltem As Listltem 
Dim ItemCount As Integer 

Listltem = New List!tem() 

ItemCount = 0 

* DuySt qua danh sach cho dS'n khi tim thi'y 
While Not blsFound And ItemCount <= IbList.ltems.Count -1 
Listltem = CType(lbList.ltems(ltemCount), Listltem) 

If Listltem.Value = strValue Then 
IbList.Selectedlndex = ItemCount 
blsFound = True 
End If 

ItemCount += 1 
End While 

If Not blsFound Then 
IbList.Selectedlndex = 0 
End If 
End Sub 
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Private Function IsValidFormO As Boolean 

' Kiim tra d4 bio dim cic field cd gia trj hop li 
If txtPfoductName.Text = Or _ 
txtQtyPerUnit.Text =Or _ 
txtUnitPrice.Text = ■" Or _ 
txtUnitslnStock.Text =Or _ 
txtUnitsOnOrder.Text = ““ Or _ 
txtReorderLevel.Text = Or _ 
cbCategories. Selected Index = -1 Or_ 
cbSuppliers.Selectedlndex = -1 Or _ 

Not IsNumeric(txtUnitPrice.Text) Or_ 

Not IsNumeric(txtUnitslnStock.Text) Or_ 

Not IsNumeric(txtUnitsOnOrder.Text) Or _ 

Not IsNumeric(txtReorderLevel.Text) Then 

MsgBox('Please enter a valid value for each field._ 

MsgBoxStyle.Exclamation, Me.Text) 

Return False 
Else 

Return True 
End If 

End Function 

Private Sub PopulateCategoryCombo() 

’ Thu toe niy thiift lap m6t ComboBox trin form vdi mdt danh sich cic Categories 

Dim cnSQL As SqlConnection 
Dim cmSQL As SqlCommand 
Dim drSQL As SqlDataReader 
Dim strSQL As String 
Dim objListltem As Listltem 

Dim frmStatusMessage As New frmStatus() 

If Not HasConnected Then 

frmStatusMessage.ShowfCohnecting to SQL Server") 

End If 


Dim IsConnecting As Boolean = True 
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While IsConnecting 
Try 

' X&y di/ng l&nh Select dS Hy Category Name tCt bing Categories 
strSQL = 'SELECT CategorylD, CategoryName FROM Categories' 

cnSQL = New SqlConnection(ConnectionString) 
cnSQL.Open() 

cmSQL = New SqlCommand(strSQL, cnSQL) 
drSQL = cmSQL.ExecuteReader() 

cbCategories.ltems.Clear() 

’ Duyit qua t$p kSt qui vA cho cAc Category Name vAo ComboBox 
Do While drSQL.ReadO 

objListltem = New L(stltem(drSQL.Item('CategoryName*).ToStringO, 
Clnt(drSQL.ttem('C«egorylD‘))) 
cbCategories. Items. Add(obfl_tetftem) 

Loop 

IsConnecting = False 
HasConnected = True 

drSQL.Close() 

cnSQL.Close() - 

cmSQL.Dispose() 
cnSQL.Dispose() 

Catch e As SqlException 

If Connectionstring = SQL_CONNECTION_STRING Then 
Connectionstring = MSDE_CONNECTION_STRING 
frmStatusMessage.Show("Connecting to MSDE') 

Else 

frmStatusMessage.CloseQ 

MsgBox('To run this sample you must have SQL Server ot MSDE.", 
MsgBoxStyle.Critical, _ 

'SQL Server/MSDE not found') 


End 
End It 
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Catch e As Exception 

MsgBox(e.Message, MsgBoxStyle.Critical, ‘General Error’) 

End Try 

frmStatusMessage.CloseO 
End While 
End Sub 

Private Sub PopulateForm() 

Dim cnSQL As SqlConnection 
Dim cmSQL As SqlCommand 
Dim drSQL As SqlDataReader 
Dim strSQL As String 
Dim objListltem As Listltem 
Dim strlD As String 

Try 

’ i£y khda chfnh tCt ListBox 

objListltem = CType(lstProducts.Selectedltem, Listltem) 

* Xiy dt/ng ciu I$nh Select 6$ i£y thdng tin sin ph£m tdbing Products 
strSQL = ‘SELECT ProductID, ‘ & _ 

‘ ProductName, ’ & _ 

‘ QuantityPerUnit, ‘ & _ 

“ UnitPrice, “ & _ 

“ UnitsInStock," & _ 

‘ Units On Order, * & _ 

* ReorderLevel," & _ 

" Discontinued, * & _ 

" SupplierlD, ‘ & _ 

" CategorylD ‘ & _ 

‘FROM Products “ & _ 

‘WHERE ProductID = * & objListltem.ID 

cnSQL = New SqlConnection(ConnectionStnng) 
cnSQL.Open() 

cmSQL = New SqlCommand(strSQL, cnSQL) 
drSQL = cmSQL. ExecuteReader() 
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If drSQL.Read() Then * 

’ Thiet l$p form vdi dJ HSu 

txtProductID.Text = drSQL.Item{"ProductlD“).ToString<) 
txtProductName.Text() = drSQLItem(“ProductName").ToString() 
txtQtyPerUnlt.Text() = drSQL.Item('QuantityPerUnit").ToString() 
txtUnitPrice.Text() = drSQL.ltem('UnitPrice‘).ToString() 
txtUnitslnStockText() = drSQLItem("UnitslnStock“).ToString() 
txtUnitsOnOrder.Text() = drSQL.Item(“UnitsOnOrder").ToString() 
txtReorderLevel.Text() = drSQL.Item(*ReorderLever).ToString() 
chkDiscontlnued. Checked = CType(drSQL.Item(“Discontinued"), Boolean) 
strlD = drSQL.Item(“SupplierlD*).ToString() 

FlndltemBy|D(cbSuppliers, strlD) 

strlD = drSQL.Item("CategorylD“).ToString() 

FindltemByl^XcbCategories, strlD) 

End If ‘ ' 

drSQt.CloseO 

cnSQL.CIose()n;- 

cmSQL.Dtepose() 

cnSQL.DisboseO . 

Catch e As SqlException 

MsgBox(e.Message, MsgBoxStyle.Critical, “SQL Error") 

Catch e As Exception 

MsgBox(e.Message, MsgBPxStyle.Critical, "General Error 11 ) 

End Try 
End Sub 

Private Sub PopulateProductUstQ ; ;r.. 

' Thu tyc n&y thiSt l$p ListBox trdn form vdi danh sioft cdc sin ph£m 
Dim cnSQL As SqlConnection 
Dim cmSQL As SqlCommand 
Dim drSQL As SqlDataReader 
Dim strSQL As String 
Dim objListltem As Listltem 

Try 

' Xiy dt/ng ciu ISnh Select di l£y c6c ProductName tii bing Products 
strSQL = “SELECT ProductName, ProductID FROM Products“ 
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cnSQL = New SqlConnection(ConnectionString) 
cnSQL.OpenQ 

cmSQL = New SqlCommand(strSQL, cnSQL) 
drSQL = cmSQL.ExecuteReader() 

IstProducts. Items.Clear() 

’ Duy$t qua tip dQ HSu kSt qui bing class DataReader. DataReader dude 
' sCtdyng v) chi cin duyit tdi se co hiSu qui hdn. 

Do While drSQL.Read() 

objListltem = New Listltem(drSQL.Item{“ProductName').ToStringO, _ 

1 Clnt(drSQL.Item('ProductlD"))) 

IstProducts. Items. Add(objListltem) 

Loop 

If IstProducts.Items.Count > 0 Then 
, IstProducts.SetSelected(0, True) 

End If 

drSQL.CIose() 
cnSQL. Close() 
cmSQL.Dispose() 
cnSQL. Dispose() 

Catch e As SqlException 

MsgBox(e.Message,MsgBoxStyle.Critical, 'SQL Error'} 

Catch e As Exception 

MsgBox(e.Message, MsgBoxStyle.Critical, 'General Error') 

End Try v: 

End Sub .. . T 

Private Sub PopulateSupplierComboQ 

* Thu tyc niy thi&t lip ComboBox vdi danh sach cac Supplier 
Dim cnSQL As SqlConnection 
Dim cmSQL As SqlCopimand 
Dim drSQL As SqtDataReader 
Dim strSQL As String 
Dim objListlten/As Listltem 
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Try 

strSQL = 'SELECT SupplierlD, CompanyName FROM Suppliers' 

cnSQL = New SqlConnection(ConnectionString) 
cnSQL.Open() 

cmSQL = New SqlCommand(strSQL, cnSQL) 

drSQL = cmSQL.ExecuteReader() ~ \ 

cbSuppliers.Items.Clear() ; ; 

Do While drSQL.Read() 

objListltem = New Listltem(drSQL.ItenirCornpanyName').ToString(), _ 

Clnt(drSQL.ItemfSuppliertD*))) o 
cbSuppliers. Items. Add (objListltem) 

Loop 

drSQL.CIose() : ... , . 

cnSQL.CloseQ 
cmSQL. Dispose() 
cnSQL.DisposeO 

Catch e As SqlException 

MsgBox(e.Message, MsgBoxStyle.Critica!, 'SQL Error*) * 

Catch e As Exception • c . : 

MsgBox(e.Message, MsgBoxStyte.Critical, 'General Error*) 

End Try 
End Sub 

Private Function PrepareStr(ByVal strValue As String) As String 

' H&m nay nhin v&o mdt chudi v£ tgo mQt chuSi cd thS sCf dong dt/0c trong 
’ lenh SQL bkng c£ch bgc nd trong d£u ngodc don “ v£t xii ty cic khoing tr&ng. 
If strValue.Trim() = ** Then 
Return 'NULL' 

Else 

Return & strValue.Trim() & *" 

End If 

End Function 
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Private Sub UpdateProduct() 

' Thu tyc n£y ditpc sO dyng 64 cip nh$t mdt record da tdn t$i vdi cac gii tri tr£n form 
Dim cnSQL As SqtConnection 
Dim cmSQL As SqlCommand 
Dim strSQL As String 
Dim intRowsAffected As Integer 

’ Kiim tra cAc giA tri tr&n form 
If Not lsVaiidForm() Then 
Exit Sub 
End If 

Try 

' XAy di/ng lenh Update d4 c$p nh$t bing Products 
strSQL = ‘UPDATE Products SET“ & _ 

‘ ProductName = * & PrepareStr(txtProductName.Text) & _ 

“ .QuantityPerUnit = “ & PrepareStr(txtQtyPerUnit.Text) & _ 

' .UnitPrice = “ & txtUnitPrice.Text & _ 

" .UnitsInStock = “ & txtUnitsInStock.Text & _ 

- .UnitsOnOrder - “ & txtUnitsOnOrder.Text & _ 

“ .ReorderLevel = * & txtReorderLevel.Text & _ 

“ .SupplierlD = “ & _ 

CType(cbSuppliers.!tems(cbSuppliers.Selectedlndex), List!tem).ID & _ 

“ .CategorylD = * & _ 

CType(cbCategories.ltems(cbCategories.Selectedlndex), Listltem).ID & _ 

’ .Discontinued = * & CType(llf(chkDiscontinued.Checked, “1‘, "0“), _ 

String) & " “ & _ 

■WHERE ProductID = ‘ & Clnt(txtProductlD.Text) 

cnSQL = New SqlConnection(ConnectionString) 
cnSQL.Open() 

cmSQL = New SqlCommand(strSQL, cnSQL) 
intRowsAffected = cmSQL.ExecuteNonQueryO 

If intRowsAffected <> 1 Then 

MsgBoxfUpdate Failed/, MsgBoxStyle.Critical, "Update*) 

End If 
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Cac chufc nanq chinh: 

Chiiorng trinh nay tao mot database, m6t bdng, mpt stored procedure, v& 
mpt view. Sau d6 cdc lenh SQL difcrc thirc hign dl thi£t l&p bdng vdi dOf li$u 
lay tir database Northwind. Sau d6 truy v&n bdng nky de lay dtf lieu dua vho 
mot DataSet v& hien thi tren mot DataGrid. 

Be chay ufng dung nh£n F5. Neu muon chay lai tfng dung sau khi da tao 
database, thi can d6ng t&t cd cdc ufng dung dang duy tri k£t ndi den database 
ndy. 


Project: Tao mot Database 

frmMain.vb 

Option Strict On 

Imports System.Data.SqlCIient 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

Protected Const SQL.CONNECTIONLSTRING As String = _ 
■'Server=localhost;" & _ 

"DataBase=;" & _ 

"Integrated Security=SSPI" 

Protected Const MSDE_CONNECTION_STRING As String = _ 
“Server=(local)\NetSDK;" & _ 

“DataBase=;* & _ 

‘Integrated Security=SSPI" 

Protected Const CONNECTION_ERROR_MSG As String = _ 

'To run this sample, you must have SQL or MSDE. " 

Protected bolDidPreviouslyConnect As Boolean = False 

Protected bolDidCreateTable As Boolean = False 

Protected connectionstring As String = SQL_CONNECTION_STRING 


' Code phM sinh form dupe bd qua 
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MessageBox.Show("Table ‘NW_Seafood‘ successfully created.", _ 

"Table Creation Status", _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 

Catch sqlExc As SqlException 

MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 
End Sub 

' Xti ly cho nut Create View. 

Private Sub btnCreateView_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCreateView.Click 

Dim northwindConnection As New SqiConnection(connectionString) 

Dim strSQL As String = _ 

"USE HowToDemo" & vbCrLf & _ 

"IF EXISTS (“ & _ 

"SELECT * " & _ 

"FROM HowToDemo.dbo.sysobjects " & _ 

"WHERE Name = 'GetSeafood 1 " & _ 

"AND TYPE = V)“ & vbCrLf & _ 

"BEGIN" & vbCrLf & _ 

"DROP VIEW GetSeafood" & vbCrLf & _ 

“END" 


Dim cmd As New SqlCommand(strSQL, northwindConnection) 
Try 

northwindConnection.Open() 
cmd.ExecuteNonQuery() 

Catch sqlExc As SqlException 

MessageBox.Show(sqlExc.ToString, “SQL Exception Error!", 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 

Try 

cmd.CommandText = _ 

■CREATE VIEW GetSeafood AS “ & _ 

"SELECT * “ & _ 

"FROM NW.Seafood" 


cmd.ExecuteNonQueryO 
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northwindConnection.Close() 

lblArrow4. Visible = True 
lblStep5. Enabled = True 
btnPopulate.Enabled = True 

MessageBox.Show(“View 'GetSeafood' successfully “ & _ 

“created.", "SQL View Creation Status', _ 

MessageBoxButtons.OK, MessageBoxIcon.information) 

Catch sqlExc As SqlException 

MessageBox.Show(sqlExc.ToString, “SQL Exception ErrorP, _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 
End Sub 

1 Xit ly cho nut Display. Thu tuc ndy IS’y thdng tin cac san phSm til 
‘ biing NW Seafood dda vao mdt DataSet dS hiSn thi tren mot DataGrid. 
Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDisplay.Click 

If IsNothing(dgSeafood.DataSource) Then 

Dim strSQL As String = _ 

“USE HowToDemo' & vbCrLf & _ 

“SELECT * “ & _ 

“FROM GetSeafood* 


Dim northwindConnection As New SqlConnection(connectionString) 
Dim cmd As New SqlCommand(strSQL, northwindConnection) 

Dim da As New SqlDataAdapter(cmd) 

Dim dsSeafood As New DataSetQ 
da.Fill(dsSeafood, “Seafood") 

' Quy djnh tieu de cho DataGrid, ket no vao DataSet, v& hien thi no. 
With dgSeafood 

CaptionText = "Northwind Seafood" 

.DataSource = dsSeafood.Tables(O) 

.Visible = True 


End With 
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Cac chufc nana chinh: 

Chuong trinh n&y tao mot database, mpt bdng, m$t stored procedure, vh 
mot view. Sau d6 cdc l£nh SQL dtfdc thuc hi$n de thiet lap bdng vdi dtf lieu 
l&y tii database North wind. Sau d6 truy v£n bdng n&y d£ lay dur lieu dua v&o 
mQt DataSet vh hi€n thi tr4n m$t DataGrid. 

B£ chay tfng dung nh&n F5. Neu mu6n chay lai tfng dung sau khi da tao 
database, thi cin ddng t^Lt c& cdc utng dung dang duy tri k&t noi den database 
n&y. 

Project: Tao mot Database 

frmMaln.vb 

■ Option Strict On 

■ Imports System.Data.SqlClient 

■ Public Class frmMain 

Inherits System.Windows.Forms.Form 

Protected Const SQl_CONNECTION_STRING As String = _ 

"Server=localhost;“ & _ 

'DataBase=; B & _ 

'Integrated Security=SSPl“ 

Protected Const MSDE_CONNECTION_STRING As String = _ 
“Server=(local)\NetSDK;" & _ 

"DataBase=;" & _ 

"Integrated Security=SSPI" 

Protected Const CONNECTION_ERROR_MSG As String = _ 

“To run this sample, you must have SQL or MSDE. " 

Protected bolDidPreviouslyConnect As Boolean = False 

Protected bolDidCreateTable As Boolean = False 

Protected connectionstring As String = SQL_CONNECTION_STRING 


* Code phdt sinh form dupe bd qua 
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' Thu tuc nky thi/c hien mot lenh SQL xoa database (n&u da tSn t$i) vk t$o nd 
Private Sub CreateTable() 

Dim strSQL As String = _ 

“IF EXISTS (■ & _ 

“SELECT *" & _ 

“FROM master.sysdatabases " & _ 

“WHERE Name = ’HowToDemo')“ & vbCrLf & _ 

"DROP DATABASE HowToDemo" & vbCrLf & _ 

"CREATE DATABASE HowToDemo“ 

Dim frmStatusMessage As New frmStatus() 

If Not bolDidPreviouslyConnect Then 

frmStatusMessage.Show("Connecting to SQL Server") 

End If 

Dim bollsConnecting As Boolean = True 
While bollsConnecting 
Try 

Dim northwindConnection As New SqlConnection(connectionString) 

' Doi tUQng SqlCommand dupe sut dyng dS th(/c hi$n cac l$nh SQL 
Dim cmd As New SqlCommand(strSQL, northwindConnection) 

’ Md ki't n6i, thi/c hien ISnh, vk ddng k£t n6i. Stjf dung ExecuteNonQuery 

1 se hieu qui hdn khi khdng cin trk vS dU li$u 
northwindConnection.Open() 
cmd.ExecuteNonQueryO 
northwindConnection.Close{) 

' DO HSu da truySn di, thoat vdng lap 
bollsConnecting = False 
bolDidPreviouslyConnect = True 
bolDidCreateTable = True 
frmStatusMessage. Close() 

' Hiin thj cac control cho bude k& tiep 
IblArrowl. Visible = True 
lblStep2.Enabled = True 
btnCreateTable.Enabled = True 
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MessageBox.Show("Database 'HowToDemo' successfully created!’, 
"Database Creation Status’, MessageBoxButtons.OK, _ 
MessageBoxIcon.Information) 

Catch sqlExc As SqlException 

MessageBox.Show(sqlExc.ToString, “SQL Exception Error!", _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit While 

Catch exc As Exception 

If connectionstring = SQL_CONNECTlON_STRING Then 
' Khdng thS kit noi vio SQL Server, chuySn qua MSDE 
connectionstring = MSDE_CONNECTION_STRING 
frmStatusMessage.ShowfConnecting to MSDE") 

Else 

' Khdng the ket noi vio SQL hay MSDE 
frmStatusMessage.Close{) 

MessageBox.Show(CONNECTION_ERROR_MSG, _ 
“Connection Failed!", MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 

End 
End If 

End Try 
End While 

frmStatusMessage.CloseO 
End Sub 

' Thief lap giao dien de ngUdi sCt dung lim viic dung theo thd ft/ 

Private Sub ResetUI() 

IblArrowt .Visible = False 
lblStep2.Enabled = False 
btnCreateTable.Enabled = False 
lblArrow2.Visible = False 
lblStep3. Enabled = False 
btnCreateSP. Enabled = False 
lblArrow3.Visible = False 
lblStep4.Enabled = False 
btnCreateView. Enabled = False 
lblArrow4.Visible = False 
lblStep5.Enabled = False 



450 


— Coding Tv-ohm*-• 

btnPopulate.Enabled = False 
lblArrow5.Visible = False 
lblStep6. Enabled = False 
btnDisplay. Enabled = False 
With dgSeafood 
Visible = False 
.DataSource = Nothing 
■TableStyles.Clear() 

.Visible = False 
End With 
End Sub 

‘ Xft ly cho nut Create Database 

Private Sub btnCreat^DB_Crick(ByVal sender As System.Object, ByVal e As 
System.EventAfgs) Handles btnCreateDB.Click 

' Neu nut H Create Table " dang cho phep, co nghTa la ngudi set dung 
‘ mud'n tao lai database. 

If btnCreateTable.Enabled Then 

Dim dr As DiatogResult = MessageBox.Showf Recreating the database “ & 
“will undo the other database object creation steps you have “ & _ 

"made so far. Do you wish to proceed?*, “Database Re-creation * & _ 
“Warning*, MessageBoxButtons.YesNo, MessageBoxIcon.Warning) 

If dr = DialogResult.Yes Then 
ResetUlO 
CreateTable{) 

End If 
Else 

CreateTable() 

End If 
End Sub 

' XiS ly cho nut Create Procedure. Thu tuc nay thuc hi$n hai lenh SQL, mot ISnh 
' xda Procedure neu no da t6n tai vd lenh cdn lai tao Procedure. SQL Server 
' khong cho phep ket hop hai lenh nay cung luc trong code. 

Private Sub btnCreateSP_Click(ByVal sender As System,Object, ByVal e As 
System.EventArgs) Handles btnCreateSP.Click 

Dim northwindConnection As New SqlConnection{conrvectionString) 
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Dim strSQL As String = _ 

"USE HowToDemo" & vbCrlf & _ 

“IF EXISTS (“ &_ 

“SELECT * " & _ 

“FROM HowToDemo.dbo.sysobjects “ & _ 
“WHERE Name = 'AddSeafood' K & _ 

“AND TYPE = 'p')“ & vbCrLf & _ 

“BEGIN" & vbCrlf & _ 

“DROP PROCEDURE AddSeafood" & vbCrLf & 
"END" 


Dim cmd As New SqlCommand(strSQL, northwindConnection) 

Try 

northwindConnection.Open() 
cmd.ExecuteNonQueryO 

Catch sqlExc As SqlException 

MessageBox.Show(sqlExc.ToString, "SQL Exception Error!“, _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 

Try 

cmd.CommandText = _ 

“CREATE PROCEDURE AddSeafood AS“ & vbCrLf & _ 

"INSERT INTO NW_Seafood“ & vbCrLf & _ 

“(ProductlD, ProductName, QuantityPerUnit, UnitPrice)" & _ 
“SELECT ProductlD, ProductName, QuantityPerUnit, UnitPrice " & 
"FROM Northwind.dbo.Products “ & _ 

"WHERE CategorylD = 8" 

cmd.ExecuteNonQueryO 
northwindConnection.Close() 

lblArrow3. Visible = True 
lblStep4.Enabled = True 
btnCreateView. Enabled = True 

MessageBox.Show(“Stored Procedure ’AddSeafood' successfully “ & 
"created.", “SPROC Creation Status", _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 
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Catch sqlExc As SqlException 

MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _ 
MessageBoxButtons.OK, MessageBoxlcon.Error) 

End Try 
End Sub 

' Xuf ly cho nut Create Table 

Private Sub btnCreateTable_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCreateTable.Click 

Dim strSQL As String = _ 

“USE HowToDemo" & vbCrLf & _ 

"IF EXISTS (' & _ 

‘SELECT * " & _ 

‘FROM HowToDemo.dbo.sysobjects " & _ 

“WHERE Name = ‘NW_Seafood‘ * & _ 

‘AND TYPE = 'u‘)“ & vbCrLf & _ 

"BEGIN" & vbCrLf & _ 

‘DROP TABLE HowToDemo.dbo.NW_Seafood" & vbCrLf & „ 

"END" & vbCrLf &_ 

"CREATE TABLE NW_Seafood (" & _ 

"ProductID Int NOT NULL," & _ 

“ProductName NVarChar{40) NOT NULL." & _ 

"QuantityPerUnit NVarChar(20) NOT NULL," & _ 

‘UnitPrice Money NOT NULL,* & _ 

"CONSTRAINT [PK_Product] PRIMARY KEY CLUSTERED" & _ 
"(ProductID))" 

Try 

Dim northwindConnection As New SqlConnection(connectionString) 

Dim cmd As New SqlCommand(strSQL, northwindConnection) 

northwindConnection.Open() 
cmd.ExecuteNonQuery() 
northwindConnection.CloseQ 
lblArrow2.Visible = True 
!blStep3.Enabled = True 
btnCreateSP.Enabled = True 
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' Si? dung dd'i tUdng TableStyle de dinh dang DataGrid 
Dim dgTableStylel As New DataGridTableStyle() 

With dgTableStylel 

AlternatingBackColor = Color.Lavender 
BackColor = Color.WhiteSmoke 
.ForeColor = Color.MidnightBlue 
.GridLineColor = Color.Gainsboro 

.GridLineStyle = System.Windows.Forms.DataGridLineStyle.None 
HeaderBackColor = Color.MidnightBlue 
.HeaderFont = New Font('‘Tahoma\ 8.0!, FontStyle.Bold) 
.HeaderForeColor = Color.WhiteSmoke 
LinkColor = Color.Teal 

‘ DCing quen quy djnh thuoc Unh MappingName 
.MappingName = "Seafood' 

.SelectionBackColor = Color.CadetBlue 
.SelectionForeColor = Color. WhiteSmoke 
End With 

' Si? dung cac dd'i tupng ColumnStyle d4 djnh d$ng cho tcfng cQt 
Dim grdColStylel As New DataGridTextBoxColumnQ 
With grdColStylel 
.HeaderText = “ID#" 

MappingName = "ProductID" 

Width = 50 
End With 

Dim grdColStyle2 As New DataGridTextBoxColumn() 

With grdColStyle2 
.HeadefText = "Name" 

.MappingName = "ProductName" 

.Width = 180 
End With 

Dim grdColStyle3 As New DataGridTextBoxColumnQ 
With grdColStyle3 

.HeaderText = "Quantity/Unit" 

MappingName = "QuantityPerUnit" 

Width = 140 


End With 
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Dim grdColStyle4 As New DataGridTextBoxColumn() 

With grdColStyle4 
.HeaderText = “Price" 

.MappingName = “UnitPrice* 

Width = 70 
End With 

dgTableStylel .GridColumnStyles.AddRange _ 

(New DataGridColumnStyieO _ 

{grdColStylel, grdColStyle2, grdColStyle3 r grdColStyle4}) 
dgSeafood.TableStyles.Add(dgTableStylel) 

Catch sqlExc As SqlException 

MessageBox.Show(sqlExc.ToString, “SQL Exception Error!", _ 
MessageBoxButtons.OK, MessageBdxIcon.Error) 

End Try 
End If 
End Sub 

' XCt ly cho nut Populate. Thu tyc n£y thi/c hiSn stored procedure lay thong tin 
' san phctm tif bing Products cua database Northwind duta vao bang NW Seafood. 
Private Sub btnPopulate_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnPopulate.Click 

Dim strSQL As String = “EXECUTE HowToDemo.dbo.AddSeafood" 

Try 

Dim northwindConnection As New SqlConnection(connectionString) 

Dim cmd As New SqlCommand(strSQL, northwindConnection) 

northwindConnection. Open() 

cmd.ExecuteNonQueryO 

northwindConnection.Close() 

lblArrow5. Visible = True 

lblStep6.Enabled = True 

btnDisplay. Enabled = True 

MessageBox.Show(“Table successfully populated ", _ 

“Data Addition Status", _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 




Catch sqlExc As SqlException 

MessageBox.Show(sqlExc.ToString > "SQL Exception Error!", _ 
MessageBoxButtons.OK, MessageBoxtcon.Error) 

End Try 
End Sub 

Private Sub frmMain_load(ByVal sender As System.Object, ByVai e As 
System.EventArgs) Handles MyBase.Load 
ResetUIQ 
End Sub 
■ End Class 

50. Tao ling dung theo mo hinh 3 ldp (3-Tier) 

Chucrng trinh n&y cho biet c£ch xSy dtfng mQt umg dung dur lieu theo mo 
hinh 3 ldrp. Stir dung SQL Server ho&c MSDE l&m ldrp Back end (stir dung 
database Nortwind), Ldp truy xuat duf Ii$u - ldp giufa, v& form ket xu£t dur 
lieu - front end. Front end Ik mgt form ket dtir li$u thong dung vk diing de 
duyet qua ckc record v& hi£n thi nhi§u c£p dur lieu chi ti£t c6 quan he den 
moi record. 


T a a flng dung Iheo mo hinh 'J ldp 


UUJiJ 


Master j Detail view oif the Northwind Suppliers / Products Reload | Update 


Suppliers 


i SupplieriO j CompenyN ContadNa 1 ContadTitt ! Address \ City | Region Postal] 


25 Ma Matson Jean-Guy Marketing 2960 Rue Montreal Quebec HI J1 

J26 PastaButti Giovanni G Order Adm ViadeiGel Salerno (null) 84100 

{27 Escargots Marie Dela Soles Man 22. rue H. Montceau (null) 71300 



iProducilD ProductNo j SupplierlD J CotegorylD; QuonfoyPe i UnilPrice ;UnitslnStocUnitsOnOr 

* ;59 RadetteC 28 4 5kgpkg. 55 79 0 

_tso Comember 28 4 15-300 gr 34 19 0 

* ~ 



Cac chute nanq chmh: 

> Cdch tao ldrp truy xuat dur li§u d ldrp giura, ldrp nky se tao mpt ddl ttfcfng 
DataSet duoc stir dung trong front-end. 
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> Cdch cdc sir kien dirge sur dung trong back-end de cung c£p ede th6ng 
tin trang thdi cho front-end. 

> Vi du ket dor li$u d front-end. 

> Cdch mot DataSet chtfa hai DataTabie v& k£t vao nhi§u control cd dong 
bo lan nhau. 

Project: Tao ung dung theo mo hinh 3 lop 

DataAccessLayer.vb 

Option Strict On 

Imports System.Data.SqlClient 

• ' Class n&y cung cap truy xu£t dSn database cho front-end. N6 truyin mdt DataSet 

■ ' chifa thong tin Supplier v£t Product cho front end. 

■ Public Class DataAccessLayer 

Protected Const CONNECTION_ERROR_MSG As String = _ 

“To run this sample, you must have SQL or MSDE.‘ 

Protected Const MSDE_CONNECTION_STRING As String = _ 
‘Server=(local)\NetSDK;“ & _ 

"DataBase=northwind;" & _ 

‘Integrated Security=SSPI" 

Protected Const SQL_CONNECTION_STRING As String = _ 

"Server=localhost;“ & _ 

‘DataBase=northwind;“ & _ 

“Integrated Security=SSPI" 

Protected DidPreviouslyConnect As Boolean = False 

' Tao hai DataAdapter cho hai bing 

Private sdaSuppliers As SqlDataAdapter 

Private sdaProducts As SqlDataAdapter 

Protected strConn As String = SQL_CONNECTION_STRING 


' Khai bao cac su kien dung de cung ci'p thdng tin cho front-end 
Public Event ConnectionStatusChange(ByVal status As String) 
Public Event ConnectionFailure(ByVal reason As String) 

Public Event ConnectionCompleted(ByVal success As Boolean) 
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' Tao DataSet chiia hai bang dCf lieu Supplier va Product 
Public Function CreateDataSet() As DataSet 

Dim dsSupplierProducts As DataSet 

1 Phat sinh st/ kien cho biet la ngUoi sd dyng thUc hien ket noi 
If Not DidPreviouslyConnect Then 

RaiseEvent ConnectionStatusChangefConnecting to SQL Server") 

End If 

' Thuc hien ket nd'i vao SQL Server (hodc MSDE) cue bo 
Dim IsConnecting As Boolean = True 
While IsConnecting 
Try 

Dim scnnNW As New SqlConnection(strConn) 

Dim strSQL As String = _ 

■SELECT * FROM Suppliers" 

Dim semd As New SqlCommand(strSQL, scnnNW) 

' SqlDataAdapter dung doi tuong SqlCommand de di/a dCf lieu vao DataSet 
sdaSuppliers = New SqlDataAdapter(scmd) 

' Doi tUdng SqlCommandBuilder tU dong phat sinh cac ienh SQL can 
' thiet dS cap nhat database sau nay 
Dim seb As New SqlCommandBuilder(sdaSuppliers) 

' Tao mdi mot DataSet va di/a bang diu tien vao 
dsSupplierProducts = New DataSet() 

Me.sdaSuppliers.Fill(dsSupplierProducts, "Supplier") 

' Tao mdi mot SqlDataAdapter, Ian nay truyen Ienh SQL vao 
sdaProducts = New SqlDataAdapterfSELECT * FROM Products", _ 

scnnNW) 

Dim scbProducts As New SqlCommandBuilder(sdaProducts) 

' Diia bang thd hai vdo DataSet 
sdaProducts.Fill(dsSupplierProducts, "Product") 
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' De thi'y di/oc giao dien Master-Details tren cung mdt DataGrid, bo ghi 
' chu cac ddng code sau, chung thiet lip mdt moi quan hi cha con. 

'dsSupplierProducts.Relations.Add("Supplier_Products", _ 

' dsSupplierProducts. Tables("Supplier"). Columns("SupplierlD"), _ 

‘ dsSupplierProducts. Tablesf'Product"). Columns("SupplierlD")) 

' DO lieu da dUdc lay thanh cdng, thoat vong lip 

IsConnecting = False 
DidPreviouslyConnect = True 

Catch exp As Exception 

If strConn = SQL_CONNECTION_STRING Then 

' Khdng the ket noi vio SQL Server. Chuyen qua MSDE 
strConn = MSDE_CONNECTION_STRING 
RaiseEvent ConnectionStatusChangefConnecting to MSDE") 

Else 

' Khdng the ket ndi vio SQL hay MSDE 
RaiseEvent ConnectionFailure(CONNECTION_ERROR_MSG) 

End 
End If 
End Try 
End While 

' Thong bao thinh cdng 
RaiseEvent ConnectionCompleted(True) 

' Tra ve DataSet co dQ lieu 
Return dsSupplierProducts 
End Function 

' Thu tuc nay nhan vao mot DataSet va cip nhat cic thay doi 
' vio database North wind 

Public Sub UpdateDataSet(ByVai inDS As DataSet) 

' Neu DataSet truyen vio li Nothing thi thoat thu tuc 
If inDS Is Nothing Then 
Exit Sub 


End If 
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' TnJdc tiin kiem tra cac DataAdapter da dUdc tao, 

' n£u chda thi goi CreateDataSet de tao chung. 

If (Me.sdaProducts is Nothing Or Me.sdaSuppliers Is Nothing) Then 
CreateDataSet() 

End If 

' Cap nhat DataSet. Can phii thde hien moi thd theo dung thd tU, trit 
' khi tit thuoc tinh EnforceConstraints 

' Ta co hai each dS cap nhat dCf lieu 

' Cach diu tiSn la tat thuoc tinh EnforceConstraints 
inDS. EnforceConstraints = False 
Me.sdaProducts.Update(inDS, "Product") 

Me.sdaSuppliers.Update(inDS, "Supplier") 

’ Ta cung co the thUc hien cip nhat theo thd td de khdng xay ra Idi rang buoc. 
'If Not inDS.GetChanges(DataRowState.Deleted) Is Nothing Then 
' Me.sdaProducts. Update(inDS. GetChanges(DataRowState. Deleted), _ 

' “Products") 

' Me.sdaSuppliers. Update(inDS. GetChanges(DataRowState. Deleted), _ 

' "Suppliers") 

‘End If 

'If Not inDS.GetChangesfDataRowState. Detached) Is Nothing Then 
' Me.sdaProducts. UpdatefinDS. GetChanges{DataRowState. Detached), _ 

' "Products") 

' Me.sdaSuppliers. Update{inDS. GetChanges(DataRowState. Detached), __ 

‘ "Suppliers") 

‘End If 

'If Not inDS.GetChanges(DataRowState.Added) Is Nothing Then 
’ Me.sdaSuppliers.Update(inDS.GetChanges(DataRowState.Added), _ 

' “ Suppliers") 

‘ Me.sdaProducts.Update(inDS.GetChanges(DataRowState.Added), _ 

' "Products") 


'End If 
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'If Not inDS.GetChanges(DataRowState.Modified) Is Nothing Then 
' Me. sdaSuppliers. Update(inDS. GetChanges(DataRowState. Modified), 
' ”Suppliers") 

' Me.sdaProducts. Update(inDS. GetChangesfDataRowState. Modified), 

' "Products") 

'End If 

Catch exc As Exception 

1 Thong bao cho front-end biet co I6i x&y ra 
RaiseEvent ConnectionFailurefUnable to update the data source.") 

End Try 
End Sub 

End Class 

frmMain.vb 

Option Strict On 

Imports System.Data.SqtClient 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code phat sinh form dUoc bd qua 

Protected DidPreviouslyConnect As Boolean = False 

Private dsSupplierProducts As DataSet 

Private dtSupplier As DataTable 

Private dtProduct As DataTable 

Private dvSupplier As DataView 

Private dvProduct As DataView 

Protected WithEvents m_DAL As DataAccessLayer 

Dim frmStatusMessage As New frmStatus() 

' Xit ly nut > 

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnNext.Click 
' Di chuyen den record ke tiep 
NextRecord() 

End Sub 
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' Xd ly nut < 

Private Sub btnPrevious__Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnPrevious.Click 
' Di chuyen lui ve mdt record 
PreviousRecordO 
End Sub 

’ Refresh dCf lieu bang each goi lai formjoad. Hanh dong nay lay dd lieu td 
’ database ma khdng thde hien thay doi 

Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnRefresh.Click 
‘ Gqi thu tuc load form 

frmMain_Load(Me, New System.EventArgs()) 

End Sub 

' Nut ndy gCli cac lenh Update den doi tupng DataAccessLayer, va load lai dd lieu 
Private Sub btnUpdate_Ciick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnUpdate Click 
Dim m_DAL As New DataAccessLayerQ 
m_DAL.UpdateDataSet{dsSupplierProducts.GetChangesO) 
frmMain__Load(Me, New System.EventArgs()) 

End Sub 

’ Xd ly sd kien PositionChanged 

Protected Sub dtSupplier__PositionChanged(ByVal sender As Object, ByVal e As 
System.EventArgs) 

BindSuppliersGrid() 

BindProductsGridQ 
End Sub 

' Xd ly sd kien KeyDown cho form. Thupc tinh KeyPreview phai co gia tri True. 
Private Sub frmMain_KeyDown(ByVal sender As Object, ByVal e As 
System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown 

' Cho phep ngdoi sd dung duyet qua cac record bang each sd dung ban phtm 
If e.KeyCode = Keys.Right Then NextRecordO 
If e.KeyCode = Keys.Left Then PreviousRecordO 
End Sub 
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Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 

frmStatusMessage = New frmStatusQ 
GetDataSet() 

BindSuppliersGrid() 

BindProductsGrid() 

End Sub 

‘ Thu tyc niy bio dim neu mot dong mdi di/yc thSm vio, mot SupplierlD dung 
' dude tu dong them vio. Chu y: Cung can co thu tuc cho sU kien 
' grdProducts.CurrentCellChanged 

Private Sub grdProducts_Click(ByVal sender As Object, ByVai e As 
System.EventArgs) Handles grdProducts.Click 

' Neu la dong mdi, ta phii ti/ ddng dda gia trj vao trUdng SupplierlD 
' (vi diy li mot form Master-Details) 

IfTypeOf (grdProducts.Hem{grdProducts.CurrentRowlndex, 2)) Is DBNull Then 
' DSy li ddng mdi, do do cho vio m$t SupplierlD dung 
grdProducts.ltem(grdProducts.CurrentRowlndex, 2) = _ 
grdSuppliers.ltem(grdSuppliers.CurrentRowlndex, 0) 

End If 
End Sub 

Private Sub grdProducts_CurrentCellChanged(ByVat sender As Object, ByVal e As 
System.EventArgs) Handles grdProducts.CurrentCellChanged 
grdProducts.Select(grdProducts.CurrentCell.RowNumber) 

IfTypeOf (grdProducts.ltem(grdProducts.CurrentRowlndex, 2)) Is DBNull Then 
grdProducts.ltem(grdProducts.CurrentRowlndex, 2) = _ 
grdSuppliers.ltem(grdSuppliers.CurrentRowlndex, 0) 

End If 
End Sub 

’ XCt ly si/ kien Click trin DataGrid, phit sinh khi ngitdi s£t dung nhan vio khung - 
' khdng phii li ddng hay cdt, Do dd, cin xd ly thim sd kien CurrentCellChanged 
Private Sub grdSuppliers_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles grdSuppliers.Click 

' Ket dd lieu cho Iddi Products di/a tren record dddc chon trong grdSuppliers 
BindProductsGrid() 

End Sub 



465 


— Coding Tomojques — 


Private Sub grdSuppliers_CurrentCellChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles grdSuppliers.CurrentCellChanged 
' Lim n6i bit ddng dupe ch<pn 

grdSuppliers.Select(grdSuppliers.CurrentCell.RowN umber) 
BindProductsGrid() 

End Sub 


' Dong form frmStatusMessage khi ket n6i hoin tit 

Private Sub mJDAL_ConnectionCompleted(ByVal success As Boolean) Handles 
m_DALConnectionCompleted 
f rm Status M essage. C los e () 

End Sub 

' Thing bao cho ngUdi si dung ni'u DAL co Idi ket nd'i 
Private Sub m_DAL_ConnectionFailure(ByVal reason As String) Handles 
m_DAL.ConnectionFailure 

MsgBox(reason, MsgBoxStyle.Critical, Me.Text) 

End Sub 

’ Hien thj thong bao 

Private Sub m_DAL_ConnectionStatusChange(ByVal status As String) Handles 
mJDAL.ConnectionStatusChange 
frmStatusMessage. Show(status) 

End Sub 

' Ket va djnh dang hJdi Products di/a trin record duoc chgn trin hfdi Suppliers 
Sub BindProductsGrid() 

1 Li'y SupplierlD hien hinh bkng each dCmg thuoc tfnh CurrentRowIndex 
' cua DataGrid, sau 66 truy xuat den c6t “SupplierlD H de li’y SupplierlD 
Dim strCurrentSupplierlD As String = _ 

dvSupplier(grdSuppliers.CurrentRowlndex)("SupplierlD“).ToString 

If strCurrentSupplierlD = Then 
strCurrentSupplierlD = "-I" 

End If 

' Lqc cac Products de hien thj dua trin SupplierlD 
dvProduct.RowFilter = “SupplierlD = " & strCurrentSupplierlD 
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' DAt tieu dS vA kit DataSource cho DataGrid 
With grdProducts 

.CaptionText = 'Products" 

DataSource = dvProduct 
End With 
End Sub 

' KS't dd lieu vAo Iddi Suppliers 
Sub BindSuppliersGrid() 

' Quy djnh tiSu d4 vA ket DataSource 
With grdSuppliers 

.CaptionText = "Suppliers* 

DataSource = dvSupplier 
End With 
End Sub 

‘ Tao DataSet chda hai bkng Supplier vA Products, vA cAc DataView. 

' DataSet dddc lA'y td d6i tdpng DataAccessLayer 
Sub GetDataSetQ 

' Thdng bAo cho ngddi sur dpng biSt dd HSu lAy id DAL 
frmStatusMessage.ShowfRetrieving Data From Data Access Layer") 

' Tao mpt instance cua DataAccessLayer vA truy cAp dd lieu 
If m_DAL Is Nothing Then 

m_DAL = New DataAccessLayer() 

End If 

' Goi CreateDataSet d£ dda dd lipu vAo DataSet ctjc bp 
dsSupplierProducts = m_DAL.CreateDataSetO 

' Quy djnh cAc bien DataTable d£ $d dpng sau nAy 
dtSupplier = dsSupplierProducts.Tables("Supplier") 
dtProduct = dsSupplierProducts.Tables("Product") 

' Quy djnh cac DataView I A cAc DataView mAc nhiSn cua cAc DataGrid 
dvSupplier = dtSupplier.DefauItView 
dvProduct - dtProduct.DefauItView 


End Sub 
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' Di chuySn Position cua Supplier dSn record k£ tiSp 
Public Sub NextRecordQ 

grdSuppliers.UnSelect(grdSuppliers.CurrentRowlndex) 
grdSuppliers.CurrentRowIndex +- 1 
grdSuppliers.Select(grdSuppliers.CurrentRowlndex) 
End Sub 

' Di chuySn lui v4 mdt record 
Public Sub PreviousRecord() 

grdSuppliers.UnSelect(grdSuppliers.CurrentRowlndex) 
If grdSuppliers.CurrentRowIndex > 0 Thdn 
grdSuppliers.CurrentRowIndex -= 1 
End If 

grdSuppliers.Select(grdSuppliers.CurrentRowlndex) 
End Sub 

End Class 

frmStatus.vb 

■ Option Strict On 

■ Public Class frmStatus 

Inherits System.Windows.Forms.Form 

■ 1 Code phat sinh form difpc bo qua 

Public Overloads Sub Show(ByVal Message As String) 
IbIStatus.Text = Message 
Me.ShowQ 

Application. DoEventsO 
End Sub 
• End Class 
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51. Doc va ghi cac hinh anh vao Database 


Chuong trinh n&y chi cdch doc vk ghi cdc hinh dnh v&lo m6t database. 



Cac chufc ngnq chinh: 

> Chuong trinh nky sfr dung m$t TabControl dl chia Ikm ba viing l&m 
viec chinh. Tab Setup cho ph6p tao mOt bdng mdi trong database 
Northwind d$ luu cdc hinh dnh. Tab Save cho phdp chon vh xem cdc 
hinh dnh, sau d6 luu n6 vdi ki£u duf li$u nhi ph&n v&o database. Tab 
Manage cho ph6p xem vk x6a cdc hinh &nh da luu trong database. 

Project: Doc va ghi cac hinh anh vao Database 


frmMain.vb 

Option Strict On 
Imports System.Data.SqlClient 
Imports System.Text 
Imports System. 10 

Public Class frmMain 

Inherits System.Windows.Forms.Form 
Protected Const SQL_CONNECTION_STRING As String = 
“Serve r=localhost;" & _ 

“DataBase=Northwind; , ‘ & _ 

"Integrated Security=SSPI" 
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Protected Const MSDE_CONNECTION_STRING As String = _ 
“Seiver=(local)\NetSDK;‘ & _ 

"DataBase=Northwind;" &_ 

''Integrated Security=SSPI" 

Protected Const CONNECTION_ERROR_MSG As String = _ 

"To run this sample, you must have SQL or MSDE." 

Protected da As SqlDataAdapter 

Protected cbd As SqlCommandBuilder 

Protected dsPictures As DataSet 

Protected didPreviouslyConnect As Boolean = False 

Protected connectionstring As String = SQL_CONNECTION_STRING 

' Code phat sinh form dupe bd qua 

‘ XCi ly nut Browse, cho phip ngildi si} dung chqn m6t h)nh inh, hi£n thj nd 
‘ trong mdt Picture Box dS luu vao database. 

Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnBrowse.Click 

' Sti dung m6t OpenFileDialog de cho phep ngildi sCf dung chon h)nh inh. 
With OpenFileDialogl 
.InitialDirectory = "C:\" 

.Filter = "All FileslVIBitmapsl\bmplGIFsl*.giflJPEGsl*.jpg" 

.Filterlndex = 2 
End With 

' Khi ngi/di sd dung nh£n nut Open, hien thj h)nh inh trong PictureBox vi 
' hiin thj dudng din diy dO. 

If OpenFileDialogl .ShowDialogO = DialogResult.OK Then 
With PictureBoxI 

.Image = lmage.FromFile(OpenFileDialog1 .FileName) 

SizeMode = PictureBoxSizeMode.Centerlmage 
.BorderStyle = BorderStyle.Fixed3D 
End With 

IbIFilePath.Text = OpenFileDialogl .FileName 
End If 
End Sub 
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' Xut ly nut Delete, cho phep ngtfdi sCf dyng xda m$t h'mh inh li/u trong database 
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDelete.Click 

' Khi khdng co phin tuf nio dupe chQn, Selectedlndex = -1 
If IstPictures.Selectedlndex < 0 Then 

MessageBox.Show(‘There are no images in the database to delete.’, _ 

“Empty Database!’, MessageBoxButtons.OK, MessageBoxIcon.Information) 

Else 

' SCf dung SqlCommandBuilder dS l£y l$nh delete vi cip nh$t DataSet 
' sau khi xoa mdt ddng ti/dng ting vdi h)nh dupe ChQn trong DataSet 
dsPictures.Tables(0).Rows(lstPictures.Selectedlndex),Delete() 
da.UpdateCommand = cbd.GetDeleteCommand 
da.Update(dsPictures) 

' Xoa h)nh inh vi tin file 
IbIFileName.Text = ’’ 

PictureBox2.Image = Nothing 
End If 
End Sub 

' XCf ly nut Display, cho phep ngildi suf dpng hi£n thj mpt h)nh inh dupe 
' Idu trong database 

Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDisplay.Click 
If IstPictures.Selectedlndex < 0 Then 
MessageBox.Show(’There are no images in the database to display.*, _ 
“Empty Database!’, MessageBoxButtons.OK, MessageBoxIcon.Information) 

Else 

' KiSu duf lieu Image trong SQL Server li kiiu dCt li$u nhj phin. Do do, d£ 

' phat sinh mdt h)nh inh til n6 ta phii tao d6i tupng Stream chda duf liiu nhj 
’phin. Sau do co th£tao h)nh inh bing each gpi Image.FromStream(). 

Dim arrPicture() As Byte = _ 

CType(dsPictures.Tables(0).Rows(lstPictures.Selectedlndex)(“Picture“), _ 
Byte()) 

Dim ms As New MemoryStream(arrPicture) 

With PictureBox2 

.Image = Image.FromStream(ms) 

.SizeMode = PictureBoxSizeMode.Centerlmage 
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.BorderStyle = BorderStyle.Fixed3D 
End With 

IblFileName.Text = _ 
dsPictures.Tables(0).Rows(lstPictgres.Selectedlndex)(“FileName“).ToString 

‘ Dong dd'i tUQng Stream dS giai phong t£i nguydn 
ms.Close() 

End If 
End Sub 

’ Xil ly nut Create Table, cho phep xoa (n£u da tdn t$i) v£ tao mdt bing 
' Picture trong database Northwind 

Private Sub btnModifyDB„C!ick(ByVal sender As System.Object, ByVal e As 
SysJem.EventArgs) Handles btnModifyDB.Click 

Dim strSQL As String = _ 

"IF EXISTS C & _ 

■SELECT * " & _ 

"FROM northwind.dbo.sysobjects " & _ 

'WHERE NAME = 'Picture' “ & _ 

‘AND TYPE = ’u')‘ & vbCrLf & _ 

■BEGIN'&vbCrLf&_ 

'DROP TABLE northwind.dbo.picture" & vbCrLf & _ 

•END' & vbCrLf & _ 

"CREATE TABLE Picture (“ & „ 

"PicturelD Int IDENTITY(1,1) NOT NULL, 1 * & _ 

■[FileName] Varchar(255) NOT NULL," & _ 

"Picture Image NOT NULL," & _ 

‘CONSTRAINT [PK.Picture] PRIMARY KEY CLUSTERED" & _ 
“(PicturelD))" 

Dim frmStatusMessage As New frmStatus() 

If Not didPreviouslyConnect Then 

frmStatusMessage.ShowfConnecting to SQL Server') 

End If 


Dim isConnecting As Boolean = True 
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While isConnecting 
Try 

Dim northwindConnection As New SqlConnection(connectionString) 

Dim cmd New SqlCommand(strSQL, northwindConnection) 

northwindConnection.Open() 
cmd.ExecuteNonQueryO 
northwindConnection.Close() 

isConnecting = False 
didPreviouslyConnect = True 
frmStatusMessage.Close() 

MessageBox.Show("Table successfully created.", “Table Creation Status', 
MessageBoxButtons.OK, MessageBoxIcon. Information) 

Catch sqlExc As SqlException 

MessageBox.Show(sqlExc.ToString, 'SQL Exception Errorr, _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit While 

Catch exc As Exception 

If connectionstring = SQL_CONNECTION_STRING Then 
connectionstring = MSD E_CON N ECTION_STRING 
frmStatusMessage.Show(“Connecting to MSDE“) 

Else . - 

frmStatusMessage.CloseQ 

MessageBox.Show(CONNECTION_ERRORJWSG, _ 

“Connection Failed!", MessageBoxButtons.OK, _ 1 
MessageBoxIcon. Error) 

End 
End If 
End Try 
End While 

frmStatusMessage.Close() 

End Sub 
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' XCt ly nut Save, cho phep ngitdi sit dgng li/u hinh dnh dutpc hien thi 
' trong PictureBox vao database. 

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSave.Click 

1 CHUAN Bj DO LIEU DE TRUYEN CHO DATABASE 
' Ta chi c4n UJu ten file, khdng can litu di/dng dan diy du. Do do, Split di/dng 
' dan, tao mot mang chuoi. Sau do ddo ngitdc mang de ta truyen phan tit dau 
' tiSn vdo SQL Parameter 

Dim arrFilenameQ As String = Split(lblFilePath.Text, “\") 
arrFilename.Reverse(arrFilename) 

' KiSu dCt lieu Image cua SQL Server Id kiiu dO lieu nhi phan. Do do, de li/u no 
' vdo database ta cin chuyen htnh anh sang mang cac byte. Co the sit dyng 
' d6i ti/dng FileStream dS md file hinh inh vd dpc nd vdo mot stream, nhi/ng 
' MemoryStream vdi phUdng thufc Image.Save se de ddng hon. 

Dim ms As New MemoryStream() 

PictureBoxI.image.Save(ms, PictureBoxI.Image.RawFormat) 

Dim arrlmage() As Byte = ms.GetBuffer 

' Dong Stream d4 giai phdng tdi nguydn 
ms.Close() 

Dim frmStatusMessage As New frmStatus() 

If Not didPreviouslyConnect Then 
frmStatusMessage.Show(‘Connecting to SQL Server’) 

End If 

Dim isConnecting As Boolean = True 
While isConnecting 

Try 

Dim northwindConnection As New SqlConnection(connectionString) 

Dim strSQL As String = _ 

’INSERT INTO Picture (Filename, Picture)’ & _ 

"VALUES (©Filename, ^Picture)’ 


Dim cmd As New SqlCommand(strSQL, northwindConnection) 
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With cmd 

' Them cac tham s6 cin thiet cho Idnh SQL PicturelD la mot trUdng 
' identity (trong MS Access, Id trUdng AutoNumber), do do chi can 
’ truyen cac gia trj cho hai trUdng con lai. 

. Parameters.Add(New SqlParameter("<§Filename“, _ 
SqlDbType.NVarChar, 50)).Value = arrFilename(O) 

.Parameters.Add(New SqlParameter(“@Picture\ _ 

SqlDbType.Image)).Value = arrlmage 
End With 

northwindConnection.Open() 

cmd.ExecuteNonQueryO 

northwindConnection.CloseO 

isConnecting = False 
didPreviouslyConnect = True 
frmStatusMessage.CloseO 

MessageBox.Show(arrFilename(0) & “ saved to the database/, _ 
‘Image Save Status", MessageBoxButtons.OK, _ 

MessageBoxIcon. Information) 

Catch sqlExc As SqlException 

MessageBox.Show(sqlExc.ToString, “SQL Exception Error!*, _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit While 

Catch exc As Exception 

If connectionstring = SQL_CONNECTION_STRING Then 
connectionstring = MSDE_CONNECTION_STRING 
frmStatusMessage.ShowfConnecting to MSDE‘) 

Else 

frmStatusMessage.CloseO 

MessageBox.Show(CONNECTION_ERROR_MSG, _ 

“Connection Failed!", MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 

End 
End If 
End Try 
End While 


End Sub 
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' Xii ly sd kien SelectedlndexChanged cho TabControl, de DataSet dtfdc tao va 
‘ kS't vao ListBox khi ngiidi sut dung chgn tab Manage. 

Private Sub TabControl1_SelectedlndexChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles TabControll .SelectedlndexChanged 

If TabControll .Selectedlndex = 2 Then 

Dim frmStatusMessage As New frmStatus() 

If Not didPreviouslyConnect Then 

frmStatusMessage.ShowfConnecting to SQL Server") 

End If 

Dim isConnecting As Boolean = True 
While isConnecting 
Try 

Dim northwindConnection As New SqlConnection(connectionString) 

Dim cmd As New SqlCommand("SELECT * ‘ & _ 

“FROM Picture", _ 
northwindConnection) 
da = New SqlDataAdapter(cmd) 

1 SqlCommandBuilder dugc set dung dS xoa cac h)nh imh khdi 
1 database trong thu tuc btnDelete 
cbd = New SqlCommandBuilder(da) 
dsPictures = New DataSetQ 
da.Fill(dsPictures) 

isConnecting = False 
didPreviouslyConnect = True 
frmStatusMessage.Close{) 

' Hiin thi cac ten file 
With IstPictures 

.DataSource = dsPictures.Tables(O) 

.DisplayMember = “FileName“ 

* End With 

Catch sqlExc As SqlException 

MessageBox.Show(sqlExc.ToString, “SQL Exception Error!", _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit While 
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Catch exc As Exception 

If connectionstring = SQL_CONNECTION_STRING Then 
connectionstring = MSDE_CONNECTION_STRING 
frmStatusMessage.ShowfConnecting to MSDE") 

Else 

frmStatusMessage.CloseO 

MessageBox.Show(CONNECTION_ERROR_MSG, _ 
“Connection Failed!", MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 

End If 
End Try 
End While 
End If 
End Sub 
End Class 


52. Truy xuat va xvt ly di? li£u sii dung 
DataReader 


Churcfng trinh nky bi&j diln nhiiu cdch suf dung DataReader de truy xuat 
duf lieu va suf dung n6 d£ dda duf li§u v&o ComboBox, TextBox vh cdc control 
khde. 


dunq DataReader truy xuat va xCtty dir heu 




Create Sprocs No Patams | input Patam | All Type* j 
Thtfcthi m§t query trong database MS Access. 


£et the ID Most Expensive Products 


Product Name 

Price 

Cote de B laye 

$263 50 

Thuringer Rostbratwurst 

$123.79 

Mishi Kobe Niku 

$97. Ml 

Sir Rodney's Marmalade 

$61.00 

Carnarvon tigers 

$62.50 

Raclette Coudavault 

$55.00 

Mani*nup Dried Apples 

$53.00 

T arte au sucre 

$49.30 

Ipoh Coflee 

$46.00 

Rbstle Sauerkraut 

$45.60 
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Cac chufc nana chinh: 

> Chitang trinh tao cdc Stored procedure trong database Northwind cua 
SQL Server bdng cdch thirc thi cdc l£nh SQL chucin thong qua cdc class 
trong namespace System. Data. SqlClient. 

> Thirc hien mdt cau truy van (query) c6 trong database Northwind phi£n 
ban Microsoft Access. Sur dung cdc class trong namespace 

System .Data.OleDb. 

> Thirc hien mot stored procedure co y£u cAu tham sb truyen vdo va dira 
tap k§t qua vdo mot DataGrid. 

> Thuc hi^n mot stored procedure c6 yeu cau tham stf truyen vao, c6 ket 
qua xuat ra vd c<5 gid tri trd vl. 

> So sdnh cdch suf dung DataSet vd DataReader dira duf lieu vdo mot 
ComboBox. 

Project: Su dung DataReader truy xuat va xu ly du lieu 

Category.vb 

' Category Id class ti/ tao ditdc sit dang de ket dU HSu vao mdt ComboBox. 

■ ‘ Chu y cac thudc tinh dS ket dtJ lieu phai Readonly. 

Class Category 

Dim JD As Integer 

Dim _Name As String 

Sub New(ByVal intID As Integer, ByVal strName As String) 

JD = intID 
JVIame - strName 

End Sub 

Public Readonly Property ID() As Integer 
Get 

Return JD 
End Get 

End Property 

Public Readonly Property NameQ As String 
Get 

Return JMame 
End Get 

End Property 

End Class 
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frmMain.vb 

Option Strict On 
Imports System.Data.SqlClient 
Imports System.Data.OleDb 
Imports System.Text 

Public Class frmMain 

Inherits System.Windows.Forms.Form < 

Protected Const ACCESS_CONNECTION_STRING As String = _ 
“Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ANorthwind.mdb" 

Protected Const CONNECTION_ERROR_MSG As String = _ 

"To run this sample, you must have SQL ‘ & _ 

"or MSDE with the Northwind database installed." 

Protected Const MSDE_CONNECTION_STRING As String = _ 
"Server=(local)\NetSDK;" & _ 

"DataBase=Northwind;" & _ 

"Integrated Security=SSPI" ' 

Protected Const SQL_CONNECTION_STRING As String = _ 

"Server=localhost;" & _ 

"DataBase=Northwind;* & _ 

“Integrated Security=SSPI" 

Private DidPreviouslyConnect As Boolean = False 
Private HasCreatedSprocs As Boolean = False 
Private sdr As SqlDataReader 
Private strConn As String 

’ Code phat sinh form difdc bo qua 

' XCt ly nut Create Sprocs. Suf dung cac class trong namespace 
' System. Data. SqlClient dS thi/c thi cac linh SQL, cac lenh n&y x6a cAc stored 
' procedure (neu no da tSn tai) va tao lai chung. 

Private Sub btnCreateSprocs„Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCreateSprocs.Click 

strConn = SQL_CONNECTION_STRING 
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Dim frmStatusMessage As New frmStatus() 

If Not DidPreviouslyConnect Then 

frmStatusMessage.ShowfConnecting to SQL Server’) 

End If 

Dim IsConnecting As Boolean - True 
While IsConnecting 
Try 

Dim scnnNorthwind As New SqlConnection(strConn) 

’ Lenh nay xoa stored procedure " GetProducts " n&u nd da tdn tai 
Dim strSQL As String = _ 

"IF EXISTS (’&_ 

"SELECT * " & _ 

"FROM northwind.dbo.sysobjects “ & _ 

“WHERE Name = 'GetProducts' * & _ 

“AND TYPE ='p')“ & vbCrLf & _ 

“DROP PROCEDURE GetProducts’ 

Dim scmd As New SqlCommand(strSQL, scnnNorthwind) 

Try 

’ Md ket nd'i 
scnnNorthwind.OpenQ 

' Kit no 7 thanh cong do do thoit vdng l$p 
IsConnecting = False 
DidPreviouslyConnect = T rue 
frmStatusMessage.Close() 

' Thi/c hiSnn lenh SOL 
scmd.ExecuteNonQueryO 

Catch expSql As SqlException 

MsgBox(expSql.ToString, MsgBoxStyle.Critical, Me.Text) 
frmStatusMessage.Close() 

Exit Sub 
End Try 
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' Tao stored procedure "GetProducts" 
scmd.CommandText = _ 

“CREATE PROCEDURE GetProducts " & vbCrLf & •_ 
"©CategorylD Int ‘ & vbCrLf & _ 

“AS “ & vbCrLf & _ 

“SELECT ProductID, ProductName, UnitPrice, UnitsInStock ‘ & 
"FROM Northwind.dbo.Products " & _ 

"WHERE CategorylD = @CategorylD“ 

Try 

scmd.ExecuteNonQueryO 

Catch expSql As SqlException 

MsgBox(expSql.ToString, MsgBoxStyle.Critical, Me.Text) 
frmStatusMessage.Close() 

Exit Sub 

End Try 

' Xoa stored procedure "GetProductCountAndA veragePrice" 
scmd.CommandText = _ 

“IF EXISTS (“ & _ 

“SELECT * “ & _ 

“FROM northwind.dbo.sysobjects “ & _ 

“WHERE Name = ‘GetProductCountAndAveragePrice 1 “ & _ 
“AND TYPE ='p')“ & vbCrLf & ^ 

“DROP PROCEDURE GetProductCountAndAveragePrice' 

Try 

scmd. ExecuteNonQuery() 

Catch expSql As SqlException 

MsgBox(expSql.ToString, MsgBoxStyle.Critical, Me.Text) 

frmStatusMessage.CioseO 

Exit Sub 


End Try 




' Tao stored procedure "GetProductCountAndAveragePrice" 
scmd.CommandText = _ 

“CREATE PROCEDURE GetProductCountAndAveragePrice ‘ & _ 
vbCrLf & _ 

"©CategorylD Int," & vbCrLf & _ 

‘©AveragePrice Int OUT" & vbCrLf & _ 

"AS " & vbCrLf & _ 

‘DECLARE QSumProdPrices Money “ & vbCrLf & _ 

“SELECT ©AveragePrice = SUM(UnitPrice)/COUNT(ProductlD) " & 
"FROM Morthwind.dbo.Products “ & _ 

"WHERE CategorylD = ©CategorylD" & vbCrLf & _ 

■■■ "RETURN 

"(SELECT COUNT(ProductlD) " & _ 

"FROM Northwind.dbo.Products " & _ 

"WHERE CategorylD = ©CategorylD)" 

Try 

scmd.ExecuteNonQueryO 
Catch expSql As SqlException 

MsgBox(expSql.ToString, MsgBoxStyle.Critical, Me.Text) 
frmStatusMessage.Close() 

Exit Sub 
Finally 

' Dim bio k$'t noi luon dt/dc dong lai cho du ctfr IS! xiy ra 
scnnNorthwind.Close() 

End Try 

Catch exp As Exception 

If strConn = SQL_CONNECTION_STRING Then 
strConn = MSDE_CONNECTlON_STRING 
frmStatusMessage.Show("Connecting to MSDE") 

Else 

frmStatusMessage.CloseO 

MsgBox("To run this sample, you must have SQL " & _ 

"or MSDE with the Northwind database installed.", _ 
MsgBoxStyle.Critical, Me.Text) 

End 
End If 
End Try 
End While 
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frmStatusMessage.Close() 

MsgBoxfThe stored procedures were successfully added to the ” & _ 
"Northwind database.", MsgBoxStyle.Information, Me.Text) 

HasCreatedSprocs = True 
End Sub 

' Xti ly cho nut “ Top Ten Products " tren tab No Params. SCt dung database 
' Northwind phien bin Access. Thu tuc nay goi mdt ciu truy vi’n (query) khdng 
' co tham s6. 

Private Sub btnGet10MostExpProds_Click(ByVal sender As System:Object, ByVal 
e As System.EventArgs) Handles btnGetlOMostExpProds.Click 

Dim ocnnNorthwind As New 
OleDbConnection(ACCESS_CONNECTION_STRING) 

Dim ocmd As New OleDbCommandffTen Most Expensive Products]*, 
ocnnNorthwind) 

Dim odr As OleDbDataReader 

ocmd.CommandType = CommandType.StoredProcedure 

' Md ket nil va sau do thi/c hien ISnh, ta cung truySn vio m$t gia tri dS dong 
' ket noi khi hoin tat hoic c6 the ding ocnnNorthwind. Closef) d£ dong k£t ndi 
ocnnNorthwind.Open{) 

Try 

odr = ocmd.ExecuteReader(CommandBehavior.CloseConnection) 

Catch exp As Exception 

MsgBox(exp.ToString, MsgBoxStyle.Critical, Me.Text) 

End Try 

' Sti dung StringBuilder de ghep cac chudi dupe hien thj trong TextBox. 

' Class nay duoc toi l/u viec xii ly chudi vi dupe da thich hdn so vdi each cu &= 
Dim sb As New StringBuilderQ 
sb.AppendfProduct Name") 
sb.Append(vbTab) 
sb.Append(vbTab) 
sb.Append(vbTab) 
sb.AppendfPrice") 
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sb.Append(vbCrLf) 
sb.Append("===== 
sb.Append(vbTab) 
sb.Append{‘===== 
sb.Append(vbCrLf) 

’ Duyet qua noi dung cua d6i tuong OleDbDataReader 
While odr.Read 

sb.Append(odr.GetString(0)) 
sb.Append(vbTab) 
sb.Append(vbTab) 

If odr.GetString{0).Length < 20 Then 
sb. Append(vbT ab) 

End If 

sb.Append(odr.GetDecimal(1).ToString("c“)) 
sb.Append(vbCrLf) 

End While 

’ Dong DataReader 
odr.Close() 

1 Hien thj kS't quit 

txtTenMostExpProds.Text = sb.ToString 
End Sub 

‘ Thu tyc ndy xCt ly nut"Get Product Count and Avg Price" trin tab "All Types". 

' Stored procedure d ddy yiu cau mdt tham s6‘ truyin vao vd tra v4 wot ket qua va 
' mot gi£ trj tri ve. Sau khi stored procedure dupe thi/c hien, ket qua di/oc hiin 
' thj trSn mot Label. 

Private Sub btnGetProductCountAndAvgPrice_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
btnGetProductCountAndAvgPrice. Click 
strConn = SQL^CONNECTIONLSTRING 

Dim scnnNorthwind As New SqlConnection(strCorm) 

Dim semd As New SqlCommand( H GetProductCountAndAveragePrice“, 
scnnNorthwind) 

Dim sda As New SqlDataAdapter(scmd) 
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scmd.CommandType = CommandType.StoredProcedure 

' Thim tham sd cho stored procedure. Quy djnh gia trj cua tham sd13 gia trj 
' dude chon trong ComboBox. Quy djnh Direction cho tham so output. Cudi cung, 

' them mot tham sd dS Idy gia trj tri v£: Gia trj tra ve td stored procedure bAng 
' lenh RETURN, neu khdng co, SQL Server tra ve ma thtfc hien thanh cong hoAc 
' co I6i. 

With scmd.Parameters 

.Add(New SqlParameter(“@CategorylD\ SqlDbType.Int)).Value = _ 
cboCategoriesAIITypes.Selectedlndex + 1 
' MAc nhiSn gia trj cua Direction la " Input", chi cin thay doi cho hai tham sd kd tiep 
Add(New SqIParameterCQAveragePrice", _ 

SqlDbType.Money)).Direction = ParameterDirection.Output 
,Add(New SqiParameter(“ReturnValue‘, _ 

SqlDbType.Int)).Direction = ParameterDirection.ReturnValue 
End With 

Try 

scnnNorthwind.Open() 

scmd.ExecuteNonQueryO 

Catch expSQL As SqlException 

MsgBox(expSQL.ToString, MsgBoxStyie.Critical, Me.Text) 

Exit Sub 
Finally 

scnnNorthwind.Close() 

End Try 


' Hien thi ket qua 

IbIProductCountAndAvgPrice.Text = ‘There are “ & _ 

scmd.Parameters("RetumValue").Value.ToString & ‘ products * & _ 

"in the " & cboCategoriesAHTypes.Text & ‘ category, at an average * & 
“price of “ & CType(scmd.Parameters(‘@AveragePrice*).Value, _ 
Double).ToString("c") 


End Sub 
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' Xii ly cho nut "Get Products" tren tab "Input Param". Stored procedure 
' "Get Products" yeu ciu mot tham s6 truySn vio. SP niy di/oc thuc hien vi 
' mot DataGrid sii dung di hiin thj kit qui. 

Private Sub btnGetProducts_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnGetProducts.Click 

strConn = SQL_CONNECTION_STRING 

' Xem chi din trong irmMain_Load 
Dim scnnNorthwind As New SqlConnection(strConn) 

Dim scmd As New SqlCommand("GetProducts“, scnnNorthwind) 

Dim sda As New SqlDataAdapter(scmd) 

Dim dsProducts As New DataSet() 

' Thim cac tham sd' duoc yeu ciu cho SP. Day la each dii dong de them mot 
' SqIParameter vi quy djnh cac thude tinh. Xem thu tuc 
' btnGetProductCountAndAvgPrice_Click de thi'y each ngin hdn. 

Dim sparCatID As New SqlParameter() 

With sparCatID 

.ParameterName = *<8CategorylD“ 

.SqlDbType = SqlDbType.Int 
Value = cboCategoriesInputParam.SelectedValue 
End With 

With scmd 

.Parameters.Add(sparCatlD)_ 

.CommandType = CommandType.StoredProcedure 
End With 
Try 

' Dua dCt lieu vio DataSet 
sda.Fill{dsProducts, "Products") 

' Ket DataGrid vao bing trong DataSet. Thao tic niy se hiin thj kit qui 
i grdProducts.DataSource = dsProducts.Tables(O) 

Catch expSQL As SqlException 

MsgBox(expSQL.ToString, MsgBoxStyle.Critical, Me.Text) 

Exit Sub 
End Try 
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’ Quy djnh trdc tii'p cAc thuoc tinh cua DataGrid, nhung chi cAc thuoc tinh 
' khong thudc cAc thuoc tinh cua DataGridTableStyle 
With grdProducts 

.BackColor = Color.GhostWhite 

.BackgroundColor = Color.Lavender 

.BorderStyle = BorderStyle.None 

.CaptionBackColor = Color. RoyalBlue 

.CaptionFont = New FontfTahomaV 10.0!, FontStyle.Bold) 

CaptionForeColor = Color.Bisque 

CaptionText = "Northwind Products" 

.Font = New Font("Tahoma\ 8.0!) 

.ParentRowsBackColor = Color.Lavender 
.ParentRowsForeColor = Color.MidnightBlue 
’ Xda cAc d6i tUQng TableStyte da tao trt/dc dd, n£u khdng se gay ra iSi 
.TableStyles.ClearO 
End With 

’ Quy djnh cAc djnh dang 

Dim grdTableStylel As New DataGridTableStyleQ 
With grdTableStylel 

.AlternatingBackColor = Color.GhostWhite 
.BackColor = Color.GhostWhite 
.ForeColor = Color.MidnightBlue 
.GridLineColor = Color.RoyalBlue 
.HeaderBackColor = Color.MidnightBlue 
HeaderFont = New Font(“Tahoma", 8.01, FontStyle.Bold) 
.HeaderForeColor = Color.Lavender 
.SelectionBackColor = Color.Teal 
.SelectionForeColor = Color.PaleGreen 

1 Ddng quin quy djnh thuoc tinh MappingName 
MappingName = dsProducts,Tables(0).TableName 
.PreferredColumnWidth = 125 
PreferredRowHeight = 15 
End With 
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' Dinh dang cac cot ma ta mu6n xu£t hien tren DataGrid. 

Dim grdColStylel As New DataGridTextBoxCoiumn() 

With grdColStylel 
.HeaderText = "ID" 

MappingName = “ProductlD" 

.Width = 50 
End With 

Dim grdColStyle2 As New DataGridTextBoxCoiumn() 

With grdColStyle2 
.HeaderText = "Name" 

.MappingName = ‘ , ProductName‘' 

End With 

Dim grdColStyle3 As New DataGridTextBoxColumn() 

With grdColStyle3 
.HeaderText = "Price" 

MappingName = "UnitPrice" 

.Format = "c" 

Width = 75 
.Readonly = True 
End With 

Dim grdCo!Style4 As New DataGridTextBoxColumn() 

With grdColStyle4 

HeaderText = "# In Stock" 

.MappingName = "UnitsInStock" 

.Width = 75 

.Alignment = HorizontalAlignment.Center 
End With 

grdTableStylel .GridColumnStyles.AddRange _ 

(New DataGridColumnStyleQ _ 

{grdColStylel, grdColStyle2, grdColStyle3, grdColStyle4}) 
grdProducts.TableStyles.Add(grdTableStylel) 


End Sub 
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' Thu tyc nay xd ly si/ kien SelectedlndexChanged cua TabControi No bio dim 
' li ngddi sur dung khdng the chay cac phan khac nS'u chUa tao cac SP. Ni'u da 
' tao roi, cac lenh SQL se dtipc thi/c hien de dtfa dd lieu vao ComboBox Categories. 
Private Sub tabApp_SelectedlndexChanged(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles tabApp.SelectedlndexChanged 

If Not HasCreatedSprocs AndAlso tabApp.SelectedTab.Tablndex > 0 Then 
MsgBoxfYou must first create the required stored procedures/, _ 
MsgBoxStyle.Exclamation, Me.Text) 
tabApp.Selectedlndex = 0 

Elself HasCreatedSprocs AndAlso cboCategoriesInputParam.Items.Count = 0 
Then 

' Dda dd lieu vao cac ComboBox chi khi chung trong va cac SP da ddoc tao 
strConn = SQL_CONNECTION_STRING 

Dim strSQL As String = _ 

"SELECT CategorylD, CategoryName " & _ 

"FROM Categories' 

Dim scnnNorthwind As New SqlConnection(strConn) 

Dim scmd As New SqlCommandfstrSQL, scnnNorthwind) 

' Sd dung DATASET 

'Dim dsCategories As DataSet 

’Dim sda As New SqlDataAdapter(scmd) 

' ArrayList niy d£ sd dung vdi cboCategoriesInputParam. 

' Ghi chu ddng niy neu sd dung DATASET. 

Dim arICategories As New ArrayListQ 

' Sd dung DA TASET 
'dsCategories - New DataSetf) 

Try 

' Sd dung DATASET 
‘sda. Fill(dsCategories) 


/ 


'With cboCategoriesInputParam 
1 . DataSource - dsCategories. Tables(O) 



’ .DisplayMember = "CategoryName" 

' . ValueMember = "CategorylD" 

‘End With 

With cboCategoriesAIITypes 
’ .DataSource = dsCategories.Tables(O) 
' .DisplayMember = "CategoryName" 

' .ValueMember = "CategorylD" 

'End With 


scnnNorthwind.Open() 

sdr = scmd.ExecuteReader(CommandBehavior.CloseConnection) 

' Duyet qua tip hop cac phin tii cua DataReader. Phi/ong thiic Read trk 
' ve gia trj True neu nhd cdn cac dong khac de doc. 

While sdr.Read 

AddCategoryForDataSource(arlCategories) 

AddTextForSimpleFill() 

End While 

' Thuc hiSn ket dut lieu thi/c si/ 

With cboCategoriesInputParam 
.DataSource = arICategories 
ValueMember = “ID" 

.DisplayMember = "Name" 

End With 


' Dong DataReader 
sdr.CloseO 

' Neu khong gan gia trj niy, ComboBox se trd’ng 
cboCategoriesAIITypes. Selectedlndex = 0 

Catch expSql As SqlException 

MsgBox(expSql.ToString, MsgBoxStyle.Critical, Me.Text) 
End Try 
End If 
End Sub 
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1 Thu tuc nay dUdc set dung bin trong vong l$p While...End While duyet qua 
' DataReader. No dUa dti lieu vao ArrayLists la cac instance cua class Category, 

' gia tri dUdc l£y id DataReader. 

Private Sub AddCategoryForData$ource(ByRef arl As ArrayList) 

With arl , jV 

Add(New Category(sdr.Getlnt32(0), sdr.GetString(l))) 

End With 
End Sub 

' Thu tuc nay difdc sCl dung ben trong vong lap While... End While duyet qua 
' DataReader. No di/a du? HSu vao Items Collection cua ComboBox, 

‘ gia tn dupe lay ttf DataReader. 

Private Sub AddTextForSimpleFUlO 

1 Duyet qua Items collection cua DataReader. PhUOng there Read tra ve True 
' neu con cac ddng khac de doc. 

With cboCategoriesAIITypes 

. Items. Add(sdrfCategoryName")) 

End With 
End Sub 
End Class 

53. S&p xep va loc dtf li$u tren DataView 

Chuong trinh chi each sir dung mot dataview d£ si£p xep v& loc duf lieu cua 
b&ng Products trong database Northwind. 


g^Sdp xep du lieu hen DataView 


5ort by UnkslnStock,UnitsOnOrctet 
Primary Key Secondary Key 

UnksOnOrder 


mm 


UrutsIrStock 
C Ascending 
(• Descending 


r* Ascending 
Descending 


Soil 


Aya&abfe Filters ..*.- .. t~ 

Product names that begr with: |<ALL> Fitter ] 

1< zi I FJtei | 


UnktlnSlock 


I Products ame! UnitPrice 

_jRhonbrau Klo 7.75 

i Boston Ctab 18.4 
(Grandma's B 25 
! Pate chinois 24 
_J S irop defable 28.5 
SGeiost 2.5 


Unisirfilock j UnksOnOrder B * 


125 

123 

120 

115 

113 

112 



Current Sort Order 

UnitdnStock DESC, UnitsOnOrder ASC 

Current Fiber 

Productsame fee 'X 


Number of records processed 77 
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Cac chufc nana chinh: 

> Khi form chinh dugc load, bang Products dirge truy xuat vk dira vao mot 
DataSet b&ng mot lenh SQL. Sau d6, mot DataView dirge xky dung de 
loc vk s&p xep duf lieu. NgUdi sur dung co the chon di£u kien loc vk dieu 
kien s£p xep tr£n dataview mk khong anh huofng den duf lieu ngu6n. 

Ckc ddng c6 th£ dugc loc bkng ckch chon ede Product co ky tu dau tien 
do ngudi siif dung chon. Cdc d6ng cbn co the dugc skp xep theo hai cap, 
m6i ckp c6 the theo thuf tu tang hodc giam. 

Project: Sap xep va Loc du lieu tren DataView 

frmMain.vb 

• Option Strict On 

• Imports System.data. SqlClient 

■ Public Class frmMain 

Inherits System.Windows.Forms.Form 

Friend WithEvents grdProducts As System.Windows.Forms. DataG rid 
Friend WithEvents rbtll nits In Stock A As System. Windows. Forms.RadioButton 
Friend WithEvents rbtUnitstnStockD As System.Windows.Forms.RadioButton 
Friend WithEvents rbtUnitsOnOrderA As System.Windows.Forms.RadioButton 
Friend WithEvents rbtUnitsOnOrderD As System.Windows.Forms.RadioButton 
Friebd WitHEverrts GroupBoxI As System.Windows.Forms.GroupBox 
Friend WithEventS:CboProducts As System.Windows.Forms.ComboBox 
Friend WithEvents PboCompare As System.Windows.Forms.ComboBox 
Friend WithEvents Labeil As System.Windows.Forms.Label 
Friend WithEventrtxtUnrts As System.Windows.Forms.TextBox 
Friend WithEvents cmdUnitsInStock As System.Windows.Forms.Button 
Friend WithEvents Label2 As System.Windows.Forms.Label 
Friend WithEvents crftdProductNarrtes As System.Windows.Forms.Button 
Friend WithEvents Label4 As System.Windows.Forms.Label 
Friend WithEvents Label3 As System.Windows. Forms.Label 
Friend WithEvents IbIFilter As System.Windows. Forms.Label 
Friend WithEvents IbiSort As System.Windows.Forms.Label 
Friend WithEvents Label6 As System.Windows.Forms.Label 
Friend WithEvents Label5 As System.Windows.Forms.Label 
Protected dsProducts As New DataSet() 

Protected dvProducts As DataView 


( 
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Protected Const SQL_CONNECTION_STRING As String = _ 

"Server=localhost;" & __ 

"DataBase=Northwind;" & _ 

"Integrated Security=SSPI" 

Protected Const MSDE_CONNECTiON_STRING As String = _ 
“Server=(local)\NetSDK;" & _ 

"DataBase=Northwind;‘ & _ 

“Integrated Security=SSPI" 

Protected Const PRODUCT_TABLE_NAME As String = "Products" 

Protected Const STATUS_MESSAGE As String = "Number of records processed: " 
Protected Const CAPTION_MESSAGE_ORIG As String = "Products" 

Protected Const NO_RECORDS_FOUND_MESSAGE As String = _ 

"No records were found that match the filter criteria." 

Protected Const CAPTION_TITLE As String = "Sort and Filter with a DataView" 
Protected Const DEFAULT_F!LTER As String = "ProductName like '%'" 

Protected Const DEFAULT_SORT As String = _ 

"UnitsInStock ASC, UnitsOnOrder ASC" 

Protected Const NO_RECORDS_TO_SORT_MESSAGE As String = _ 

"There are no records to sort." 

Protected Const CAPTIONJCON.BUTTON As MsgBoxStyle = _ 

CType<MsgBoxSty1e.Information + MsgBoxStyle.OKOnly, MsgBoxStyle) 

‘ Code phat sinh form di/pc bd qua 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

Dim strConnection As String = SQL_CONNECT!ON_STRING 
Dim frmStatusMessage As New frmStatus() 
frmStatusMessage.Show(‘Connecting to SQL Server") 

Dim IsConnecting As Boolean = True 
While IsConnecting 
Try 

Dim northwindConnection As New SqlConnection(strConnection) 
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' SqlDataAdapter dope sit dung de thiet lap mot DataSet 
Dim ProductAdapter As New SqlDataAdapter( _ 

"SELECT ProductName, UnitPrice, UnitsInStock, UnitsOnOrder" 

& "FROM products", _ 

northwindConnection) 

' Thiet lap DataSet vdi thong tin trong bang Products. 
ProductAdapter.Fill(dsProducts, PRODUCT_TABLE_NAME) 


' Tao DataView; sti dpng bd khdi tao de chi djnh kieu sdp xS'p, dieu kien toe 
dvProducts = New DataView(dsProducts.Tables( u products"), _ 

DEFAULT_FILTER, DEFAULT_SORT, _ 
DataViewRowState.OriginalRows) 

' DO lieu da truy xuat thdnh edng, gdn tin hieu thoat vdng lap 
IsConnecting = False 

' Xit ly khi ket noi co loi 
Catch exc As Exception 

If strConnection = SQL_CONNECTION_STRING Then 
strConnection = MSDE_CONNECTION_STRING 
frmStatusMessage.ShowfConnecting to MSDE") 

Else 

frmStatusMessage.Close() 

MsgBox("To run this sample, you must have SQL " & _ 

"or MSDE with the Northwind database installed ", _ 
CAPTlON_ICON_BUTTON, CAPTION_TITLE) 

End 

End If 
End Try 
End While 

frmStatusMessage.CloseO 

' Ket DataGrid vao Data View da tao d tren 
grdProducts.DataSource = dvProducts 




' Thiet lap ComboBox de toe ProductName. 

' Cho phep ngi/di sCf dung chon ky tij diu tien cua cac sin pham mudn xem 
cboProducts.Items.AddRange(New Object{) {“<ALL>\ "A*, "B", *C“, "D", "E", _ 
“F", "G", "IT, "I", "J", "K", "L", "M", "N", “0‘, "P", “Q\ *R\ "S', "T", *U\ "V", _ 
"W", "X", "Y", h Z“}) 
cboProducts.Text = “<ALL>" 

' ThiS't lap ComboBox dS Iqc trin UnitsInStock 

’ Cho phep sCi dung cac phep so sanh thing thudng 
cboCompare.Items.AddRange(New Object() *>=", ">"}) 

cboCompare.Text = “<* 

* Hien thi thong tin trang thai 
IbIRecords.Text = STATUS_MESSAGE & _ 

dsProducts.Tables(PRODUCT_TABLE_NAME). Rows.Count.ToString 
grdProducts.CaptionText = CAPTION_MESSAGE_ORIG 
IbISort.Text = DEFAULT_SORT 
IbIFilter.Text = DEFAULT_FILTER 
End Sub 

Private Sub cmdProductNames_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdProductNames.Click 
Dim strFilter As String 

' Xii iy loc cac dong dUa tren ky tU dau tiSn dupe chon 

' Neu la <AII> dUdc chon, hien thi tat ci cac dong, neu khong phai thi chi hiSn 

' thi cac dong co bit dau bing ky to dddc chgn. 

If cboProducts.Text = “<ALL>" Then 
strFilter = "ProductName like 
Else 

strFilter = "ProductName like & cboProducts Text & 

End If 

dvProducts.RowFilter = strFilter 


‘ Hien thi DataGrid da duoc sip xep va duoc Iqc 
grdProducts.DataSource = dvProducts 

' Hiin thi sd ddng co tren DataGrid 

IbIRecords.Text = STATUS_MESSAGE & dvProducts.Count.ToString 
IbIFilter.Text = strFilter 
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' Hien thj mdt thdng bdo neu khong fim thay record nao 
If dvProducts.Count = 0 Then 

MsgBox(NO_RECORDS_FOUND_MESSAGE, _ 

CAPTION_ICON_BUTTON, CAPTION_TITLE) 

End If 
End Sub 

Private Sub cmdUnitsinStock_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdUnitsInStock.Click 
Dim strFilter As String 

' Xuf ly Iqc cac record dua trin sd' UnitsInStock 
' Sd dgng so dU0c nh$p vdo vd phep toan so sanh dddc chon de loc 

' Kiim tra gid trj nhip vao 
If txtUnits.Text.Trim.Length = 0 Then 
MsgBox(NO_RECORDS_FOUND_MESSAGE, _ 

CAPTION_ICON_BUTTON, CAPTION_TITLE) 

Exit Sub 

Elselff Not IsNumeric(txtUnits.Text.Trim.ToString) Then 
MsgBox(NO_RECORDS_FOUND_MESSAGE, _ 

CAPTION_ICON_BUTTON, CAPTION_TITLE) 

Exit Sub 
End If 

strFilter = "UnitsInStock “ & cboCompare.Text & " " & txtUnits.Text 
’ Loc theo UnitsInStock 
dvProducts. RowFilter = strFilter 
1 Hien thj dii lieu da dupe xti ly 
grdProducts.DataSource = dvProducts 
1 Hien thj sd dong co trong DataView 

IbIRecords.Text = STATUS_MESSAGE & dvProducts.Count.ToString 
IbIFilter.T ext = strFilter 

If dvProducts.Count = 0 Then 
MsgBox(NO_RECORDS_FOUND_MESSAGE, _ 

CAPTION_ICON_BUTTON, CAPTION_TITLE) 


End If 
End Sub 
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Private Sub cmdSort_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdSort.Click 

' Ap dpng dieu kien sip xi'p vao DataView 

Dim strSort As String 

’ Chi sip xep khi nao DataView co dU HSu 
If dvProducts.Count = 0 Then 

MsgBox(NO_RECORDS_TO_SORT_MESSAGE, ^ 

CAPTIONJCON_BUTTONj CAPTION .TITLE) 

Exit Sub 
End If 

' XU ly cic diSu kien sip x£p dupe chpn cho DataView 
' Xiy dung chuoi diSu ki$n sip xi'p theo hai cdt. 

' Cot chinh li cot UnitsInStock, cdt thU hai li cdt UnitsOnOrder 
If rbtUnitsInStockA.Checked = True Then 
strSort = “UnitsInStock ASC“ 

Else 

strSort = “UnitsInStock DESC“ 

End If 

If rbtUnitsOnOrderA.Checked = True Then 
strSort = strSort & UnitsOnOrder ASC" 

Else 

strSort = strSort & ", UnitsOnOrder DESC" 

End If 

' Ap dung diSu kien sip xep vio DataView 
dvProducts.Sort = strSort 

' Hien thi dU lieu ten DataGrid 
grdProducts.DataSource = dvProducts 

IbIRecords.Text - STATUS_MESSAGE & dvProducts.Count.ToString 
IbISort.Text = strSort 
End Sub 


End Class 
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54. DataSet c6 c&u true triidc (Typed DataSet) 

Chtfcmg trinh nky cho th£y stf khde nhau giGfa untyped dataset (dataset 
kh&ng dune c&u trtic trude) vk typed dataset khi thifc hien them, cap nhat, 
x6a vk truy v£n duf li$u. MOt typed dataset cho ngifdi lap trinh khd n&ng 
tham chi£u d£n cAc b£ng vk cAc trtfdng bkng cAch suf dung tinh n&ng 
IntelliSense vko ltic thi£t k£, 15p trinh. Dilu n&y cho phdp phdt hien l§i vko 
lvic thiet k£ thay vi luc chaiy. 



Cac chufc nana chinh: 

> Tifdng phdn giufa Insert vdi m<?t Typed Dataset vk vdi mot Untyped 
Dataset. 

> Tifcmg phdn giura Update vdi m§t Typed Dataset vk vdi mot Untyped 
Dataset. 

> Ttfcmg pMn giOfa Delete vdi mot Typed Dataset vk vdi m<>t Untyped 
Dataset. 

> Ttfcmg phdn giufa Truy v&h vdi mpt Typed Dataset vk vdi m$t Untyped 
Dataset. 

> Qua ckc thay d8i trong c Ac dataset vito database. 
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Project: Typed DataSet 
Northwlnd.xsd 

• <?xml versions" 1.0* encodings" utf-8" ?> 

• <xs:schema id=‘Nothwind" targetNamespace=*http:/Aempuri.org/dsMain.xsd" 

elementFormDefault=‘qualtfied" attributeFormDefault="qualified" 
xmlnss‘http:/Aempuri.org/dsMam.xsd" xmlns:mstns="http:/Aernpuri.org/dsMain.xsd* 
xmlns:xs=“http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas- 
microsoft-com:xml-msdata"> 

<xs:element name=*Northwind" msdata:lsDataSet=*true"> 

<xs:complexType> 

<xs:choice rnaxOccurs="unbounded"> 

<xs:element name="ProduclsTDS"> 

<xs:complexType> 

<xs:sequence> 

<xs:etement name=*ProdtJCt(D" msdata:ReadOnly="true" 
msdata:Autoincrement=“true* type=’xs:int" /> 

<xs:element name="ProductName" type="xs:string" /> 

<xs:element name="SupplierlD" type=“xs:int“ minOccurs="0" /> 
<xs:element name=*CategorylD" type=*xs:inf minOccurs="0‘ /> 
<xs:element name=‘QuantityPerUnit" type='xs:string" minOccurs="0" /> 
<xs:element rtamesf^nftPrice*type="xs:decimal" minOccurss'O" /> 
<xs:element name="UnitslnStock" type="xs:short" minOccurs="0‘ /> 
<xs:element name="UnitsOnOrder" type="xs:short" minOccurs="0" /> 
<xs:element name="ReorderLevel" type="xs:short" minOccurs="0" /> 
<xs:element name="Discontinued" type=‘xs:boolean" /> 
</xs:sequence> 

</xs:complexType> 

</xs:element> 

</xs;choice> 

</xs:complexType> 

<xs:unique name="NorthwindKey1‘ msdata:PrimaryKey="true"> 

<xs:selector xpath=".//mstns:ProductsTDS" /> 

<xs:field xpath='mstns:ProductlD" /> 

</xs:unique> 

</xs:element> 

• </xs:schema> 
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frmMaln.vb 

Option Strict On 
Imports System.Data 
Imports System.Data. SqlClient 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

Protected Const SQL_CONNECTION_STRING As String = _ 
“Server=localhost;" & _ 

“DataBase=Northwind;“ & _ 

“Integrated Security=SSPI;Connect Timeout=5“ 

Protected Const MSDE_CONNECTION_STRING As String = _ 
“Server=(local)\NETSDK;“ & _ 

“DataBase=Northwind;“ & _ 

“Integrated Security=SSPI;Connect Timeout=5“ 

Private Connectionstring As String = SQL_CONNECTlON_STRlNG 
Private HasConnected As Boolean = False 

' Khai b&o m$t typed dataset 
Private tdsNorthwind As Northwind 

' Khai bcio mdt dataset thdng thudng 
Private dsNorthwind As DataSet 

Public Sub New() 

MyBase.New() 

This call is required by the Windows Form Designer. 
InitializeComponentO 

‘Add any initialization after the InitializeComponentO call 
lnitDataSets() 


End Sub 
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' Code phit sinh form dupe bd qua 

Private Sub btnDeleteDS_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDeleteDS.Click 

' Xoa ddng dupe chQn trong bing Products, si J dung typed DataSet 
If IstResults.Selectedlndex >= 0 Then 

dsNorthwind.Tables("ProductsDS").Rows(lstResults.Selectedlndex).DeleteO 

Else 

MsgBoxfNo item selected.", MsgBoxStyle.Information, Me.Text) 

End If 

PopulateListFromDS() 

End Sub 

Private Sub btnDeleteTDS_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDeleteTDS.Click 

' Xoa ddng dddc chpn trong bing Products 
If IstResults.Selectedlndex >= 0 Then 
tdsNorthwind.ProductsTDS(lstResults.Selectedlndex).Delete() 

Else . ... , ' 

MsgBoxfNo item selected.*, MsgBoxStyle.Information, Me.Text) 

End If 

PopulateListFromTDS() 

End Sub . , 

Private Sub btnlnsertTDS_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnlnsertTDS.CHck ^ 

' Insert mdt ddng mdi vio typed dataset vi thiSt l$p cic gii tii cho nd 
Dim Row As Northwind.ProductsTDSRow 

Row = tdsNorthwind.ProductsTDS.NewProductsTDSRowO 

Row.ProductName = “Typed Dataset Inserted Record 1 
Row.Discontinued = True 
Row.QuantityPerllnit = ■ ,, 

Row.UnitPrice = 50 
Row.Ur.itsInStock = 20 
Row. UnitsOn Order = 0 
Row.ReorderLevel = 25 

tdsNorthwind.ProductsTDS.AddProductsTDSRow(Row) 




PopulateListFromTDS() 

IstResults.Selectedlndex = IstResults.Items.Count -1 
End Sub 

Private Sub btninsertDS_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnlnsertDS.Click 

' Insert mdt ddng mdi vio untyped dataset vi thi£t lip cic gii trj cho nd 
Dim Row As DataRow 

Row = dsNorthwind.Tables("ProductsDS“).NewRow() 

Row(‘ProductName“) = “Typed Dataset Inserted Record“ 
Row(“Discontinued“) = True 
Row(“QuantityPerUnit“) = 

Row(’UnitPrlce“) = 50 
Row(“UnitslnStoqk") = 20 
Row(‘UnitsOnOrder“) = 0 
Row(“ReorderLevel“) = 25 

dsNorthwind.Tables(“ProductsDS“).Rows.Add(Row) 

Populate ListFromDS() 

IstResults.Selectedlndex = IstResults.Items.Count -1 
End Sub 

Private Sub btnSel,ectDS_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSelectDS.Click 
PopulateListFromDSO 
End Sub 

Private Sub btnSelectTDS_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSelectTDS.Click 
PopulateListFromTDSO 
End Sub 




>02 - Coding Techniques - 

Private Sub btnl)pdateDataDS_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnUpdateDataDS.Click 

' C$p nh$t vdo dO li$u nguSn vdi c&c thay dii da dope ttvjc hi$n 
' trSn untyped dataset 

Try 

* Md kit nii 

Dim con As New SqlConneetion(ConnectionString) 
con.Open() 

' T$o mdt DataAdapter 

Dim daProductsDS As New SqlDataAdapter(“Select * from ProductsDS", con) 

Dim oCommandBuilder As New SqlCommandBuilder(daProductsDS) 

daProductsDS. DeleteCommand = oCommandBuilder.GetDeleteCommand 
daProductsDS.InsertCommand = oCommandBuilder.GetlnsertCommand 
daProductsDS.UpdateCommand a oCommandBuilder.GetUpdateCommand 

’ Gq 'i phuong thOc Update d4 c$p nh$t dO li$u 
daProductsDS.Update(dsNorthwind, “ProductsDS*) 

Catch exp As Exception 

MsgBox(exp.Message, MsgBoxStyle.Critical, Me.Text) 

End Try. 

End Sub 

Private Sub btnllpdateDataTDS_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnUpdateDataTDS.CIick 

' C$p nh$t dO li$u ngu6n vdi cdc thay dii <3§ thi/e h$n trdn typed dataset 
Try 

' Md k4t nii 

Dim con As New SqiConnection(ConnectionStHng) 
con.Open() 

’ Tao DataAdapter 

Dim daProductsTDS As New Sq!DataAdapter( _ 

“Select * from ProductsTDS", con) 

Dim oCommandBuilder As New SqlCommandBuilder(daProductsTDS) 
daProductsTDS.DeleteCommand = oCommandBuilder.GetDeleteCommand 
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daProductsTDS.InsertCommand = oCommandBuilder.GetlnsertCommand 
daProductsTDS.UpdateCommand = oCommandBuilder.GetUpdateCommand 

' Tht/c hiSn c$p nhit 

daProductsTDS.Update(tdsNorthwind, "ProductsTDS") 

Catch exp As Exception 

MsgBox(exp.Message, MsgBoxStyle.Critical, Me.Text) 

End Try 
End Sub 

Private Sub btnUpdateDS__Click(ByVal sender As System.Object, ByVat e As 
System.EventArgs) Handles btnUpdateDS.CIick 
' C$p nh$t record dupe chQn trong bing Products 
If IstResults.Selectedlndex >= 0 Then 
Dim ProductName As String = _ 

CStr(dsNorthwind.Tables(‘ProductsDS*).Rows( _ 

!stResults.Seiectedlndex)( “ProductName 11 )) 
dsNorthwind.Tables( B ProductsDS a ).Rows(lstResults.Seiectedlndex)( _ 

“ProductName*) = ProductName & * - Updated* 

Else 

MsgBox(*No item selected.*, MsgBoxStyle.Information, Me.Text) 

End If 

PopulateListFromDSO 
End Sub 

Private Sub btnUpdateTDS_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handias btnUpdateTDS.Click 

* C$p nh$t record dupe chQn trong bing Products, sufdgng typed DataSet 
if IstResults.Selectedlndex >= 0 Then 
Dim ProductName As String = _ 

tdsNorthwind.ProductsTDS(lstResults.Selectedlndex). ProductName 
tdsNorthwind.ProductsTDS(O).ProductName = ProductName & * - Updated* 
Else 

MsgBox(*No item selected.*, MsgBoxStyle.Information, Me.Text) 

End If 

PopulateListPromTDS() 

End Sub 
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Private Sub lstUpdateFromDS_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles IstUpdateFromDS.Click 
PopulateListFromDSO 
End Sub 

Private Sub lstUpdateFromTDS_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles IstUpdateFromTDS.Click 
PopulateLlstFromTDS() 

End Sub 

Private Sub lnitDataSets() 

Dim frmStatusMessage As New frmStatus() 

If Not HasConnected Then 

frmStatusMessage.Show(*Connecting to SQL Server*) 

End If 

Dim IsConnecting As Boolean = True 
While IsCopnecting 
Try 

Dim con As New SqlConnection(ConnectionString) 
con.OpenO 

IsConnecting = False 
HasConnected = True 
frmStatusMessage.Close() 

' VI dky Ik lin kSt n6i ddu tiSn nSn phii t$o m6t bkng cho chtfdng tr)nh nky 
' Surdyng m$t Instance cOa SqlCommand de th\Jc hikn cac linh SQL 
Dim cmlnitSQL As New SqlCommand() 

J 

' K4t Command vko SqlConnection 
cmlnitSQL.Connection = con 

' Quy djnh ki£u l$nh Id Text 
cmlnitSQL.CommandType = CommandType.Text 
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' Xda bang ProductsDS nSu da tSn taf 
cmlnitSQL.CommandText = "IF EXISTS (SELECT * FROM dbo.sysobjects 
WHERE id = object Jd(N’[dbo].[ProductsDS]’) and OBJECTPROPERTY(id, 
N'lsUserTable 1 ) = 1)" & _ 

"DROP TABLE [dbo].[ProductsDS] “ 

' Thi/c hidn ciu lenh 
cmlnitSQL.ExecuteNonQueryO 

' Xda bing ProductsTDS nSu da tSn t$i 
cmlnitSQL.CommandText = “IF EXISTS (SELECT * FROM dbo.sysobjects 
WHERE id = object Jd(N'[dbo].[ProductsTDS]') and OBJECTPROPERTY (id, 
N’lsUserTable') = 1) “ & _ 

“DROP TABLE [dbo].[ProductsTDS] “ 

' Thi/c hi$n ciu l$nh 
cmlnitSQL.ExecuteNonQueryO 

' Tqo bing ProductsDS 

cmlnitSQL.CommandText = “CREATE TABLE [dbo].[ProductsDS] ( “ & _ 
“[ProductID] [int] IDENTITY (1,1) PRIMARY KEY _ 
“[ProductName] [nvarchar] (40) NOT NULL ," & _ 
•[SupplierlD] [int] NULL , “ & __ 

“[CategorylD] [int] NULL , “ & __ 

"[QuantityPerUnit] [nvarchar] (20) NULL , “ & _ 

“[UnitPrice] [money] NULL , “ & _ 

“[UnitsInStock] [smallint] NULL , " & _ 

“[UnitsOnOrder] [smallint] NULL , “ & _ 

“[ReorderLevel] [smallint] NULL , * & _ 

“[Discontinued] [bit] NOT NULL )" 


' Thi/c hien ciu lenh 
cmlnitSQL.ExecuteNonQueryO 
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' T$o bing ProductsTDS 

cmlnitSQL.CommandText = “CREATE TABLE [dbo].[ProductsTDS] (" & _ 
“[ProductID] [int] IDENTITY (1,1) PRIMARY KEY _ 
“[ProductName] [nvarchar] (40) NOT NULL , “ & _ 
"[SupplierlD] [int] NULL , “ & _ 

‘[CategorylD] [int] NULL , " & _ 

"[QuantityPerUnit] [nvarchar] (20) NULL ," & _ 

“[UnitPrice] [money] NULL ," & _ 

“[UnitsInStock] [smallint] NULL , “ & _ 

“[UnitsOnOrder] [smallint] NULL ," & _ 

“[ReorderLevel] [smallint] NULL , ■ & _ 

‘[Discontinued] [bit] NOT NULL )" 

' Tht/c hi$n ciu ISnh 
cmlnitSQL.ExecuteNonQuery() 

' Insert dO li$u vio bing ProductsDS, di7 li$u l£y tit bing Products 
cmlnitSQL.CommandText = “INSERT INTO ProductsDS “ & _ 
“(ProductName.SupplierlD.CategorylD,* & _ 
"QuantityPerUnitUnitPrice.UnitsInStock," & _ 
“UnitsOnOrder.ReorderLevel, Discontinued) “ & _ 

“SELECT ProductName,SupplierlD,CategorylD," & _ 
"QuantityPerUnit,Unitprice,UnitslnStock,“ & _ 
“UnitsOnOrder.ReorderLevel, Discontinued FROM Products" 

cmlnitSQL.ExecuteNonQuery() 

' Insert dO li$u vio bing bing ProductsDS, dCt Ii4u Hy tCt bing Products 
cmlnitSQL.CommandText = "INSERT INTO ProductsTDS “ & _ 
"(ProductName,SupplierlD,CategorylD,“ & _ 
“QuantityPerUnit.UnitPrice.UnitsInStock,* & _ 
“UnitsOnOrder.ReorderLevel, Discontinued)" & _ 

“SELECT ProductName,SupplierlD,CategorylD," & _ 
"QuantityPerUnit.UnitPrice.UnitsInStock,' & _ 
"UnitsOnOrder.ReorderLevel, Discontinued FROM Products" 

cmlnitSQL.ExecuteNonQueryO 

cmlnitSQL.Dispose() 
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' T$o cac dd'i ti/Qng Command d£ liy dO li$u dt/a vio cic DataSet 
Dim cmdProductsDS As New SqlCommand( _ 

“SELECT * FROM ProductsDS“, con) 
Dim cmdProductsTDS As New Sq!Command( _ 

“SELECT * FROM ProductsTDS“, con) 

1 T$o mdi cac instance cua dataset vi typed dataset 
tdsNorthwind = New NorthwindO 
dsNorthwind = New DataSet() 

‘ SO di/ng SqlDataAdapter dS dua dO liSu vio cic dataset 
Dim daLocai As SqlDataAdapter = New SqlDataAdapter() 

' ChQn ciu l$nh SQL cho Typed Dataset 
daLocai.SelectCommand = cmdProductsTDS 

' DUa dO li$u vio typed dataset 
daLocai.Fill(tdsNorthwind, ’ProductsTDS“) 

' ChQn ciu l$nh cho Untyped Dataset 
daLocai.SelectCommand = cmdProductsDS 

* Dt/a dO li$u vio Dataset 
daLocai.Fill(dsNorthwind, “ProductsDS") 

con.Close() 

Catch e As SqlException 

If Connectionstring = SQL_CONNECTION_STRING Then 
Connectionstring = MSDE_CONNECTION_STRING 
frmStatusMessage.Show(“Connecting to MSDE") 

Else 

frmStatusMessage.Close() 

MsgBox(“To run this sample you must have SQL Server ot MSDE.“, 
MsgBoxStyle.Critical, _ 

“SQL Server/MSDE not found*) 

End 
End If 
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Catch e As Exception 

MsgBox{e.Message, MsgBoxStyle. Critical, “General Error") 

End Try 
End While 
End Sub 

Private Sub PopulateListFromDSQ 

‘ Mdt bing trong mdt dataset dupe dung d£ thiSt lip m$t ListBox 
' vdi ProductName l£y tCt bing Products: 

' Vdi Dataset, tin cua bing vi tin cic c0t phii dupe biit chinh xac luc thidt kS. 

' Ni'u chung bj sai hoic sai kiiu di7 liiu se chi giy ra l6i khi ch$y chuong trinh. 
Dim s As String 
Dim i As Integer 

IstResults.Items.ClearQ . v 

For i = 0 To dsNorthwind.TablesCProductsDSQ.Rows.Count -1 
' KiSm tra d£ biSt ddng hi$n hinh cd dinh d£o ii deleted (di xda) 

If Not dsNorthwind.Tables^fbchJCtsDSQ.RowstO.RowState^ _ 
DataRowState. Deleted Then 
' Li'y ProductName cOa mSi record 

s = dsNorthwind.Tabies( ,, ProducteDS“).Rows(i)('ProductName*).ToStringO 
’ Thim ProductName vio ListBox 
IstResults. Items. Add(s) 

End If 
Next i 
End Sub 

Private Sub PopulateListFromTDS() 

' Mot bing trong m$t typed dataset dupe sd dung dS thii't lip mdt ListBox 
' vdi ProductName tCf bing Products. 

' Mdt typed dataset cung cSp khi ning kiSm tra 1/nh chinh xac cCta tin bing 
' vi tin cac cpt luc thiSt kS tnfdc khi chuong tr)nh chgy. 

Dim s As String 
Dim i As Integer 


IstResults. Items.ClearQ 
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For i = 0 To tdsNorthwind.ProductsTDS.Count -1 


' Kiem tra ddng hi$n hknh co dt/oc danh dau Ik deleted 
If No.t tdsNorthwind.ProductsTDS(i).RowState = DataRowState. Deleted Then 
s = tdsNorthwind.ProductsTDS(i).ProductName.ToStringO 

IstResults.Items.Add(s) 

End If 
Next I 
End Sub 
■ End Class 


55. SA dung ADO 2.6 trong .NET 


Chirong trinh n&y chi cdch suf dung ADO 2.6 trong Visual Basic .NET, 
cung nhu cdch suf dung ADO vk ADO.NET trong ctmg mpt ring dung. 


{JjADO 2.B 


Vbw Records | Inwrt FUcadl Updatft |e«Xd|-AD0 toADp.NET | 
How Ja jhavtgale feeoi'ds fn .9 Bedordset Object. 

Company Name 


ID |X 


jAiound the Horn 


Contact Name 
|Tto mas Hardy 

Phone 

|(171J555-7788 



Cac chufc nano chmh: 

> Cdch suf dung d&'i tirong Connection. 

> Cdch sir dung dd'i tirong Command. 

> Cdch suf dung ddi ttmng Recordset. 

> Cdch duy?t qua cdc record. 

> C£ch thifc hi^n Update (cap nh$t) vk Insert (thfem mdi). 

> C6ch suf dung k£t hop ADO vk ADO .NET. 
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Project: Su dung ADO 2.6 

frmMain.vb 

Option Strict On 
Imports ADODB 

Public Class frmMain 

Inherits System. Windows.Forms.Form 

Protected Const MSDE_CONNECTION_STRING As String = _ 

■driver=:{SQL Server};server=(local)\VSDotNet;uid=sa;pwd=;database=Northwind* 

Protected Const SQL_CONNECTION_STRING As String = _ 

*driver={SQL Server};server=localhost;uid=sa;pwd=;database=Northwind* 

Private Connectionstring As String = SQL_CONNECTION_STRING 
Private HasConnected As Boolean = False 

Dim cnn As New Connection) 

Dim cm As New Command() 

Dim rs As New Recordset() 

Public Sub New() 

MyBase.New() 

This call is required by the Windows Form Designer. 
lnitializeComponent() 

'Add any initialization after the lnitializeComponent() call 
PopulateSimpleNavigationFormO 
End Sub 

’ Code phdt sinh form dupe bd qua 

Private Sub btnDataset_Click(ByVai sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDataset.Click 

* D6i tUQng connection vd recordset (ADO 2.6) dupe t$o dS l£y dO ii&u b£ng 
’ m$t ciu ISnh SQL Mdt DataAdapter set dyng phddng thilc Fill d£ thi&t l$p 
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' DataSet vdi dO liku trong recordset (ADO 2.6) . DO li$u sau 66 dope kit vko 
' control DataGrid. 

Dim strSQL As String = ■SELECT CustomerlD, * & _ 

* CompanyName, * & _ 

• ContactName, 1 & _ 

■ COuntry, * & _ 

Region, * & _ 

* Phone, “ & _ 

• Fax ■ & _ 

■FROM Customers* 

rs = cnn.Execute(strSQL) 

' Tpo ckc 66i tdpng DataSet vk DataAdapter 
Dim ds As New DataSet(“Recordsef) 

Dim da As New OleDb.OleDbDataAdapter() 

' Gpi phoong thOc Fill eda DataAdapter 64 60a dO li$u tO ADO Recordset 
' vko ADO.NET DataSet. 
da.Fill(ds, rs, “Customers") 

’ K4t DataSet vko mdt DataGrid 
dgMain.DataSource = ds 
dgMain.DataMember = “Customers' 

End Sub 

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnFirst.Click 
rs.MoveFirst() 

PopulateSimpleNavigationFormO 
End Sub 

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles btnLast.Click 
rs.MoveLast() 

PopulateSimpleNavigationFormO 
End Sub 
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Private Sub btr\Next_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnNext.Click 
’ Lenh If nay kiSm tra de trAnh di d£n EOF 
If Not rs.EOF Then 
rs.MoveNext() 

If rs.EOF Then 
rs.MovePrevious() 

End If 

PopulateSimpleNavigationFormO 
End If 
End Sub 

Private Sub btnPrev_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnPrev.Click 
If Not rs.BOF Then 
rs.MovePreviousO 

i ’ •• • 

If rs.BOF Then 
rs.MoveNext() 

End If 

PopulateSimpleNavigationFormO 
End If 
End Sub 

Private Sub btnlnsert_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnlnsert.Click 

' Insert mdt record mdi v&o bang Categories 
' Kiim tra dCt lieu tren form 

If txtCategoryName.Text = Or txtDescription.Text = " Then 
MsgBox("Please fill in all the text boxes._ 

MsgBoxStyle.Critical, Me.Text) 

Exit Sub 
End If 

Dim records Effected As Object 

Dim strSQL As String = “INSERT INTO Categories(CategoryName, ' & 
‘Description)' & _ 

"VALUES (" & txtCategoryName.Text & _ 

& txtDescription.Text & "’)“ 
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' ThUc hien ciu lenh SQL 
cnn.Execute(strSQL, recordsEffected) 

If Clnt(recordsEffected) = 1 Then 

MsgBoxflnsert Successful!*, MsgBoxStyle.Exclamation, Me.Text) 
End If 

End Sub 

Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnUpdate.Click 

1 C$p nhat field Description cua bang Categories vdi gia tri 
‘ trong TextBox Description. 

If txtUpdateDescription.Text = ““ Then 

MsgBox(“Please fill in description text box/, _ 

MsgBoxStyle.Critical, Me.Text) 

Exit Sub 
End If 

Dim strSQL As String = “UPDATE Categories SET Description = “ & _ 
"" & txtUpdateDescripttoh.Text 
“WHERE CategoryName = 
cbCategoryName.Text & 

cm.ActiveConnection = cnn 
cm. CommandText = strSQL 

Dim recordsEffected As Object 
cm.Execute(recordsEffected) 

' Ki4m tra xem co It nhi't mdt record c6 hiiu li/c chila 
If Clnt(recordsEffected) > 0 Then 

MsgBox(“Update Successful*/, MsgBoxStyle.Exclamation, Me.Text) 
Else 

MsgBox(“Update Failed!’, MsgBoxStyle.Critical, Me.Text) 

End If 
End Sub 
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Private Sub cbCategoryName_SelectedlndexChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
cbCategoryName.SelectedlndexChanged 

’ Khi mdt Category dU0c chQn trin tab Update, Description dtioc hien thi 
’ trSn TextBox dS ngUdi sCf dyng co the thay doi no. 

Dim strSQL As String = "SELECT Description " & _ 

"FROM Categories " & _ 

"WHERE CategoryName = & cbCategoryName.Text & 

rs.ActiveConnection = cnn 

rs.CursorType = CursorTypeEnum.adOpenStatic 

rs.Open(strSQL) 

' Di/a ndi dung vdo TextBox 

txtUpdateDescription.Text = CStr(rs.Fields(“Description'‘).Value) 

rs.CloseO 
End Sub 

Private Sub tcMain_SeiectedlndexChanged(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles tcMain.SelectedlndexChanged 

' Dong recordset nS'u thay d6i tab 
If rs.State = 1 Then 
rs.CloseO 
End If 

' Goi cac thu tgc tUdng ting khi ch<?n c£c tab. 

Select Case tcMain.Selectedlndex 
Case 0 

lnitRecordNavigation() 

Case 2 

InitSimpleUpdateO 
End Select 
End Sub 

Private Sub InitRecordNavigationQ 

' Code cho thay each kSt n6i vdo mot database bing ADO 2.6 va duySt cac record 
Dim frmStatusMessage As New frmStatus() 
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If Not HasConnected Then 

frmStatusMessage.Show("Connecting to SQL Server") 

' Tht/c hiSn ket nd'i v£o SQL Server hoSc MSDE 
Dim IsConnecting As Boolean = True 
While IsConnecting 
Try 

' Md kdt nd'i 

cnn.ConnectionTimeout = 5 
cnn.Open(ConnectionString) 

If cnn.State <> 1 Then 

Throw New System.Exception("Connection failed.“) 

End If 

If Not HasConnected Then 
frmStatusMessage.CloseO 
End If 

IsConnecting = False 
HasConnected = True 

Catch Exp As Exception 

If Connectionstring = SQL_CONNECTION_STRING Then 
' Khdng th£ ket nd’i v&o SQL Server, chuySn qua MSDE 
Connectionstring = MSDE_CONNECTION_STRING 
frmStatusMessage.ShowfConnecting to MSDE") 

Else 

’ Khdng tim thdy SQL Server hodc MSDE 
frmStatusMessage.CloseO 

MsgBox{“To run this sample you must have SQL Server ot MSDE.", 
MsgBoxStyle.Critical, _ 

‘SQL Server/MSDE not found“) 

’ Thoat chilting trinh nd'u khdng cd ket nd'i n&o thdnh cdng 
End 
End If 
End Try 
End While 


End If 
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' Tqo cau lenh SQL 

Dim strSQL As String = ‘SELECT CompanyName, “ & _ 

‘ ContactName, * & _ 

Phone 

‘FROM Customers' 
rs.ActiveConnection = cnn 
rs.CursorType = CursorTypeEnum.adOpenStatic 
rs.Open(strSQL) 
rs.MoveFirst() 

End Sub 

Private Sub InitSimpleUpdateO 

' ThiS't lap ComboBox chufa ckc Category 
Dim strSQL As String = “SELECT CategoryNam© ’ & _ 

‘FROM Categories“ 

rs.ActiveConnection = cnn 

rs.CursorType = CursorTypeEnum.adOpenStatic 

rs.Open(strSQL) 

' Duyit qua cac record vk cho chung vko ComboBox 
While Not rs.EOF 

cbCategoryName.Items. Add(rs.Fields("CategofyName‘).Value) 
rs.MoveNext{) 

End While 
rs.Close() 

cbCategoryName.Selectedlndex = 0 
End Sub 

Private Sub PopulateSimpleNavigationForm() 

' Thik't lap form vdi dd lieu tut recordset 
txtCompanyName.Text = CStr(rs.Fields("CompanyName‘).Value) 
txtContactName.Text = CStr(rs.Fields(‘ContactName").Value) 
txtPhone.Text = CStr(rs.Fields(‘Phone“).Value) 

End Sub 
End Class 
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56. Diiih dang dtf li£u trxXdc khi hien thi va Ixtu 
vao database 

Chirong trinh ndy chi cdch suf dung cdc thu tuc sir ki$n Format vd Parse 
khi ket duf ligu vdo cdc control Windows Form. Sir kien Format phdt sinh khi 
duf ligu diroc truyln tir dtf ligu ngu6n vdo control, sp kign Parse phdt sinh khi 
duf li|u diroc dira trd lai vdo duf lieu nguon. B&ng cdch xuf ly cdc sp ki§n ndy ta 
c6 thi hiln thi dif lieu theo mgt dinh dang nhtfng liru n6 vpi mpt dinh dang 
khdc. 



Cac chufc nana chinh: 

> Duf li|u dope dira vdo DataSet b&ng cdch tao mPi mOt bdng Employees 
(suf dung SELECT INTO) vd sau d6 thdm mot c|t dl thdm mot si duf 
li|u. 

> C6 thi duy|t qua cdc record b&ng cdch nhdn chugt tr§n ede nut duy|t, 
hodc ede phim. 

> Duf ligu dupe dinh dang.vd dupe phdn tdeh trong ede thu tuc sp ki|n 
tirong Ung. 
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> M0t DataGrid hi£n thi dur lipu cua bdng thuf hai trong DataSet b&ng 
cdch loc DataView dua trfin EmployeelD cua record hien h&nh. 

> Thay doi duf li0u trfcn cdc field c6 th£ dupe luu v&o database b&ng edeh 
nh&n v&o nut Save. 

Project: Custom DataBinding Format Handlers 

frmMain.vb 

Option Strict On 

Imports System.Data.SqIClient 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

Protected Const SQL_CONNECTION__STRING As String = _ 

"Server=localhost;" & _ 

*DataBase=northwind;" & _ 

"Integrated Security-SSPI’ 

,; r tp. A 

Protected Const MSDE.CONNEcflON.STRING As String = _ 
"Server=(local)\NetSDK;" & _ 

"DataBase=northwind;" & _ 

‘Integrated Security=SSPl" 

Protected Const CONNECTION_ERROR_MSG As String = _ 

“To run this sample, you must have SQL ‘ & _ 

"or MSDE with the Northwind database installed." 

Protected blnDidPreviouslyConnect As Boolean = False 
Protected connectionstring As String = SQL_CONNECTION_STRING 
Private da As SqlDataAdapter 

Private dsEmployees As DataSet ; 

Private dtEmployeelnfo As DataTable 
Private dtEmployeeOrders As DataTable 
Private dtEmpioyeeSales As DataTable 
Private dvEmployeeOrders As DataView 
Private dvEmployeeSales As DataView 

• ' Code phit sinh form dupe tx 3 qua 
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' T$o DataSet 

#Region 1 Creating the Demo DataSet" 

' Thu tuc ndy t$o mdt bing mdi trong database Northwind d/a trdn being Employees. 

' Sau do dUa vAo mot so dCt lieu gia de tha'y dugc cich dinh dang cdc field DateTime 
' va Smalllnt (lulu gia trj Boolean trong Clng dyng ndy). 

Sub CreateDataSetQ 

Dim frmStatusMessage As New frmStatusQ 
If Not blnDidPreviouslyConnect Then 
frmStatusMessage.Show(‘Connecting to SQL Server") 

End If 

Dim blnlsConnecting As Boolean = True 

While blnlsConnecting 
Try 

Dim cnnNW As New SqlConnection(connectionString) 

' T$o m^t ciu l$nh kiim tra si/ t6n tgi cua bing mdi. NS’u da cd thi xda 
' no vd t$o l$L Sau dd thim hai cdt de chC/a d& lieu gia. 

Dim strSQL As String = _ 

"IF EXISTS (■&_ 

•SELECT * * & _ 

■FROM northwind.dbo.sysobjects ‘ & _ 

“WHERE NAME = 'NewEmployees* “ & _ 

“AND TYPE = *uT & vbCrLf & _ 

“BEGIN 1 & vbCrLf &_ 

■DROP TABLE northwlnd.dbo.NewEmployees” & vbCrLf & _ 

“END 1 & vbCrLf & _ 

“SELECT EmployeelD, LastName, FirstName, HireDate, Region ■ & _ 
“INTO NewEmployees 1 & _ 

“FROM Employees * & vbCrLf & _ 

“ALTER Table NewEmployees “ & _ 

“ADD 1 & _ 

“IsMarried Smalllnt NULL, “ & _ 

“CONSTRAINT [PK_Employee] PRIMARY KEY CLUSTERED” & _ 
“(EmployeelD)” 
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* Doi tUQng SqlCommand dUdc sQ dyng d$ thi/c hien lenh SQL 
Dim cmd As New SqlCommand(strSQL, cnnNW) 

* Md kit n6i vk thQc hiin ckc linh SQL 
cnnNW.Open() 

cmd. ExecuteNonQueryO 

' Chuan bj dQ lieu gia 
Dim arllsMarried As New Arraytist() 

With arllsMarried 
-Add(1) 

.Add(O) 

.Add(O) 

Add(1) 

.Add(1) 

.Add(1) 

,Add(0) 

.Add(l) 

Add(O) 

End With 

' Thdm ckc SQL Parameter di sit dgng khi dUa dQ liiu Veto ckc c6t mdi 
Dim paramlsMarried As New SqtParameterf@$Married',._ 
SqlDbType.Smalllnt) 
cmd. Parameters. Add(paramlsMarried) 

Dim paramEmployeelD As New Sql Parameter'^Employ eel D", _ 
SqlDbType.Int) 

cmd. Parameters. Add(paramEmployeelD) 

' Cku lenh SQL de dua dQ li$u vko cac cQt mdi 
cmd.CommandText = _ v 

'UPDATE NewEmployees ' & _ 

'SET IsMarried = ©sMarried “ & _ 

“WHERE EmployeelD = €EmployeelD' 


* * DUa dQ liiu vko cac c$t vdi dQ liiu Ik ArrayList 
Dim i As Int32 
Dim obj As Object 
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For Each obj In arllsMarried 

paramlsMarried.Value = arllsMarried(i) 
paramEmployeelD.Value = i + 1 
cmd.ExecuteNanQueryO 
i += 1 
Next 

' Thay cSu l$nh SQL thdnh l&nh f&y d& liiu Employee 
cmd.CommandText = _ 

“SELECT EmployeelQ, LastName, FirstName, HireDate, Region, “ & _ 
“ IsMarried " & _ 

“FROM NewEmployees- 

' SqlDataAdapter stf dgng SqlCommand dS difa dU HSu v&o DataSet 
da = New SqlDataAdapter(cmd) 

' D6i tUQng SqlCommandBuilder ttf ddng phat sinh cac ISnh SQL cin 
‘ thi£t dS c$p nh$t lai database (trong thu tuc btnSave_Click) 

Dim scb As New SqlCommandBuilder(da) 
scb.GetUpdateCommand() 

' Tqo Vet dua di7 lieu v&o DataSet mdi 
dsEmployees = New DataSetQ 
da.Fill(dsEmployees, ‘Empioyeelnfo 1 ') 


' Lenh SQL de ISiy cac Order cua Empoyee 
cmd.CommandText = _ 

‘SELECT od.OrderlD, SUM(CONVERT(money, (od.UnitPrice ‘ " & 
“ od.Quantity) * (1 - od.Discount) /100) * 100) “ & _ 

" AS Subtotal, o.EmployeelD" & vbCrLf & _ 

“FROM [Order Details] od INNER JOIN Orders o “ & _ 

K ON od.OrderlD = o.OrderlD“ & vbCrLf & _ 

"GROUP BY od.OrderlD, o.EmployeelD" 

' Dua dd lieu v£o b&ng thU hai cua DataSet 
da.Fill(dsEmployees, "EmployeeOrders“) 

' Lenh SQL de l£y Sales To Date cua Emplyee 
cmd.CommandText = _ 

‘SELECT e.employeeid, sum(UnitPrice * Quantity) as “ & _ 

“ ‘SalesToDate’ ‘ & _ 

"FROM [order details] od " & _ 
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"INNER JOIN orders o “ & _ 

"ON o.orderid = od.orderid * & _ 

“INNER JOIN employees e * & _ 

"ON e.employeeid = o.employeeid“ & vbCrLf & _ 
"GROUP BY e.employeeid* 

' Dda dii lieu vao b&ng thd ba cua DataSet 
da.Fill(dsEmployees, "EmployeeSales") ; 

' Gan cac bi£n cho cac DataTable dSsfidyng sau n&y 
dtEmployeelnfo = dsEmployees.Tables(O) 
dtEmployeeOrders = dsEmployees.Tables(1> " 
dtEmployeeSales = dsEmployees.Tabies(2) 

' Gan cac biS'n DataView 

dvEmployeeOrders = dtEmployeeOrders.DefauItView 
dv EmployeeSales = dtEmployeeSales. DefauItView 
' ThoAt vdng lap 

blnisConnecting = False r 

blnDidPreviouslyConnect = True 
frmStatusMessage.Close() 

Catch sqlExc As SqlException 

MessageBox.Show(sqlExc.ToString, “SQL Exception Error! 

MessageBoxButtons.OK, MessageBoxIcon. Error) 

Exit While 

Catch exp As Exception 

MessageBox.Show(exp. Message) 

If connectionstring = SQL_CONNECTION_STRING Then 
connectionstring = MSDE_CONNECTION_STRlNG 
frmStatusMessage.Show(*Connecting to MSDE*) 

Else 

frmStatusMessage.CloseO 

MessageBox.Show(CONNECTION_ERROR_MSG, _ 
“Connection Failed!*, MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 

End 
End If 
End Try 
End While 
End Sub 
• #End Region 
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Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnFirstClick 
' Di chuySn den record diu tidn 
FirstRecord() 

End Sub 

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnLast.Click 
' Di chuyin din record cu6i cung 
LastRecordQ 
End Sub 

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) HandlesPbtnNext.Click 

' Di chuyin din record ki tiip 
NextRecord() 

End Sub 

Private Sub btnPrevious_Click{ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnPrevious.Click 
' Quay lui v4 mdt record 
PreviousRecord() 

End Sub 

' Niu mudn cip nh$t vio database ta cin gQi phildng thufc Update cua dd'i 
' tupng SqlDataAdapter. 

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSave.Click 
Try 

’ Kit thiic thao tic thay dii hi$n hinh. NS'u khdng, khi ngi/di sd dyng thay 
‘ dSi ndi dung vi nhin vio nut Save mi khdng chuyin qua reocord khic th) 
' cic thay dii se khdng cd tic dung. 
Me.BindingContext(dtEmployeelnfo).EndCurrentEdit() 

* Cip nh$t database vdi cic thay dii da tiin hinh trin DataSet 
da.Update(dtEmployeelnfo) 

MessageBox.Show("Database successfully updated/, _ 

"Custom Formatting Handler Demo", MessageBoxButtons.OK, _ 
MessageBoxIcon.Information) 
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Catch exp As Exception 

MessageBox.ShowfThere was an error when attempting to update “ & _ 

"the database: “ & exp.Message, _ 

Me.Text, MessageBoxButtons.OK, _ 

MessageBoxIcon. Error) 

End Try 
End Sub 

* Thu tyc ndy dUQc ggi khi si/ kjin PositionChanged cua BindingContext phdt sinh. 

' Hai sl f kidn ndy lidn quan vdi nhau lit do t$nh AddHandler trong frmMain_Load. 
Protected Sub dtEmployeelnfo_PositionChanged(ByVal sender As Object, ByVal e 
As System.EventArgs) 

BindAndFormatGrid() 

ShowTotalSalesO 

ShowCurrentRecordNumber() 

End Sub 

' XCl ly nhdn phim trdn form 

Private Sub frmMairt_Keyt>o‘wn(ByVal sender As Object, ByVai e As 
System.Windows.Forms.KeyEventArgs) Handies MyBase.KeyDown 
If e.KeyCode = Keys.Right Then NextRecord() 

If e.KeyCode = Keys.Left Then PreviousRecord() 

If e.KeyCode = Keys.Home Then FirstRecordO 
If e.KeyCode = Keys.End Then LastRecord() 

End Sub 

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
Handles MyBase.toad 

* Tao DataSet vdi mdt s6 dt7 HSu 
CreateDataSet() 

1 Quy dinh kd't duf HSu cho cic control 

txtl_astName.DataBindings.Add(‘Text‘, dtEmployeelnfo, "LastName") 

' Stir dung thuoc tinh Tag ta cd thS kift mdt gia trj an, gia tri nay co the can thiet 
' khi duyet qua cac record. Trong chi/dng trinh ndy, so EmployeelD ti/dng ufng vdi 
' so dong cua DataTable, do 66 co the sut dung thudc tinh Position nhu trong 
' thu tuc ShowCurrentRecordNumber. 
txtLastName.DataBindings.Add("Tag‘, dtEmployeelnfo, ‘EmployeelD") 
txtFirstName.DataBindings.Add(‘Text", dtEmployeelnfo, "FirstName") 




Dim dbnHireDate As New Binding(“Text", dtEmployeelnfo, "HireDate") 
AddHandler dbnHireDate.Format, AddressOf DateToString 
AddHandler dbnHireDate.Parse, AddressOf StringToDate 
txtHireDate.DataBindings.Add(dbnHireDate) 

Dim dbnRegion As New Binding("Text", dtEmployeelnfo, "Region") 

AddHandler dbnRegion.Format, AddressOf NullToString 
AddHandler dbnRegion.Parse, AddressOf StringToNull 
txtRegion.DataBindings.Add(dbnRegion) 

Dim dbnisMarried As New Binding("Checked", dtEmployeelnfo, “IsMarried") 

AddHandler dbnlsMarried.Format, AddressOf SmalllntToBoolean 
AddHandler dbnlsMarried.Parse, AddressOf BooleanToSmallint 
chklsMarried.DataBindingS;Add(dbnlsMarried) 

Dim dbnSalesToDate As New Binding("Text\ dtEmployeeSales, "SalesToDate") 
AddHandler dbnSalesToDate.Format, AddressOf MoneyToString 
AddHandler dbnSalesToDate.Parse, AddressOf StringToMoney 
txtSaiesToDate.DataBindings.Add(dbnSalesToDate) 

AddHandler Me.BindingContext(dtEmployeelnfo).PositionChanged, _ 

AddressOf dtEmployeelnfo_PositionChanged 

Bind AndFormatG rid() 

ShowCurrentRecordNumber{) 

End Sub 

' KS't DataGrid vdo bing EmployeeOrders va ap dpng dinh dang rieng. 

Sub BindAndFormatGrid() 

' Loc OrderlD dUa trSn gia tri cua thuoc tinh Tag da gan 
dvEmployeeOrders.RowFilter = "EmployeelD = " & txtLastName.Tag.ToString 

With grdOrders 

.CaptionText = "Orders" 

.DataSource = dvEmployeeOrders 
End With 
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‘ Tri/dc fieri can xoa tap hpp TableStyles 
grdOrders.TableStyles.Clear() 

Dim grdTableStylel As New DataGridTableStyleQ 
With grdTableStylel 

' Luon Iu6n gan MappingName d£ djnh dang co hieu lUc 
.MappingName = “EmployeeOrders" 

End With 

Dim grdColStylel As New DataGridTextBoxColumnQ 
With grdColStylel 

.MappingName = "OrderlD' 

.HeaderText ='Order ID“ - ; 

.Width = 75 
End With 

Dim grdColStyle2 As New DataGridTextBoxColumnO 
With grdColStyle2 

.MappingName = ’SubTotal' 

HeaderText = 'Sub Total* 

.Format = 'c' ' - 1 . . 

t . Width = 75 <d 

nd With 

grdTableStylel .GridColumnStylei;AddRange _ 

(New DataGridColumnStyle() {grdColStylel, gVdColStyle2}) 
grdOrders.TableStyles. Add(grdTableStylel) 

End Sub 

’ XCf ly sl/ kien Parse cho control CheckBox 

Protected Sub BooleanToSmalllnt(ByVal sender As Object, ByVal e As 
ConvertEventArgs) 

Select Case e.Value 
Case True 
e. Value = 1 
Case Else 
e.Value - 0 
End Select 


End Sub 
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’ XCf ly sd kiSn Format cho TextBox 

Protected Sub DateToString<ByVal sender As Object, ByVal e As 
ConvertEventArgs) 

* Co thS dung mdt trong hai each sau di chuyin thinh kieu ngay thich hop 
‘ e. Value = CType(e. Value, DateTime). ToString{"d“) 
e.Value = CType(e.Value, DateTime).ToShortDateString 
End Sub 

’ Di chuyin BindingContext Position den record dau tien 
Public Sub FirstRecordO 
Me. BindingContext(dtEmployeelnfo). Position = 0 
End Sub 

' Di chuyin BindingContext Position den record cuoi cung 
Public Sub LastRecordO 

Me.BindingContext(dtEmployeelnfo).Position = dtEmployeelnfo.Rows.Count - 1 
End Sub 

' XCf ly sd ki$n Format cho TextBox SalesToDate 

Protected Sub MoneyToString(ByVal sender As Object, ByVal e As 

ConvertEventArgs) v 

e.Value = CType(e.Value, Decimal).ToString(’c") 

End Sub 

' Di chuyin BindingContext Position din record ki tiep 
Public Sub NextRecordQ 

Me.BindingContext(dtEmployeelnfo). Position += 1 
End Sub 

’ XCf ly st/ kiSn Format cho TextBox Region 

Protected Sub NullToString{ByVal sender As Object, ByVal e As 

ConvertEventArgs) 

If lsDBNull(e.Value) Or e.Value.ToString.Trim.Length = 0 Then 
e Value = “[N/A]“ 

End If 
End Sub 
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' Di chuyen BindingContext Position lui vS mot record 
Public Sub PreviousRecord() 

Me.BindingContext(dtEmployeelnfo).Position -= 1 
End Sub 

1 Hien thi so record hiSn hdnh 

Protected Sub ShowCurrentRecordNumber() 

IbIRecordNumber.Text = "Record " & _ 

Me.BindingContext(dtEmployeelnfo).Position + 1 & “ of ‘ & _ 
dtEmployeelnfo.Rows.Count 
End Sub 

' Cap nhat gia tri Sales To Date cua mSi employee khi ngUdi suf dung 
' chuyen qua cac record khac. 

Protected Sub ShowTotalSalesQ 

' Loc Sales Total dUa trSn gia trj cua thuQc tinh Tag 1 

dvEmployeeSales.RowFilter = “EmployeelD = “ & txtLastName.Tag.ToString 
End Sub 

' Xii ly su kien Format cho CheckBox 

Protected Sub SmalllntToBoolean(ByVal sender As Object, ByVal e As 
ConvertEventArgs) 

Select Case e.Value 
Case 1 

e.Value = True 
Case Else 

e.Value = False : : 

End Select 
End Sub 

’ XCf ly sU kien Parse cho TextBox Hire Date 
Protected Sub StringToDate(ByVal sender As Object, ByVal e As ConvertEventArgs) 
Try 

e. Value = CDate(e.Value) 

Catch exp As Exception 

MessageBox.ShowCData entry error: “ & exp.Message, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 
End Sub 
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' Xti ly sU ki$n Parse cho TextBox Sales To Date 
Protected Sub StringToMoney(ByVal sender As Object, ByVal e As 
ConvertEventArgs) 

Try 

1 Double b&ng vdi kiSu dff HSu Money cua SQL 
e.Value = CType(e.Value, Double) 

Catch exp As Exception 

MessageBox.ShowfData entry error: * & exp.Message, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon. Error) 

End Try 
End Sub 

' Xit ly sU kien Parse cho TextBox Region 

Protected Sub StringToNull(ByVai sender As Object, ByVal e As 

ConvertEventArgs) 

If e.Value.ToString = “[N/A]’* Or e.Value.ToString.Trim.Length - 0 Then 
Try 

e.Value = DBNull. Value 
Catch exp As Exception 

MessageBox.ShowfData entry error: “ & exp.Message, Me.Text, 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 
End If 
End Sub 
End Class 
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57. Su* dung Stored Procedure 

Chirong trinh n&y chi cdch l&p trinh tao v& suf dung cdc thu tuc luu trff npi 
(Stored Procudure) vdi ADO .NET vd SQL Server. Cdch suf dung cdc cdu truy 
van (query, xem nhoid stored procedure) trong database Microsoft Access. 

m 


| SQ dung cac Stored Procedure 


HSE3 


Create Sprocs j AIType*] ir^it Param ] No Params MS Accets j 

TruyxuSt dtl li$u Micro*pftAcces8, stf dyng 'Stored Procedure" Sales By 
Date, c6 haitham tdtnjyfcnvio l& BeginningDot© vh EndingDate. 


Date: |l/1/1998 l|3cJvi/2002 


ftorthwind Sates By Year 


;;^eate3^)ort' | 

ii i m i 


I 

|f)di.e Shined 

jOrder ID 

|SiibTu(ji ■ Ye jr Qj 

► 

1/2/1998 

i 10771 


1998 ~ J 


1/21/1998 

(10777 


1998 

i 

1/14/1998 

! 10779 


1998 

1/19/1998 

j10788 

l$731.S0 

1998 ' 


1/1/1998 . 

j10791 

i*t,829.76 . 

1998 


1/8/1998 

i 10793. 

1*191.IQ . 

1998 


1/2/1998 

110794” 

1*314.76 

1998 


1/20/1998 

110795 

1*2,158.00 

1998 

1 

1/14/1998 

110796 

|*2,341.36 

1998 '•'j 


Cac chufc nanq chfnh: 

> Lap trinh tao cdc stored procedure trong database SQL Server 
"Northwind” b&ng cdch thirc hi$n cdc c&u l$nh SQL chuan suf dung 
namespace System.Data.SqlClient. 

> Thirc thi mot stored procedure khdng y£u cau tham s6' } suf dung dd'i 
tirpng Sql Data Reader. 

> Thirc thi mpt stored procedure c6 y§u c/hi tham s6' vd dua ket qud vdo 
mpt DataGrid. 

> Thirc thi mpt stored procedure yeu cau cd tham stf nhap vdo vd tham so 
xu&'t ra, vd suf dung gid tri tra vd. 

> Thirc thi mpt Query trong database Northwind phidn bdn MS Access suf 
dung cdc class trong namespace System. Data.OleDb. 
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frmMain.vb 

Option Strict On 
Imports System.Data.SqlClient 
Imports System.Data.OleDb 
Imports System.Text 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

Protected Const SQL_CONNECTION_STRING As String = _ 
“Server=localhost;" 

'DataBase=Northwindr* & __ 

“integrated Security=SSPI* 

Protected Const MSO%_CONNECTION_STRING As String = _ 
“Server=(local)\NetSDK;“ & _ 

'DataBase=Northwind;“ & _ 

“Integrated Security=SSPI“ 

' D6i difdng din dSn file Northwind n£u cin thi&t. 

Protected Const ACCESS XONNECTION_STRING As String = 

“Provider=tyicrosoftJet.OLEDB.4.0;Data Source=.ANorthwind.mdb“ 

Protected Const CONNECTION_ERROR_MSG As String = _ 

“To run this, sample, you must have SQL “ & _ 

“or MSDE with the Northwind database,installed 

Protected DidPreviouslyConnect As Boolean = False 

Protected HasCreatedSprocs As Boolean = False 

Protected strConn As String 


Code phit sinh form di/0c bd qua 
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' XCf ly nut Create Report trin tab MS Access. Thu tuc nay sil dung ckc class trong 
' namespace System.Data.OleDb di kit n6i vko database Northwind (Access) 

' va thi/c hiSn mdt cku query nhin vko hai tham s6 

Private Sub btnCreateReport_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCreateReport.Click 

' Kiim tra ngky bkt diu vk ngky kit thuc do ngudi sd dung nhkp vko - 
If Not DatesAreValid() Then 
Exit Sub 
End If 

strConn = ACCESS_CONNECTION_STRING 
' Khdi tao ckc biSn d6i tUQng trong namespace OleDb 
Dim ocnnNorthwind As New CHeDbConnection(strConn) 

Dim ocmd As New OleDbCommandC[Sales By Yearl", ocnnNorthwind) 

Dim oda As New OleDbDataAdapter(ocmd) 

' Tao mot DataSet dS chiia dd lidu ditpc dda vko td OieDbDataAdapter 
Dim dsSales As New DataSetQ 

' Mkc nhidn CommandType = Text (v( dp: ckc l$nh SQL chuan) 
ocmd.CommandType = CommandType. StoredProcedure 

' Thim cac tham sd cin thidt cho query vk gkn gik tri cho chung. 

' Ckc tham sd nky ddoc thim theo ckch tit. Ckch dki hdn co the xem trong 
' thu tuc btnGetProductsjdick 
With ocmd. Parameters 

.Add(New OleDbParameter(*@8eginningDate\ OleDbType.Date)).Value = _ 
CDate(txtBeginningDate.T ext.T rim) 

.Add(New 01eDbParameter(‘6EndingDate“, OleDbType.Date)).Value = _ 

C Date(txtEndingDate.T ext.T rim) 

End With 

Try 

' DUa dd lieu vko DataSet 
oda.Fill(dsSales) 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, _ 
MessageBoxIcon. Error) 

Exit Sub 
End Try 
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' Chi kit dO tiiu vi hiSn thj DataGrid n£u DataSet cd chOa kit qui. 

If dsSales.Tables(0).Rows.Count > 0 Then 

' Ki’t DataGrid vio bing bii't trUdc trong DataSet. 

‘ Thao tac nay se hiSn thj kSt qui. 
grdSales.DataSource = dsSales.Tables(O) 

' TiSp tyc quy dinh tnjc tie'p cic thudc tinh cua DataGrid, 

’ nhUng chi cic thudc tinh khong cd trong cac thudc tinh cua DataGridTableStyle. 
With grdSales 

.BackColor = Color.GhostWhite 

.BackgroundColor = Color.Lavender 

.BorderStyle = BorderStyle.None 

.Caption BackColor = Color. RoyalBlue 

.CaptionFont = New FontfTahoma*, 10.0!, FontStyle.Bold) 

CaptionForeColor = Color. Bisque 

CaptionText = ‘Northwind Sales By Year" 

.Font = New Font(*Tahoma“, 8.0!) 

.ParentRowsBackColor = Color.Lavender 
.ParentRowsForeColor t Color MidnightBlue 
' X6a Uft ci pic <S6i tugng TableStyle di thim vio Itic trude 
1 n£u khdng se g&y ra exception. 

.TableStyles.ClearO 
End With 

' Cic djnh d^ng khic 

Dim grdTableStylel As New DataGridTableStyle() 

With grdTableStylel 

.AlternatingBackC'olor = Color.GhostWhite 

.BackColor = Color.GhostWhite 

.ForeColor = Color. Midnight Blue 

.GridLineColor = Color. RoyalBlue 

.HeaderBackColbr = Color. MidnightBlue 

.HeaderFont = New Font(“Tahoma“, 8.01, FontStyle.Bold) 

.HeaderForeCotor = Color.Lavender 

.Selection BackColor = Color.Tea! 

.SelectionForeColor = Color. PaleGreen 
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' Dilng quSn gin thuQc tlnh MappingName 
.MappingName = dsSales.Tabl8s(0).TableName 
.PreferredColumnWidth = 125 
.PreferredRowHeight = 15 
End With 


' Djnh dang cic c6t mu6n xu£t hi$o tr&n DataGrid. 
Dim "grdColStylel As New DataGridTextBoxColumnQ 
With grdColStylei 

.HeaderText = “Date Shipped" li v. : 

.MappingName = “ShippedDate“ 

.Width =100 • . 

End With 


Dim grdColStyle2 As New DataGridTextB<>xColimtr>(h ? y -h 

With grdColStyle2 . 

.HeaderText = “Order ID" 

MappingName = “OrderlDV 
End With 


Dim grdCoiStyle3 As New DataGridTextBoxColumn()\ 

With grdColStyie3 

.HeaderText = “Sub Total* 

.MappingName = “Subtotal* 

.Format = “c“ 

.Width = 75 
.Readonly = True 
End With 

Dim grdColStyie4 As New DataGridTextBoxColumn() 

With grdColStyle4 
.HeaderText = “Year* 

.MappingName = “Year" 

.Width = 50 
End With 

’ Cho cic doi tugng style vio tip htpp ColumnStyles cua TableStyle 
grdTableStylel.GridColumnStyies.AddRange _ 

(New DataGridColumnStyleQ _ 

{grdColStylel, grdColStyle2, grdCo!Style3, grdColStyle4}) 
grdSa)es.TableStyles.Add(grdTableStylel) 
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Else 

IbiNoSales. Visible = True 
grdSales.Visible = False 
End If 
End Sub 

' Xti ly nut Create Sprocs tren tab Create Sprees. Thu tuc nay sti dung cac class 
' cua namespace System.Data.SqlClient dS thi/c hi$n cac !6nh SQL xoa mot 
' Stored Procedure (neu da tdn t$i) vd tao lai no. 

Private Sub btnCreateSprocs_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCreateSprocs.Click 

strConn = SQL_CONNECTION_STRING 

Dim frmStatusMessage As New frmStatus() 

If Not DidPreviouslyConnect Then 

frmStatusMessage.ShowfConnecting to SQL Server") 

End If 

Dim IsConnecting As Boolean = True 
While IsConnecting 
Try 

Dim northwindConnection As New SqlConnection(strConn) 

' DROP "GetCategories": 

' Lenh SQL ndy xda SP " GetCategories" nSu no da tdn t$i 
Dim strSQL As String = _ 

“IF EXISTS (“ & _ 

“SELECT * “ & _ 

“FROM northwind.dbo.sysobjects " & _ 

"WHERE Name = 'GetCategories' ‘ & _ 

"AND TYPE = 'p')“ & vbCrLf & _ 

“DROP PROCEDURE GetCategories" 

' Ddi ti/png SqlCommand dUOc sCl dung dS thi/c hiin ede lenh SQL 
Dim semd As New SqlCommand(strSQL, northwipdConnection) 
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ry 

' Md mdt k£t n6i vi d£ no tiS'p tuc cdn md cho din khi lenh 
‘ SQL cu6i cung dupe thi/c hiin 
northwiqdConnection.Open() 

ft 

’{ 

' K£t n6i thinh cong do do thoat vdng lip, dong form thing bao 
IsConnecting = False 
DidPreviouslyConnect = True 
frmStatusMessage.CloseO 

' Thi/c hiin cau linh SQL stjf dpng ExecuteNonQuery, se hieu qud 
' hdn trong trUdng hpp khdng c6 dd liiu tri vS 
scmd.ExecuteNonQueryO 

Catch expSql As SqlException 

MessageBox.Show(expSql.ToString, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit Sub 
End Try 

’ CREATE "i GetCategories " 

’ Lenh SQL niy tao SP "GetCategories 
scmd.CommandText = _ 

"CREATE PROCEDURE GetCategories " & vbCrLf & _ 

"AS " & vbCrLf & _ 

"SELECT CategorylD, CategoryName " & _ 

"FROM Northwind.dbo.Categories" 

Try 

scmd.ExecuteNonQueryO 
Catch expSql As SqlException 

MessageBox.Show(expSqi.ToString, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit Sub 
End Try 
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' DROP "GetProducts" 

' Linh SQL n£y xoa SP "GetProducts M nS'u no da ton tai 
scmd.CommandText = _ 

"IF EXISTS (" & _ 

"SELECT * " & _ 

“FROM northwind.dbo.sysobjects “ & _ 

“WHERE Name = 'GetProducts'" & _ 

“AND TYPE = 'p )“ & vbCrLf & _ 

"DROP PROCEDURE GetProducts - 


Try 

scmd.ExecuteNonQueryO 

Catch expSql As SqlException 

MessageBox.Show(expSql.ToString, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit Sub 
End Try 

' CREATE ’GetProducts H 
' Lenh SQL t?o SP " GetProducts " 
scmd.CommandText = _ 

“CREATE PROCEDURE GetProducts “ & vbCrLf & _ 

“ @CategorylD Int “ & vbCrLf & _ 

“AS “ & vbCrLf & _ 

‘SELECT ProductID, ProductName, UnitPrice, UnitsInStock " & 
“FROM Northwind.dbo.Products “ & _ 

"WHERE CategorylD = ©CategoryID - 


Try v 

scmd.ExecuteNonQueryO 

Catch expSql As SqlException 

MessageBox.Show(expSql.ToString, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 
Exit Sub 


End Try 
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' DROP "GetProductCountAndAveragePrice" 

' Xoa SP "GetProductCountAndAveragePrice" neu no da ton tai 
scmd.CommandText = _ 

"IF EXISTS (“ & _ 

"SELECT *" & _ 

“FROM northwind.dbo.sysobjects " & _ 

"WHERE Name = ‘GetProductCountAndAveragePrice 1 " & _ 

"AND TYPE = 'p')" & vbCrLf & _ 

"DROP PROCEDURE GetProductCountAndAveragePrice" 

Try 

scmd.ExecuteNonQueryO 

Catch expSql As SqlException 
MessageBox.Show(expSql.ToString, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit Sub 
End Try 

'CREATE "GetProductCountAndAveragePrice M : 

' T?o SP " GetProductCountAndAveragePrice" 
scmd.CommandText = _ 

"CREATE PROCEDURE GetProductCountAndAveragePrice " & vbCrLf & 
" ©CategorylD Int," & vbCrLf & _ 

" ©AveragePrice Int OUT" & vbCrLf & _ 

"AS "& vbCrLf & _ 

"DECLARE ©SumProdPrices Money vbCrLf & _ 

"SELECT ©AveragePrice = SUM(UnitPrice)/COUNT(ProductlD)" & _ 
"FROM Northwind.dbo.Products * & _ 

"WHERE CategorylD = ©CategorylD" & vbCrLf & _ 

"RETURN " & _ 

"(SELECT COUNT(ProductlD)" & _ 

"FROM Northwind.dbo.Products " & _ 

"WHERE CategorylD = ©CategoryID)" 

Try 

scmd.ExecuteNonQueryO 
Catch expSql As SqlException 

MessageBox.Show(expSql.ToString, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit Sub 
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Finally 

' 06i vdi SP cud'i cOng, ddng kit nii cho dO cd Idi ndo xay ra 
northwindConnection.CloseO 
End Try 

Catch exp As Exception 

If strConn = SQUCONNECTIONJSTRING Then 
strConn = MSDE_CONNECTION_STRING 
frmStatusMessage.ShowCConnecting to MSDE") 

Else 

frmStatusMessage.CloseO 

MessageBox.Show^To run this sample, you must have SQL " & _ 

"or MSDE with the Northwind database installed. ”, _ 

Me.Text, MessageBoxButtons.QK, MessageBoxIcon.Error) 

End 

End If , 

End Try 
End While 

frmStatusMessage.CloseO 

MessageBox.ShowfThe stored procedures were successfully added to the ” & . 
"Northwind database.", Me.Text, MessageBoxButtons.OK, _ 
MessageBoxIcon.Information) 

HasCreatedSprocs = True 
End Sub 

' Thu tyc n&y xii ly nut Get Product Count va Avg Price trin tab All Types. 

' SP trong thu tyc n&y ySu ciu mdt tham s6 truySn vdo vd giii lai mdt tham si xuit 
' vd mdt gia trj tri vd. 

Private Sub btnGetProductCountAndAvgPrice_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
btnGetProductCountAndAvgPrice. Click 
strConn = SQL_CONNECTION_STRING 

Dim scnnNorthwind As New SqlConnection(strConn) 

Dim scmd As New SqlCommand("GetProductCountAndAveragePrice", _ 

scnnNorthwind) 

Dim sda As New SqlDataAdapter(scmd) 
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Dim dsProducts As New DataSet() 
scmd.CommandType = CommandType.StoredProcedure 


' Tham so truyen vio l£y gii trjjri ComboBox. Gan gii tri cho Direction la output. 

' Cuoi cung, th4m m6t tham s6 d£ Idy gii tri tri v4, gia tri tri v4 tri linh RETURN 
' sri dung trong SP, nSu khdng cd l$nh niy, gii tri tri v4 m$c nhiin li gia tri 
' Thinh cdng/LSi do SQL Server tri v4. 

With scmd.Parameters 

.Add(New SqlParameterf@CategorylD\ SqlDbType.Int)). Value = _ 
cboC atego ries AIITypes .SelectedValue 

’ Mic nhiin, gii tri cua Direction fi 'Input*, do dd chi cin gin gii tri cho 
’ no d6i vdi hai tham sd sau. " ‘ - 

.Add(New SqlParameterJ'CAvertis^Prlce", _ 1 
SqlDbType.Money)). Direction = Pa ram eterD irection .Outp ut 
' Thay v) thim mQt SqlParameter dd Idy gii tri tri v4, ta c&thd chi cin 
' khai bio mQt bi4n Integer vi khdi tpo bing gii tri v4 bdi phridng 

* ■ '■ v 

' thric Fill cua SqlDataAdapter. 

.Add(New SqlParameter(*RetumValue‘, _ 

SqlDbType.Int)).Direction = Para mete rDir ectan. fi etumV a lue 
End With 

Try . ' 

' DS biS't thim thong tin v4 ddng code niy, xem khdi Try...Catch trong 
' thu tuc frmMain_Load. 
sda.Fill(dsProducts, ‘Products*) 

Catch expSQL As SqlException 

MessageBox.Show(expSQL.ToString, Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit Sub 
End Try 

' Hien thi kdt qua 

IblProductCountAndAvgPrice.Text = "There are " & _ 

scmd.Parameters(‘ReturnValue").Value.ToString & * products ‘ & _ 

“in the “ & cboCategoriesAIITypes.Text & “ category, at an average " & _ 

"price of ‘ & CType(scmd.Parameters(‘€AveragePrice‘).Value, _ 

Double).ToString("c") 

End Sub 
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' Xit ly cho nut Get Products tren tab Input Param. SP "GetProducts" yeu cau m$t 
' tham sd‘ truySn vko. SP dupe thi/c hidn vk mdt DataGrid hiSn thj ket quk. 

Private Sub btnGetProducts_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnGetProducts.Click 

strConn = SQL_CONNECTION_STRING 
1 Xem thim thong tin cac ddng lenh sau trong frmMain Load 
Dim scnnNorthwind As New SqlConnection(strConn) 

Dim semd As New SqlCommand{“GetProducts“, scnnNorthwind) 

Dim sda As New SqlDataAdapter(scmd) 

Dim dsProducts As New DataSet() 

' Them tham s6 ySu c£u bdi SP. Gik trj cua tham $6’ nky lay til ComboBox. 

' Ben dudi Ik ckch dai de thSm mdt Sql Parameter vk gan cac thude 
' tinh cua no. Xem trong btnGetProductCountAndAvgPrice_Click dS thky 
' each ngkn hon. 

Dim sparCatID As New SqlParameter() 

With sparCatID 

.ParameterName = “<§CategorylD“ 

SqlDbType = SqlDbType.int 
.Value = cboCategoriesInputParam.SelectedValue 
End With 

With semd 

. P a ram ete rs. Add {spa rCatl D) 

CommandType = CommandType.StoredProcedure 
End With 

Try 

' Di/a dQ lidu vao DataSet vk co th£ dkt ten cho DataTable neu muon. 
sda.Fill(dsProducts, “Products”) 

Catch expSQL As SqlException 

MessageBox.Show(expSQL.ToString, Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

Exit Sub 
End Try 
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' Ket DataGrid vdo bing trong DataSet v& hi£n thj. 
grdProducts.DataSource = dsProducts.Tables(O) 

With grdProducts 

.BackColor = Color.GhostWhite 

.BackgroundCoior = Color.Lavender 

.BorderStyle = BorderStyle.None 

.CaptionBackCoior = Color.RoyalBlue 

.CaptionFont = New FontfTahoma', 10.01, FontStyle.Bold) 

.CaptionForeColor = Color.Bisque 

CaptionText = "Northwind Products* ,•< - 

.Font = New FontfTahoma", 8.0!) 

.ParentRowsBackColor = Color.Lavender 
.ParentRowsForeColor =. ; ColohMidnjghtBUie 
.TableStyles.ClearO ,-i , f 

End With - - ... V J . , ... 

Dim grdTableStylel As New DataGric|T$bl$$tyJjSO 
With grdTableStylel 

.AlternatingBackColor = Color. GhosiWhitef,, « 
.BackColor = Color.GhostWhite r 

.ForeColor = Color. MidnightBlue c c-,;. «, r 

GridLineColor = Color.RoyalBlue 
.HeaderBackColor = Color.MidnightBlue 
.HeaderFont = New FontfTahoma", 8.01, FontStyle.Bold) 
HeaderForeColor = Color.Lavender rl . , |( ,,,. ^ 
.SelectionBackColor = Color.Teal . , , <v / 

.SelectionForeColor = Color. PaleGreen 
.MappingName = dsProducts.Tables(0).Tab!eName 
.PreferredColumnWidth = 125 
.PreferredRowHeight = 15 
End With 

Dim grdColStylel As New DataGridTextBoxColumn() 

With grdColStylel 
.HeaderText = "ID** 

.MappingName = "ProductlD* 

.Width = 50 


End With 
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Dim grdColStyle2 As New DataGridTextBoxColumr\() 
With grdColStyle2 

HeaderText = “Name" 

.MappingName = "ProductName" 

End With 


Dim grdColStyle3 As New DataGridTextBoxColumn() 
With grdColStyle3 
.HeaderText = "Price" 

.MappingName = "UnitPrice" 

.Format = "c" 

.Width = 75 
.Readonly = True 
End With 

Dim grdColStyle4 As New DataGridTextBoxColumn() 
With grdColStyle4 

HeaderText = "# In Stock" 

.MappingName = “UnitsInStock" 

.Width = 75 

Alignment = HorizontalAlignment. Center 
End With 


grdTableStylel .GridColumnStyles.AddRange _ 

(New DataGridColumnStyleQ _ 

{grdColStylel, grdColStyle2, grdColStyle3, grdColStyle4}) 
grdProducts.TableStyles.Add(grdTableStyle1) 

End Sub 

' Thu tuc xii ly nut Top Ten Products tren tab No Params. 

Private Sub btnGet10MostExpProds_Click(ByVa! sender As System.Object, ByVal 
e As System.EventArgs) Handles btnGetlOMostExpProds.Click 

Dim scnnNorthwind As New SqlConnection(SQL_CONNECTION__STRING) 

Dim scmd-'As New SqlCommand("[Ten Most Expensive Products]", 
scnnNorthwind) 


.scmd.CommandType = CommandType.StoredProcedure 
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' Md ket nd'i vk truyen vko gik trj dS ddng kdt n6i thay cho viec 
‘ goi scnnNorthwind.Close() 
scnnNorthwind.Open() 

Dim sdr As SqlDataReader = 
scmd.ExecuteReader(CommandBehavior.CloseConnection) 

' Tqo mot instance cua StringBuilder dS n6i ghdp ckc chuSi di hiin thi 
' trong TextBox. Class StringBuilder dupe thidt kd td'i Uu cho vi$c xti ty chudi. 
Dim sb As New StringBuilderQ 
sb.AppendCProduct Name") 
sb.Append(vbTab) 
sb.Append(vbTab) 
sb.Append(vbTab) 
sb.AppendCPrice") 
sb.Append(vbCrLf) 

s b. Ap pe nd (“=========»» cs;seaesre*:«:is=* ) 

sb.Append(vbTab) 

sb.Append("==“======‘) 

sb.Append(vbCrLf) 

' DuySt qua ndi dung cua d6i tuqng SqlDataReader 
While sdr.Read 

sb,Append(sdr.GetString(0)) 

sb.Append(vbTab) 

sb.Append(vbTab) 

If sdr.GetString(O).Length < 20 Then 
sb.Append(vbTab) 

End If 

' De dinh dang chudi nhd la gia trj currency, trade tien phki chuyen no 
‘ thanh kieu co interface IFormattable 
sb.Append(sdr.GetSqlMoney(1).ToDouble.ToString(“c")) 
sb.Append(vbCrLf) 

End While 

' HiSn thi ket qui 

txtTenMostExpProds.Text = sb.ToString 
End Sub 
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' Xii ly si/ kiin SelectedlndexChanged cua TabControl. 

Private Sub tabApp_SelectedlndexChanged(ByVal sender As Object, SyVai e As 
System.EventArgs) Handles tabApp.SelectedlndexChanged 

If Not HasCreatedSprocs AndAlso tabApp.SelectedTab.Tablndex > 0 Then 
MessageBox.Show(’Vou must first create the required stored procedures.",. 

Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Stop) 
tabApp. Selected Index = 0 
Elself HasCreatedSprocs AndAlso _ 

cboCategoriesInputParam. Items.Count = 0*Then 
‘ DUa dOli$u vko c&c ComboBox chi khi chung cht/a co dit lieu va 
' c&c SP da diigc tao. 
strConn = SQL_CONNECTION_STRING 
Dim scnnNorthwind As New SqlConnection(strConn) 

Dim dsCategories As DataSet 

Dim scmd As New SqlCommand('GetCategories“, scnnNorthwind) 

Dim sda As New SqlDataAdapter(scmd) 

dsCategories = New DataSet() 

scmd.CommandType = CommandType.StoredProcedure 
Try 

sda. Fill(dsCategories) 

Catch expSql As SqlException 

MessageBox.Show(expSql.ToString, Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 

' KSt dO lieu vko cac ComboBox 
With cboCategoriesInputParam 

DataSource = dsCategories.Tables(O) 

.DisplayMember = "CategoryName" 

ValueMember = "CategorylD" 

End With 


With cboCategoriesAIITypes 

.DataSource = dsCategories.Tables(O) 
.DisplayMember = "CategoryName" 
.ValueMember = "CategorylD" 

End With 
End If 
End Sub 
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' Kiim tra ngay th&ng do ngUdi sO dgng nh$p vdo trin lab “MS Access" 

Private Function DatesAreValidQ As Boolean 
Dim objControl As Object 
For Each objControl In pgeMSAccess.Controls 

If objControl.GetType.ToString = 'System.Windows.Forms.TextBox - Then 
Dim txt As TextBox = CType(objControl, TextBox) 

If Not IsDate(txt.Text.Trim) Then 

MessageBox.ShowfYou must enter a correct date in the form “ & _ 
"mm/dd/yyyy.’, Me.Text, MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 
txt.Focus() 
txt.SelectAII() 

Return False 
End If 
End If 
Next 

Return True 
End. Function 
Erd Class 
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Phan X - Microsoft .NET Framework 

58. Lam hoat hinh vdfi GDI+ 

Chtfcrng trinh n&y bi£u diln ky thu&t d$ l&m hoat hinh (animation) vdi 
GDI+, bao gom hoat hinh theo c4c khung hinh (frame), ve vk di chuyln cdc 
hinh co ban tr£n m&n hinh, vk hoat hinh t6 m&u v§n bdn. 



> L&m hoat hinh ki£u frame, suf dung ckc hinh iinh lidn tuc d£ hi£n thi 
mot con m^t dang chdp. 

> Tao mot qua banh doi ttf&ng vdi klch thudc vk tdc dp cua qud banh c6 
phu thuoc vko kich thirdc cua cufa so. 

> Lam hoat hinh cho v3n bdn b&ng c&ch di chuyen ckc diem b£t d4u vk 
ket thuc vung to m&u (m&u bien thi&n). 

Project: Lam hoat hinh voi GDI+ 

Control Timer: tmrAnimation 

frmMain.vb 

Option Strict On 

Imports System.Drawing.Drawing2D 

Imports System.Drawing.Text 
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Public Class frmMain 

Inherits System.Windows.Forms.Form 

Friend WithEvents tmrAnimation As System.WindowsiFortns.Timer ' 

’ Code phat sinh form dUdc b6 qua 

Const WINK_TIMER_INTERVAL As Integer = 150 ' Tinh b£ng milligiiy > 
Protected arrlmages(4) As Image 

Protected intCurrentlmage As Integer = 0 , 

Protected j As Integer =1 • ' ’ v 

Const BALL_TIMER_INTERVAL As Integer = 25 

Private intBallSize As Integer = 16 

Private intMoveSize As Integer = 4 

Private bitmap As bitmap 

Private intBallPositionX, intBallPositionY As Integer 
Private intBallRadiusX, intBaltRadiusY, intBallMoveX, intBallMoveY, __ 
intBallBitmapWidth, intBallBitmapHeight As Integer 
Private intBitmapWidthMargin, intBitmapHeigbtMargin As Integer 
Const TEXT_TIMER_INTERVAL As Integer = 15 
Protected intCurrentGradientShift As Integers 10 
Protected intGradiantStep As Integer = 5 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

' Ltfy ming cac hinh inh u chdp mAt" - : . 4 

Dim i As Integer 
Fori = 0 To 3 

arrlmages(i) = New bitmapC.AEye" & (i + 1).ToString & " png") 

Next i 

End Sub 

' Xtf ly sU kiert thay dSi cac nut Radio 

Private Sub RadioButtons_CheckedChanged(ByVa! sender As Object, ByVal e As 
System.EventArgs) Handles optWink.CheckedChanged, optBall.CheckedChanged 

If optWink.Checked Then 
tmrAnimation.Interval = WINKJHMERJNTERVAL 
Elself optBall.Checked Then 
tmrAnimation.Interval = BALL_TIMERJNTERVAL 
Elself optText.Checked Then 
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tmrAnimation.Interval = TEXT_TIMER_INTERVAL 
End If 

OnResize(EventArgs. Empty) 

End Sub 

' Xti ly si/ kiin Tick cua Timer. DAy la thu tuc thi/c hien hoat h'tnh 
Protected Overridable Sub TimerOnTick(ByVal obj As Object, ByVal ea As 
EventArgs) Handles tmrAnimation.Tick 

If optWink.Checked Then 

’ Liy d6i ti/ong Graphics cua Form 
Dim grfx As Graphics = CreateGraphics() 

' Goi Drawlmage, si/ dung Overload thif 8, ySu cau truyen vao hinh Anh 
' se dUdc hiSn thj, toa 66 X vAY (trung cua tam Anh trAn man hinh), vA 
' chieu rdng vA chieu cao cua Anh. 
grfx.Drawlmage(arrlmages(intCurrentlmage), _ 

Clnt((ClientSize.Width - arrlmages(intCurrentlmage).Width) / 2), _ 
Clnt((ClientSize.Height - arrlmages(intCurrentlmage).Height) / 2), _ 
arrlmages(intCurrentlmage).Width, _ 
arrlmages(intCurrentlmage). Height) 

' Goi phiidng thdc Dispose (cac doi tdpng co cung cap no) se 
' tAng hieu xuat chi/dng Irinh 
grfx.Dispose() 

' Duyet qua cac hinh Anh 
intCurrentlmage += j 
ff intCurrentlmage = 3 Then 

' Day IA Anh cud'i cung, do do lAm ngUpc lai d4 m£t nhAm lai 

j = -1 

Elself intCurrentlmage = 0 Then 

' DAy IA Anh diu tiSn, do do lam ngitqc lai d4 md mAt 
j = 1 
End If 

Elself optBall.Checked Then 


' LA'y dd'i ti/png Graphics cua Form 
Dim grfx As Graphics = CreateGraphicsQ 
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' Ve hinh (bitmap) chuta qui banh ISn Form 
grfx.Drawlmage(bitmap, _ 

Clnt(intBallPositionX - intBallBitmapWidth i 2), _ 

Clnt(intBallPositionY - intBallBitmapHeight / 2), _ 
intBallBitmapWidth, intBallBitmapHeight) 
grfx.DisposeQ 

' Tang vj tri cua quit banh sau khi di ve Iqi 
intBallPositionX += intBallMoveX 
intBallPositionY += intBallMoveY 

' Ddi hudng qui banh khi nd dyng v&o ditdng biSn 
If intBallPositionX + intBallRadiusX >= ClientSize Width _ 

Or intBallPositionX - intBaHRadfosX <= 0 Then 
intBallMoveX = -irttBaHMoveX 
Beep() - 

End If - 

' Gan gidi hqn cho Y Id 40 dS banh khdng dgrig viocic control phia trin 
If intBallPositionY + IntBallRadiusY >= ClientSize.Height _ 

Or intBallPositionY - intBallRadiusY <= 40 Then 

intBallMoveY = -intBallMoveY 

Beep() 

End If 

Else If optText. Checked Then 

' Ldy ddi tUQng Graphics cua Form 
Dim grfx As Graphics = CreateGraphics() 

' Chon kiSu font , vin bin, vi xac djnh kich thudc. 

Dim font As New fontfMicrosoft Sans Serif*, 96, _ 

FontStyle.Bold, GraphicsUnit.Point) 

Dim strText As String = "GDI+!" 

Dim sizfText As New SizeF(grfx.MeasureString(strText, font)) 

' Gan vj tri se in vin bin ra: Chinh giOa cCfa so 
Dim ptfTextStart As New PointF( _ 

CSng(ClientSize.Width - sizfText.Width) / 2, _ 

CSng(ClientSize.Height - sizfText.Height) / 2) 
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' Gan vj tri bit diu vi kit thuc cua vung td, sau 66 thay dtii gia trj niy 
' di thiy ket qui 

Dim ptfGradientStart As New PointF(0, 0) 

Dim ptfGradientEnd As New PointF(intCurrentGradientShift, 200) 

' Tgo instance Brush s£f dung de ve vin bin 
Dim grBrush As New LinearGradientBrush(ptfGradientStart, _ 
ptfGradientEnd, Color.Blue, BackColor) 

' Ve vin ban chinh giCta cita s6 
grfx.DrawString(strText, font, grBrush, ptfTextStart) 
grfx.Dispose() 

' Djch chuyen vung td, dio no lai khi din mdt gia trj cu the 
intCurrentGradientShift += intGradiantStep 
If intCurrentGradientShift = 500 Then 
intGradiantStep = -5 

Elself intCurrentGradientShift = -50 Then 
intGradiantStep = 5 
End If 
End If 
End Sub 

' Phuong thifc nay Override phtldng thdc OnResize trong class Control cd sd, 

' si/ kien niy xiy ra khi control dupe djnh lai kich thude (truing hdp nay li Form) 
Protected Overrides Sub OnResize(ByVal ea As EventArgs) 

If optWink.Checked Then 

’ Li'y doi tupng Graphics cua Form va xoa cac het cac hinh inh da co. 

Dim grfx As Graphics = CreateGraphics() 

’ Co the sd dpng grfx.Clear(BackColor) hoic Me.lnvalidate() di xoa man hinh 
Me.RefreshQ 
grfx.Dispose() 

Elself optBall.Checked Then 

Dim grfx As Graphics = CreateGraphicsQ 
grfx.Clear(BackColor) 

' Gin ban klnh cua qua banh li phan so cua chiSu rdng hoic 
' chiSu cao cua client 

Dim dbIRadius As Double = Math.Min(ClientSize.Width / grfx DpiX, _ 
ClientSize.Height / grfx.DpiY) / intBallSize 
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' Gan chiSu r$ng vk chiSu cao cua quk banh theo DPI cua ckc tnjc X vk Y 
intBallRadiusX = Clnt(dblRadius * grfx.DpiX) 
intBallRadiusY = Clnt(dblRadius * grfx.DpiV) 

grfx.Dispose() 

' Gin khoang ckch di chuydn cho banh bkng 1 hoac la phkn s6 cua ktch 

' thUdc banh. Gia trj ckng Idn, banh di chuyen ckng nhanh. 
intBallMoveX = Clnt(Math.Max(1, intBallRadiusX / intMoveSize)) 
intBallMoveY = Clnt(Math.Max(1, intBallRadiusY / intMoveSize)) 
intBitmapWidthMargin = intBallMoveX 
intBitmapHeightMargin = intBallMoveY 

' Xac dmh klch thi/dc chlnh xac cua Bitmap 
intBallBitmapWidth = 2 * (intBallRadiusX + intBitmapWidthMargin) 
intBallBitmapHeight = 2 * (intBallRadiusY + intBitmapHeightMargin) 

' Tqo m$t bitmap mdi, truySn vko chiSu rong vk chieu cao 
bitmap = New bitmap(intBallBitmapWidth, intBallBitmapHeight) 

’ LSy ddi tupng Graphics cua Bitmap, xoa banh cu vk ve lai banh mdi 
grfx = Graphics.Fromfmage(bitmap) 

With grfx 

.Clear(BackColor) 

.FiilEllipse(Brushes.Red, New Rectangle(intBallMoveX, _ 
intBallMoveY, 2 * intBallRadiusX, 2 * intBallRadiusY)) 

,Dispose() 

End With 

' reset vj tri cua banh vko giOa cfta sd 
intBallPositionX = Clnt(ClientSize.Width / 2) 
intBallPositionY = Clnt(ClientSize.Height / 2) 

Elself optText.Checked Then 

' Lk’y doi ti/png Graphics cua Form vk xda h)nh knh da cd 
Dim grfx As Graphics = CreateGraphicsQ 
grfx.Clear(BackColor) 

End If 
End Sub 
End Class 
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59. Tao mpt Windows Service 


ChiftJng trinh n4y chi c4ch tao mot Windows Service (dich vu tr4n 
Windows' *4 e4ch trien khai n6. 


1 ao mol Window Seivice. 


The Windows Seivics is currently installed- Use the Computer 
Management console to Start and Stop the service. (On Windows XP. 
dick Stan, then right-dick My Computer, then seledManage. Then 
dick on Seivices and Applications-> Services.) Or use the buttons 
below 


Sisn | Pause j 


yrsinuc 


Stop | 


Verify 

Install 


Service Status: Running 


■A 


Cac chute nana chinh: 

Chuang trinh cho bi£t c4ch xay dung mot Windows Service bao g6m c4c 
phuong thufc tuang ufng khi service Start, Stop, Pause, Continue, v4 khi 
service Stop do h£ thdng shut down. Ngo4i ra, solution n4y c6n cung cap mOt 
project d£ tridn khai (ddng g6i) Windows Service. 

Chd y: 

> Suf dung h£ dieu h4nh c6 ho tra Service. (Windows NT, 2000, XP, 
Windows .NET Server family). 

Cac bufdc xay difnq mot Windows Service: 

> Tgo Windows Service. Chi dcfn gidn 14 tao m$t project Windows 
Service mdi trong Visual Basic .NET. Ta duac cung ctfp c4c phuang 
thufc override On Start v4 OnStop. Vi£t code cho c4c phuang thufc n4y, 
v4 c4c phuang thufc kh4c neu c4n (OnContinue v4 OnPause). Ta cung 
cdn g4n c4c tham s6 tuang ufng. Vi du, gi4 tri cua 
CanPauseAndContinue ph4i g4n 14 True neu mu6n cho ph6p c4c su 
kien tuang ufng (Pause v4 Continue). 

> Them mpt Installer. C6 the th§m mot Installer b&ng c4ch nhan chupt 
phdi v4o cufa s 8 thidt k£ v4 chon ’Add Installer". Cdn cd Installer dd thuc 
hien c4c thay ddi thlch hap trong registry, v4 dd service hook vao c4c 
su kien dung. Trong ServiceProcessInstaller ta can x4c dinh account se 
start service. Chon lua phd bien 14 LocalSystem v4 User. Trong 
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WindowsServicelnstaller ta cdn chi dinh cdch service se start. Chon 
Manual neu muon service se start bdi ngufdi suf dung. Chon Automatic 
n§u mu6n service start khi he dieu hknh startup. 

> Tao bdn phan phat. Phtfcmg phdp thu$n ti$n la suf dung Deployment 
Project d£ tao m<)t file MSI. Trifdc ti&n, th&m mpt Deployment Project 
(wizard) vho solution c6 chufa project Windows Service. Sau d6 tao mot 
Custom Action cho Primary Output cua project Windows Service (nh&n 
chuot phai v4o project Deployment v4 chon View^Cuitom Actions. Sau 
do nh&n chuot phai v^o Custom Actions v4 chon Add Custom Action. 
Khi hop thoai md ra, nh&p dup chuot v4o Application Folder v4 chon 
Primari Ouput cua project Windows Service. Thao tdc n4y them Custom 
Action nhy v4o b6n Installer Action: Install, Commit, Rollback v4 
Uninstall). B£n day c6 thl Build solution, v4 file MSI ket qua 14 file c4i 
dat Windows Service. 

Thuf tu chav vi du nav: 

> C4i dat Windows Service Demo b&ng cdch nha'p dup chu$t v4o file 

Windows Service - Time Track.msl 

> Nhap dup v4o file Tao mot Windows Service.sln 

> Xem project Windows Service Demo d£ th£y code tao mpt Windows 
Service. 

> Xem Windows Service - Time Track Install d£ tha'y mpt vf du tao 

project tri£n khai cho mpt Windows Service. 


Solution: Tao mot Windows Service 


Project: Tao mot Windows Service 

Project n4y cung cfip m$t giao di$n d£ ki£m tra trang thdi vk dieu khi^n 
Windows Service. 

frmMain.vb 

Option Strict On 

Imports System.ServiceProcess 

■ Public Class frmMain 

Inherits System.Windows.Forms.Form 
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Private isServicelnstalled As Boolean = False 
Private isServiceRunning As Boolean 

Private myService As ServiceController ' Stidyng de tham chieu den Service 

Friend WithEvents Ibllnstructions As System.Windows.Forms.Label 
Friend WithEvents IbllnstallationStatus As System.Windows.Forms.Label 
Friend WithEvents btnStart As System.Windows.Forms.Button 
Friend WithEvents btnPause As System.Windows.Forms.Button 
Friend WithEvents btnContinue As System.Windows.Forms.Button 
Friend WithEvents btnStop As System.Windows.Forms.Button 
Friend WithEvents sbrServiceStatus As System.Windows.Forms.StatusBar 
Friend WithEvents tmrCheckStatus As System.Windows.Forms.Timer 
Friend WithEvents btnVerifylnstall As System.Windows.Forms.Button 

' Code phat sinh form dupe be 3 qua 

' Ra lenh cho Service tiS'p tuc (Continue) 

Private Sub btnContinue_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnContinue.Click 
myService.Continue() 

U pdateSe rviceStatus () 

End Sub 

' Ra lenh service tam ditng (Pause) 

Private Sub btnPause_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnPause.Click 
myService.Pause() 

UpdateServiceStatusQ 
End Sub 

' Ra Ipnh sen/ice ditng ho&n toan (Stop) 

Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnStop.Click 

myService. $top() 

UpdateServiceStatus() 


End Sub 
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* Fla l$nh cho service bit diu (Start) 

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnStart. Click 
myService.StartO 
UpdateServiceStatus() 

End Sub 

* Kiem tra xem service da dUdc cai dat chua 

Private Sub btnVerifylnstall_Click(ByVa! sender As System.Object, ByVal e As 
System.EventArgs) Handles btnVerifyInstall.Click 
CheckServicelnstallationQ 
End Sub 

' Khi Form load thi kiem tra Service da dUdc cdi dat chua va trang thai cua no la gl 
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

CheckServicelnsta!lation() 

UpdateServiceStatus() 

Me. tmrCheckStatus. Enabled = True 
End Sub 

' Cip nhit iai trang thii cua service theo chu ky thdi gian 
Private Sub tmrCheckStatus_Tick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles tmrCheckStatus.Tick 
UpdateServiceStatusQ 
End Sub 

Private Sub CheckServicelnstallationO 
' Kiem tra service da di/dc cai dat chua 
Dim installedServices() As ServiceController 
Dim tmpService As ServiceController 
Dim i As Integer = 0 

' Tit Timer trong doan code nay 
Me.tmrCheckStatus.Enabled = False 


installedServices = ServiceController.GetServicesQ 
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For Each tmpService In insta/ledServices 

If tmpService. DisplayName = “ TimeTrackerService" Then 
isServicelnstalled = True 
Me.lbilnstallationStatus.Text = _ 

"The Windows Service is currently installed. Use the " & _ 
"Computer Management console to Start and Stop the “ & _ 
"service. (On Windows XP, click Start, then right-click * & _ 

"My Computer, then select Manage. Then click on " & _ 
"Services and Applications *> Services.) Or use the " & _ 
“buttons below" 

' Gan Service vao myService de sd dung sau nay 
myService = tmpService 
End If 

Next tmpService 

Me.tmrCheckStatus.Enabled = True 
End Sub 

Private Sub UpdateServiceStatus() 

Me.tmrCheckStatus.Enabled = False 

If Not (myService Is Nothing) Then 

' Tao lai myService, neu khong, trang ihai cua myService khdng bao 
' gid thay doi. 

CheckServicelnstallation() 

Select Case myService.Status 

Case ServiceControllerStatus.Stopped 
Me.btnContinue.Enabled = False 
Me. btnPause. Enabled = False 
Me.btnStart.Enabled = True 
Me.btnStop.Enabled = False 
Case ServiceControllerStatus.Running 
Me.btnContinue. Enabled = False 
Me.btnPause.Enabled = True 
Me.btnStart.Enabled = False 
Me.btnStop.Enabled = True 
Case ServiceControllerStatus. Paused 
Me.btnContinue.Enabled = True 
Me.btnPause.Enabled = False 




558 


— Ovimg TvchiiHjtH'H 

Me.btnStart.Enabled = False 
Me.btnStop. Enabled = True 
Case Else 

' Tri/dng hdp niy co thi xiy ra khi m$t hinh ddng dang chay. Trong 
' trudng hop niy khdng cho phep ngUdi sti dung nhi'n vio bat ky nut nio. 
Me.btnContinue.Enabled = False 
Me.btnPause.Enabled = False 
Me,btnStart.Enabled = False 
Me. btnStop. Enabled = False 
End Select 

' Hien thi trang thdi trdn Status Bar 

Me.sbrServiceStatus.Text = ‘Service Status: ’ + myService.Status.ToStringQ 
Else 

Me.btnContinue.Enabled = False 
Me.btnPause.Enabled = False 
Me.btnStart Enabled = False 
Me.btnStop.Enabled = False 
End If 

Me.tmrCheckStatus. Enabled = True ■ 

End Sub 
End Class 

Project: Windows Service Demo 

TimeTracker Windows Service.vb 

Option Strict On 

Imports System. Service Process 

Public Class TimeTrackerService 

Inherits System.ServiceProcess.ServiceBase 

' Khai bao cac bien doi tufong DataTime vk TimeSpan 

Private timeStart As DateTime ’ Si7 dung de biet thdi gian bit dau cua service 
Private timeEnd As DateTime ' S&dung d£ biS't thdi gian k£t thuc cua service 
Private timeElapsed As New TimeSpan(O) 

’ Sit dung de ti'nh toan khodng thdi gian gid timeEnd va timeStart 
Private timeDifference As TimeSpan 

Private isPaused As Boolean = False ' Dibi£t service co tarn dC/ng hay khdng 
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#Region ‘ Component Designer generated code * 

Public Sub New() 

MyBase.NewQ 

‘ This call is required by the Component Designer. 

InitializeComponentQ 

1 Add any initialization after the lnitializeComponent() call 
End Sub 

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) 

If disposing Then 

If Not (components Is Nothing) Then 
components.Dispose() 

End If 
End If 

MyBase.Dispose(disposing) 

End Sub 

' DiSm xti ly chinh cua tii'n trinh (process) 

<MTAThread()> _ 

Shared Sub Main() 

Dim ServicesToRunQ As System.ServiceProcess.ServiceBase 

' Co thS nhidu NT Service ch?y trong cung mot process. De them mot service 
' khac, thay dtSi ddng ben dUdi de tao doi ti/dng service thd hai. Vi du: 

‘ ServicesToRun = New System.ServiceProcess.ServiceBase () {New_ 
TimeTrackerService, New MySecondUserService) 

ServicesToRun = New System,ServiceProcess.ServiceBaseQ {New_ 

TimeT rackerService()} 

System. ServiceProcess.ServiceBase.Run(ServicesToRun) 

End Sub 
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'Required by the Component Designer 

Private components As System.ComponentModet.lContainer 

' NOTE: The following procedure is required by the Component Designer 
' It can be modified using the Component Designer. 

* Do not modify it using the code editor. 

<System.Diagnostics.DebuggerStepThrough()> Private Sub lnitializeComponent() 
'TimeT rackerService 

i 

Me.CanPauseAndContinue = True 
Me.CanShutdown = T rue 
Me.ServiceName = “TimeTrackerService" 

End Sub 
#End Region 


’ OnContinue xay ra khi ngifdi sti dung ydu cau mot service da tam dtfng tiep tuc 
‘ hoat dong. De co the ggi phUdng thilc ndy thi thudc tinh CanPauseAndContinue 
' phai co gia trj la True (m$c nhi&n la False). 

Protected Overrides Sub OnContinue() 

' B£t dau tinh lai thdi gian hoat dong. Gan timeStart bang thdi gian hidn hanh, 
1 va gan isPaused = False. 

If isPaused Then 

timeStart = DateTime.Now 
End If 

isPaused = False 

EventLog.WriteEntryCService Continued at" + _ 

DateTime.Now(}.ToStringO) 

End Sub 

' OnPause xay ra khi ngudi sii dung yeu ciu Service tam ddng. De co thS goi 
‘ phUong thi/c nky thi thudc tinh CanPauseAndContinue phai co gia trj 
' la True (mac nhien Id False). 

Protected Overrides Sub OnPause() 

' Ltfu lai thdi gian da trdi qua vao timeElapsed, va dpi ngudi sCf dung Stop 
' hoac Continue service 
timeEnd = DateTime.Now() 
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If Not isPaused Then 

timeDifferprnce = timeEnd.Subtract(timeStart) 
timeElapsed = timeElapsed.Add(timeDifference) 

End If 

isPaused = True 

EventLog.WriteEntryCService was Paused at “ + _ 
DateTime.Now().ToString()) 

End Sub 

' OnShutdown xay ra khi shut down may tinh va service chua dupe Stop. 
' Thuoc tinh CanShutdown phai co gia trj Id True. 

Protected Overrides Sub OnShutdown() 

‘ Ep service phii dupe stop 
Me.OnStopO 
End Sub 

' OnStart dupe gpi khi Service dupe start 
Protected Overrides Sub OnStart(ByVal argsQ As String) 

' Reset timeElapsed bang 0. DiSu nay can thiSt vi ngUdi sit dpng co 
' thi Restart ma khdng tam dilng hope diing service. 
timeElapsed = New TimeSpanfO) 

’ Khdi tao thdi gian b&\ diu (Start) 
timeStart = DateTime.Now() 
isPaused = False 

EventLog.WriteEntryCService was Started at “ + _ 
timeStart.ToStringO) 

End Sub 

’ OnStop dupe goi bd't cU khi ndo service dupe ditng lai 
Protected Overrides Sub OnStopO 


' Tinh toan cac khoing thdi gian can thiS't 
timeEnd = DateTime.Now() 
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If Not isPaused Then 

timeDifference = timeEnd.Subtract(timeStart) 
timeElapsed = timeE lapsed. Add(timeD iff ere nee) 

End If 

EventLog.WriteEntryCService was Stopped at" + _ 
timeEnd.ToStringO) 

EventLog.WriteEntryCService ran for a total time of “ + _ 
timeElapsed.ToStringO) 

End Sub 

End Class 

Projectlnstaller.vb 

Option Strict On 

Imports System.ComponentModel 
Imports System.Configuration.Install 

’ Can phai tao Installer d£ service dupe edi ddt v&o he thd'ng la mot service. 
<Runlnstaller(True)> Public Class Projectlnstaller 
Inherits System.Configuration.Install.Installer 

#Region “ Component Designer generated code “ 

Public Sub New() 

MyBase.NewQ 

'This call is required by the Component Designer. 
lnitializeComponent() 

'Add any initialization after the lnitializeComponent() call 
End Sub 

'Installer overrides dispose to clean up the component list. 

Protected Overloads Overrides Sub DisposefByVal disposing As Boolean) 
If disposing Then 

If Not (components Is Nothing) Then 
components.DisposeO 
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End If 
End If 

MyBase.Dispose(disposing) 

End Sub 

‘Required by the Component Designer 

Private components As System.ComponentModel.(Container 

'NOTE: The following procedure is required by the Component Designer 
'It can be modified using the Component Designer. 

'Do not modify it using the code editor. 

Friend WithEvents myServiceProcessInstaller As 
System. ServiceProcess.ServiceProcessInstaller 
Friend WithEvents myWindowsServicelnstaller As 
System.ServiceProcess.Servicelnstailer 

<System.Diagnostics.DebuggerStepThrough()> Private Sub lnitializeComponent() 
Me.myServiceProcessInstaller = New 
System. ServiceProcess.ServiceProcesslnstaller() 

Me.myWindowsServicelnstaller = New System.ServiceProcess.Servicelnstaller() 

'myServiceProcessInstaller 

Me. myServiceProcessInstaller. Account = 

System. ServiceProcess.ServiceAccount.LocalSystem 
Me.myServiceProcessInstaller.Password = Nothing 
Me.myServiceProcessInstaller.Username = Nothing 

‘myWindowsServicelnstaller 

Me.myWindowsServicelnstaller.ServiceName = “ TimeTrackerService" 
'Projectlnstaller 

Me.Installers.AddRange(New System.Configuration.Install.Installed) _ 

{Me.myServiceProcessInstaller, Me.myWindowsServicelnstaller}) 

End Sub 


#End Region 
End Class 
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60. Tao mQt Screen Saver \6i GDI+ 


Chircfng trinh n&y chi mdt so ky thuat tao m<j>t chirong trinh bAo ve m4n 
hinh b&ng Visual Basic .NET. 


Display Properties 


Themes | Desktop Screen Saver Appearance | Settings | 


jLil 



"Screen saver-- 

j 18 lank 
j (None) 

; 3D Flower Box 
L 30 Flying Objects 
- 30 Pipes 
| 30 Text 
t Beziers 
j Blank 
| Marquee 

j My Pictures Slideshow 


~Vj Settings 


Preview 


kjme. display Welcome screen 


power settings and save energy. 
Power... j 



Cac chufc nanq chinh: 

> Tao chtfcmg trinh Screen Saver l^m d4y m&n hinh b&ng mot form, v& 
ve cdc hinh dnh l£n form d6. 

> Thi&t lap mgt file Options dl ngtfdi sd dung dinh nghia cdch Screen 
Saver se hoat d<>ng. 

> Tirong tdc vdi cdc sif ki$n chuOt v4 b&n phim d£ d6ng Screen Saver. 


Chu v: 

Khi tir viet cdc Screen Saver c6 mpt sd' dieu cdn nhd: Bao dam ik ckc thuoc 
tinh cua Form c6 gid tri nhir sau: 

• FormBorderStyle = None 

• WindowState = Maximized 

• MaximizeBox = False 
. MinimizeBox = False 

• ShowInTaskbar = False 
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Sau d6, trade khi c6 the suf dung duoc Screen Saver mdi niy, ta phii ddi 
phin md rong tir .EXE thinh .SCR, vi chip nd vio thif muc h$ th&'ng cOa 
Windows (m4c nhidn trong WinXP 14 C:\Windows\System32). 

E)4n day ta c6 th£ sd dung trinh di^u khien Screen Saver cua Windows && 
chon Screen Saver niy 14m trinh bio v$ min hinh mic nhiin cua Windows. 

Trong Solution niy c6 hai Project: mot Project d£ chip file Screen Saver 
vio he thdng: Tao Screensaver su dung GDI+, vi mpt Project tao mpt 
Screen Saver: Screensaver. 

Project: Screensaver 

frmScreenSaver.vb 

■ Option Strict On 

■ ' Diy li form chi'nh cua SS. No Urn tit ci c6ng vide ve min hinh, xiS ly khi nio 

■ ‘ kit thuc vi tri diiu khiSn vi cho Windows. 

• Public Class frmSceenSaver 

Inherits System.Windows.Forms.Form 

' Khai bio cac biin se ding cho SS 
Private m_Graphics As Graphics 
Private m_Random As New Random() 

' DU tupng Options chita thing tin vi cic chQn It/a do ngUdi suf dpng chon 
Private mJDptions As New Options!) 

* Sit dtjng dS xac djnh c6 di chuyin chupt khdi vj tri ban diu 
Private mJsActive As Boolean = False 
' Suf dt/ng di xic djnh chupt cd thi/c st/ da di chuyin 
Private m_MouseLocation As Point 

Friend WithEvents tmrUpdateScreen As System.Windows.Forms.Timer 

• ' Code phat sinh form dupe bd qua 

’ Ddng SS khi ngudi sit dpng di chuyin chupt. St/ ki$n niy rit nhpy dm, do d6 
’ ta cin kiim tra xem chupt da di chuyin ft nhit mpt si pixel hay chua . 

Private Sub frmSceenSaver_MouseMove(ByVal sender As Object, ByVal e As 
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove 
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’ Neu MouseLocation co gia trj (0,0) thi lUu gia trj vj tr( hien hdnh v&o nd. 

‘ Neu co gia tri khac, kiim tra xem ngt/di sti dung da di chuySn chuot diidc 
‘ it nhat let 10 pixel th'i thoat SS. 

If Not mJsActive Then 

Me.m_MouseLocation = New Point(e.X, e.V) 
mJsActive = True 
Else 

If Math.Abs(e.X - Me.m_MouseLocation.X) > 10 Or _ 

Math.Abs(e.Y - Me.m_MouseLocation.Y) > 10 Then 
’ ChuQt da dupe di chuyen do dd thoit chUdng trinh 
Application.Exit() 

End If 
End If 
End Sub 

Private Sub frmSceenSaver_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
' Tpo doi tddng Graphics dung di ve 
Me.m_Graphics = Me.CreateGraphics() 

' Liy cac thdng si Options da htu. Niu chua co file Options thi se tao no 
m_Options.LoadOptions() 

' Chon tic do dUa trSn gi£ trj da dddc hJu 
Select Case m_Options.Speed 
Case “Slow* 

Me.tmrUpdateScreen. Interval = 500 
Case “Fast" 

Me.tmrUpdateScreen.Interval = 100 
Case Else 

Me.tmrUpdateScreen. Interval = 200 
End Select 

' Cho Timer hoat ddng 
Me.tmrUpdateScreen.Enabled = True 
End Sub 

’ Dong SS niu ngUdi sti dtjng nh£n chuQt 

Private Sub frmSceenSaver_MouseDown(ByVal sender As Object, ByVal e As 
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown 
Application. Exit() 

End Sub 
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' Ve mot hinh Elip hay hinh Chi7 nhit dt/a trSn chpn It/a cua ngudi sCf dung 
If m_Options.Shape = "Ellipses' Then 

m_Graphics.FillEllipse(New SolidBrush(myColor), myRect) 

Else 

m_Graphies.FillRectangle(New SolidBrush(myColor), myRect) 

End If 
End Sub 

' Thu tyc nky dupe tht/c hien diu tiin khi SS ch$y. 

<STAThread()> Shared Sub Main(ByVal args As StringO) 

’ Kiem tra xem co tham sd' nao truySn vko hay khdng. NSu khdng, co nghJa 
' let ngi/di sd dyng nhk'p dup chudt vko file scr 
lrs£$s,Length > 0 Then 

' Co truySn tham sd' vko. Windows se ti/ ddng truySn mdt trong cac 
’ tham so 7s", 7p" hokc 7c" tuy vko thao tac. 

' Khi nhan nut Preview 
If args(0).ToLower = "/p" Then 

1 Chi don gictn thoat chuong trlnh 
Application. Exit() 

End If 

' HiSn thj hQp thoai ckc chQn It/a (Options) 

If args(0).ToLower.Trim().Substring(0, 2) = 7c" Then 
' Tyo mdt form frmOptions vk hiin thj no 
Dim userOptionsForm As New frmOptions() 
userOptionsForm. ShowDialogO 

' Thoat dng dung 
Application.Exit() 

End If 

' Chi don gikn la tht/c hi$n SS 
If args(0).ToLower = */s" Then 

' Tyo mdt form frmSceenSaver vk hiSn thj nd 
Dim screenSaverForm As New ScreenSaver.frmSceenSaver() 
screenSaverForm.ShowDialogO 
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' Thoat Ling dyng khi form dupe dong lai 
Application.ExitQ 
End If 

Else 

' Tao mdt form frmSceenSaver vA hiSn thj no 
Dim screenSaverForm As New ScreenSaver.frmSceenSaverO 
screenSaverForm.ShowDialog() 

Application.Exit() 

End If • 

End Sub 
End Class 

Optoins.vb 

Option Strict On 

Imports System.Xml.Serialization 
Imports System.Xml 
Imports System.IO 

’ D&y Id class dOng de chita cac thdng tin Options. 

<Serializable()> Public Class Options 

' Khai bdo cdc bien va gan cac gia trj mdc nhidn cho chung 
Private m_Speed As String = “Fast“ 

Private m_Shape As String = “Ellipse" 

Private mJsTransparent As Boolean = True 

‘ Gan vdo OptionsPath difdng din c6 djnh din file hJu thdng tin 
Private OptionsPath As String = Environment. Current Directory & _ 

‘\Screen Saver Options.opt“ 


Public Property IsTransparentO As Boolean 
Get 

Return mJsTransparent 
End Get 
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Set(ByVal Value As Boolean) 
mJsTransparent = Value 
End Set 
End Property 

Public Property Shape() As String 
Get 

Return m^Shape 
End Get 

Set(ByVal Value As String) 
m_Shape - Value 
End Set • 

End Property 

Public Property Speed() As String 
Get 

Return m_Speed 
End Get 

Set(ByVal Value As String) 
m_Speed = Value 
End Set 
End Property 

Public Function IsOptionFileExistingO As Boolean 
Dim mylO As New System.lO.Filelnfo(OptionsPath) 

Return mylO.Exists() 

End Function 

Public Sub LoadOptions() 

Dim myOptions As New OptionsO ' T$o doi tUdng Options 
If myOptions.IsOptionFileExistingO Then 
‘ Ldy cac gia tri Options 

' T$o doi tUdng XmtSerializer dS lay cac gia tri Options 
Dim mySerializer As New XmlSerializer(GetType(Options)) 
’ Tao mdt StreamReader de tro tdi file Options 
Dim myTextReader As New StreamReader(OptionsPath) 




' Tao mot doi tilting XmlTextReader dS thi/c sd doc cac Options 
Dim myXmlReader As New Xml.XmlTextReader(myTextReader) 

If mySerializer.CanDeserialize(myXmlReader) Then 

myOptions = CType(mySerializer.Deserialize(myXmlReader), Options) 
Else 

1 Tao file option mdi 
myOptions.SaveOptions() 

End If 

myXmlReader.Close() 

myTextReader.Close() 

Me.Speed = myOptions.Speed 
Me.lsTransparent = myOptions.IsTransparent 
Me.Shape = myOptions.Shape 

End If 
End Sub 

' Luu cac cac option do ngudi dung chpn xud'ng cfta 
Public Sub SaveOptions() 

' Tqo mdt StreamWriter ghi chSng ISn file da ton tai 
Dim myWriter As New System.lO.StreamWriter(OptionsPath) 

' Tao mdt 66i ti/dng chuyen ddi ttipng sang dgng file 
Dim myXmlSerializer As New XmlSerializer(Me.GetTypeO) 

' Chuyin d6i ttipng Options hidn hdnh sang file 
myXmlSerializer.SeriaJize(myWriter, Me) 

myWriter.Close() 

End Sub 


End Class 
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Project: Tao Screensaver su dung GDI+ 

frmMain.vb 

Option Strict On 
Imports System.IO 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code phat sinh form dupe bd qua 

' Nut ndy dong ting dyng 

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnClose.Click 
Application.Exit() 

End Sub 

' Nut ndy edi ddt SS vdo h$ th6ng bdng edeh chep file SCR vdo ttiU muc 
' he thong cua Windows 

Private Sub btnlnstall_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnlnstall.Click * 

Dim fileName As String = “ScreenSaver.scr' 

Dim sourceFile As String = Environment.CurrentDirectory & “\..V & fileName 
Dim destFile As String = Environment.SystemDirectory & T & fileName 

' Tien hanh chep, ni’u co l6i th'i thdng bdo 
Try 

File.Copy (sourceFile, destFile, True) 

Catch ex As Exception 

MsgBox(ex.ToString(), MsgBoxStyle. Exclamation, Me.Text) 

End Try 

End Sub 


End Class 



61. Tao va sii dung cac Trace Listener 


Chifdng trinh n&y chi cdch suf dung cdc trinh theo d6i c6 sSn cua h<? thtfng 
d4 theo d6i v& b&t loi code, vh each x&y diing mpt trinh theo doi ri&ng. 



Cac chtfc nana chinh: 


> Cdch siif dung trace listener mdc nhien de xuat cdc thdng bdo ra ctfa s4 
Output trong IDE. 

> Cdch ghi thong bdo vdo Application event log. 

> Cdch ghi thong bdo vdo mpt file van ban. 

> Cdch tao mot trace listener ridng, n6 se ghi cac thbng bdo vdo mot tdi 
li^u HTML. 


Project: Tao va su dung Trace Listener 


frmMain.vb 

Option Strict On 
Imports System 
Imports System.IO 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code phkt sinh form dupe bo qua . 

Private Sub cmdTraceToEventLog_Click(ByVal sefider As System.Object, ByVal e 
As System.EventArgs) Handles cmdTraceToEventLog.Click 

’ Thu tyc nky chi ckch tao vk thdm mdt trace listener c6 nhiSm vy giti cac 
‘ trfdng bko vko Application Event Log. 

' Tqo mdt instance EventLog va gan cho nd mdt ngudn ckn theo doi 
Dim myLog As New EventLogQ 
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myLog. Source = Me.Text 

■ , . : *. ' * I , '■ ' f v . - > ' 1 : 

' Tpo mdt trace listener cho Application Event Log. 

Dim tIEventLog As New EventLogTraceListdner(myLog) 

Trace.Listeners.Clear() 

‘ Cho tIEventLog vko tap hop Listeners 
T race. Listeners. Add(tlE ventLog) 

* Ghi ket qua vao event log. 

Trace.WriteLinefThis is a test of event log tracing") 

End Sub 

Private Sub cmdTraceToFile_Click(ByVa! sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdTraceToFile.Click 

' Them mot trace listener co nhiem vu giti thong bao vao mdt file vkn ban co 
' ten TraceOutput.txt. File nay dupe t$o trong cung thu muc vdi file .EXE. 

' Tao file xuat co ten TraceOutput.txt 

Dim traceFile As System.lO.Stream = File.Create( ,, TraceOutput.txt , ‘) 

' Khai bao mot so biSn de hien thi trong trace output 
Dim ProductType As String = "Computer" 

Dim Price As integer = 2000 
Dim UnitsinStock As Integer = 23 

' Tao mot instance cua TextWriterTraceListener d4 xuat ra file van ban 
Dim tITextFile As New TextWriterTraceListener(traceFile) 

’ Xoa cac phin tit trong collection 
T race.Listeners.Clear() 

T race.Listeners. Add(tlT extFile) 

Trace.WriteLine(“****** Trace Output to File ***“*") 

Trace.WriteLine(‘Trace output for “ & Me.Text) 

Trace. WriteLine("") 
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Trace.Indent() 

Trace.WriteLine("This line is indented") 

Trace.WriteLine(‘Product Type = " & ProductType) 

Trace.WriteLine(“Price = $“ & Price) 

Trace.WriteLinelf(Price > 1800, “Price > $1800") 

Trace. UnindentQ 

tlTextFile.Flush() 

tlTextFiie.Close() 

' Hien thi n6i dung cua file van ban 

System.Diagnostics.Process.StartQNotepad.exe", "TraceOutput.txt") 

End Sub 

Private Sub cmdTraceToHTML_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdTraceToHTML.Click 

' Tpo mot TraceListener gCfi th6ng diep ra mot file HTML 
' co ten TraceOutputHTML.htm. 

' Tao file de luu kef qua 

Dim traceFile As System.lO.Stream = File.Create(‘TraceOutputHTML.htm“) 

Dim ProductType As String = "Computer" 

Dim Price As Integer = 2000 
Dim UnitsInStock As Integer = 23 

Dim tIHTMLFile As New HTMLTraceListener(traceFile) 
tlHTMLFile.WriteHeader("HTML Trace Output Example for “ & Me.Text) 

T race. Listeners. Clear() 

Trace.Listeners. Add(tlHTMLFile) 

Trace. IndentQ 

Trace.WriteLinefThis line is indented") 

Trace. UnindentQ 

Trace.WriteLine("Product Type = “ & ProductType) 

Trace.WriteLinefPrice = $" & Price) 


Trace.WriteLinelf(Price > 1800, "Price > $1800") 
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tlHTMLFile.Flush() 

tlHTMLFile.Close() 

1 HiSn thi file HTML 

System. Diagnostics. Process. Start("TraceOutputHTML.htm‘‘) 

End Sub 

Private Sub cmq|TraceToOutput_Click(ByVal sender As System.Object. ByVat e As 
System. EventArgs) Handles cmdTraceToOutput.Click 

' SiL dyng trace listener m$c nhiSn gCti trace output ra cCfa s6 Output cua IDE 

Dim ProductType As String = "Computer' 

Dim Price As Integer = 2000 
Dim UnitsInStock As Integer = 23 

’ Tao mdt instance cua trace listener m&c nhidn 
Dim tIDefault As New DefauItTracelistenerO 

‘ Xoa cac trace listener ra khdi collection 
Trace.Listeners.Clear() 

1 Them trace listener m$c nhiSn vko collection 
Trace.Listeners. Add(tlDefault) 

Trace.WriteLineC"**** Trace OutPut Start **“**") 

Trace.WriteLine("Output window trace information") 

Trace.Indent() 

Trace.WriteLine("This tine is indented") 

Trace.WriteLine("Product Type = * & ProductType) 

Trace.WriteLinefPrice = $“ & Price) 

Trace.WriteLinelf(Price > 1800, “Price > $1800") 

Trace.Unindent() 

Trace.WriteLine("*****" Trace Output End *******) 

End Sub 


End Class 
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HTM LT raceListener. vb 

Option Strict On 

Imports System 

Imports System.10 

' Class n&y diiQc t$o di xui't cac thdng didp v&o m$t file HTML 

Public Class HTMLTraceUstener 

Inherits System.Diagnostics.TextWriterTraceListener 

' Sti dung constructor cua TextWriterTraceListener dS ghi vAo mdt stream 

Public Sub New(ByVal stream As Stream) 

MyBase.New(stream) 

End Sub 

Public Sub WriteHeader(ByVal Title As String) 

’ PhUdng thCtc mdi n&y thSm tila dS cho tdi liiu HTML 
Writer. WriteLine("<head>") 

Writer.WriteLine{'<title>" & Title & ‘'</title>“) 

Writer. WriteLine("</head>“) 

Writer.WriteLine(*<H2>“ & Title & “</H2>") 

Writer. WriteLine(*<P><HR>") 

End Sub 

Protected Overloads Overrides Sub Writelndent() 

‘ Override Writelndent dS xii ly thyt diu dong theo dmh dang HTML 
Dim i As Integer 
Dim j As Integer 
If IndentLevel > 0 Then 
For i = 1 To IndentLevel 
For j = 1 To IndentSize 
Writer. Write(‘'&nbsp; , ‘) 

Next j 
Next i 
End If 


End Sub 
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Public Overloads Overrides Sub WriteLine(ByVal message As String) 

' Override WriteLine Method de thim cac tag v£o cac thdng diSp 
Writer.Write(“<B>“ & Now() & " -') 

If Needlndent Then 
Writelndent{) 

End If 

Writer.WriteLine(message & *</B><BR>") 

End Sub 
• End Class 

62 . Tao Enterprise Service Component 

Chifcmg trinh ndy chi cdch tao vd 14m vi$c vdi cdc Enterprise Service 
Component. 
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Cac chufc nanq chinh: 

Ung dung ndy ddp ufng mot h£ th6ng d£ duy tri mot database g6m cdc nhd 
cung cdp (Suppliers) vd cdc sdn phdm (Products). N6 cung cdp cdc chufc ndng 
&£ thdm, cap nhdt, truy xuat vd x6a cdc nhd cung cap vd cdc san pham. Chu 
tat cd cdc truy xuat dOf lieu deu dtfcfc gid lap. 

> Goi COM+ Service de thtfc hien cdc phien giao dich (transaction), just- 
in-time activation, object pooling vd object construction. 

> Sir dung Dynamic Registration de th&m cdc Enterprise Components vdo 
COM+ Catolog. 
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Solution n&y g6m hai project: EnterpriseComponents cung cdp hai 
class Supplier v& Product l&m co sd cho c4c component trong chifcmg trinh 
nky. Create Enterprise Services Components suf dung cdc component 
tr&n. 

Project: EnterpriseComponents 
Assemblylnfo.vb 

■ Imports System.Reflection 

• Imports System.Runtime.InteropServices 

• ' Ldnh Imports n£y cho phep sCt dtjng cac thu$c Unh nhU '‘AppUcationNameAttribute” 

■ ' va ”Application Activation", chu y 14 c£n thdm Reference den Namspace n4y 

• ' d£ import no. 

■ Imports System.EnterpriseServices 

■ ’ ApplicationNameAttribute quy dinh ten (Name) cCta COM+ 

- <Assembly: ApplicationNameAttributefEnterprise Services Components'^ 

■ * Application!DAttribute cung cap COM+ mdt GUID nhU la dinh danh cua ting dpng 

■ <Assembly: ApplicationlDAttribute('F3F4E0DA-6712-4AA9-9F48-871 A81 FD2844')> 

■ * ApplicationActivation chi dinh cac components dupe load d dau khi chung 

■ ‘ di/pc kich hoat 

■ ' Library : Cac component chay trong ti£n trinh cua chUdng trinh tpo chung 

' Server : Cac component chay trong mdt tien trinh cua hd thdng, dllhost.exe 
<Assembly: ApplicationActivation(ActivationOption.Library)> 

' DescriptionAttribute dt/pc hi£n thj trong phan thude tinh cua ting dung 

■ 1 trong COM+ Explorer 

• <Assembly: DescriptionAttribute('Data Access Components')> 

- ’ Assembly Key File chi djnh file chCfa cap khoa Public/Private. File nay phii 
' ndm trong thU mpe chUa Ling dtjng. 

i 

■ * file .snk dupe phat sinh d ctia s6 dong lenh bang Idnh sn.exe, nhU sau: 

■ ' sn -k KeyFUe.snk 

<Assembly: AssemblyKeyFile(*..\..\KeyFile.snk“)> 
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Product.vb 

Option Strict On 

Imports System.Data.SqlClient 

Imports System.EnterpriseServices 

■ ' Cac thudc tlnh niy thi&t lip component 64 n6 nhu li COM+ 

■ ' Transaction(TransactionOption. Required) 

Component niy ddi hdi cd Transaction 

■ ‘ JustlnTimeActivation(True) 

COM+ se ktch ho$t dd'i tuqng vi ngitng ho$t d$ng khi cin, giii phong tii 
nguydn khi d6i tuqng khdng dang trong stif dung. 

■ ' ObjectPooling(Enab1ed:=True, MinPoolSize:=2, MaxPoolSize:=10) 

Component sti dung Object Pooling, cho phip t$o cac d6i tugng mi khdng bj huy 
khi chung dupe giii phdng. Object Pooling ting hi$u xu4t chua Clng dung d6i vdi 
cic ddi tupng H td'n nhiSu chi phi" d41$0 nd. Component niy se giO l$i It nh£t 
hai dd'i tuong vi nhiSu nhi't li 10 d6i tUQng vio mQt thdi diSm. 

’ ConstructionEnabledAttribute(Default:= M Server*locaIhost; 

' DataBase=Northwindintegrated Security=SSPI*) 

■ <Transaction(TransactionOption.Required), _ 

■ JustlnTimeActivation(True), _ 

ObjectPooling(Enabled:=True, MinPoolSize:=2, MaxPool$ize:=10), _ 

■ ConstructionEnabledAttribute(Default:="Server=localhost;DataBase=Northwind;lntegr 

ated Security=SSPI")> _ 

Public Class Product 

Inherits ServicedComponent 

Private m_strConnectionString As String 


Protected Const SQL_CONNECTION_STRING As String = 
“Serve^localhost;* & _ 

"DataBase=Northwind;" & _ 

"Integrated Security=:SSPr 
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Protected Const MSDELCONNECTION_STFUNG As String = _ 
**Server=(tocal)\NetSDK;' & _ 

“DataBase=Northwind;" & _ 

•Integrated Securlty=SSPI" 

* BQ khil tpo mic nhiin 
Public Sub New() 

MyBase.NewQ 

' Gin chuSi kit nii m$c nhiin. 

m_strConnectionString = SQL_CONNECTION_STRjNG 
DoTracing(“Product instantiated at “ & DateTime.Now.ToLongTimeString) 
End Sub 

' Ap dung phuong thiic Construct chi khi component li m$t phin cua 
' mpt ling dpng COM+ 

Protected Overrides Sub Construct(ByVal constructString As String) 

' PhUdng thtic niy dupe g<?i ngay sau khi constructor dupe thpc hipn 
If constructString.Length > 0 Then 

m_strConnectionString = constructString 
End If 
End Sub 

' Gii lip gpi din mpt stored procedure dS thSm m$t product vio bing Products. 
' AutoCompleteAttribute: niu procedure tin tai mi khdng c6 exception 
‘ thi SetComplete tp ddng dupe gpi, niu khic th) SetAbort dupe gpi 
<AutoCompleteAttribute(True)> _ 

Public Sub AddProduct(ByVal ProductName As String, ByVal SupplierlD As 
Integer, ByVal UnitPrice As Decimal) 

Try 

‘cmd = New SqlCommand( H AddProduct H , enn) 

‘cmd. ExecuteNonQueryO 
DoTracingCProduct.AddProduct called at “ & _ 

DateTime.Now.ToLongTimeString) 

Catch exp As Exception 

Throw New Exception(exp.Message, exp.InnerException) 

End Try 
End Sub 
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' Gii lip gpi din SP xda mot Product 
<AutoCompleteAttribute(True)> _ 

Public Sub DeleteProduct(ByVal ProductID As Integer) 

Try 

'cmd = New SqlCommandCDeleteProduct", cnn) 

'cmd. ExecuteNonQuery() 

DoTracingfProduct.DeleteProduct called at “ & _ 

DateTime. Now.T oLongTimeString) 
Catch exp As Exception 

Throw New Exception(exp.Message, exp.InnerException) 
End Try 
End Sub 

' Gii lip goi mdt SP l&y danh sich cua tit ci Product 
<AutoCompleteAttributedrue)> _ 

Public Function GetProductsQ As DataTable 

t 

Try 


'da.Fill(dt) 

DoTracing(“Product.GetProducts called at ■ & _ 

DateTime.Now.ToLongTimeString) 

'Return dt 

Catch exp As Exception 

Throw New Exception(exp.Message, exp.InnerException) 

End Try 
End Function 

' Gii lip gp SP cip nhit mdt product 
<AutoCompleteAttribute(True)> _ 

Public Sub UpdateProduct(ByVaJ ProductID As Integer, ByVal ProductName As 
String, ByVal SupplierlD As Integer, ByVal UnitPrice As Decimal) 

Try 

'cmd = New SqlCommand( H UpdateProduct”, cnn) 

'cmd. ExecuteNonQuery() 
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DoTracingfProduct.UpdateProduct called at “ & _ 

DateTime.Now.ToLongTimeString) 

Catch exp As Exception 

Throw New Exception(exp.Message, exp.InnerException) 

End Try 
End Sub 

' Khdi tgo doi tilting cho ngiftii sit dung hiSn hdnh 
Protected Overrides Sub ActivateQ 

' Cho code vdo ddy, vi du md kSt nd’i, tgo cac file t$m... 
DoTracingfProduct activated at ‘ & DateTime.Now.ToLongTimeString) 
End Sub 

' Chi cho COM+ biet dd'i tuqfog c6 thS dtlQc gid lai hay khdng. 

Protected Overrides Function CanBePooled() As Boolean 
DoTracingfProduct.CanBePooled called at" & _ 

DateTime.Now.ToLongTimeString) 

Return True 
End Function 

’ Reset d6i ttipng cho ngtidi sdf dgng kd ti£p 
Protected Overrides Sub Deactivate() 

DoTracingfProduct deactivated at ’ & DateTime.Now.ToLongTimeString) 
End Sub 

' Ghi vko Application Log 
Private Sub WriteToLog(ByVal strMsg As String) 

Dim oEventLog As New EventLogCApplication") 
oEventLog.Source = "CreateEnterpriseServicesComponents* 
oEventLog. WriteEntry(strMsg) 

End Sub 

‘ Bao do dc trang thki cua d6i tiling hien hknh 
Private Sub DoTracing(ByVal strMsg As String) 

' T$o mdt trace listener cho event log 
' Dim logTraceListener As New EventLogTraceListener( _ 

* " Product- EnterpriseComponents") 


'Trace. Listeners. Addflog TraceListener) 
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' Tao m$t trace listener gufi cac thdng bio ra cCla s6 giao tiSp 
' No co th£ ghi vio mdt file thay v) ghi ra cCfa s£ 

Dim consoleTraceListener As New _ 

TextWriterTracel_istener(System. Console. Out) 

T race.Listeners. Add(consoleT raceListener) 

Trace. WriteLine(strMsg) 

End Sub 
End Class 

Suppller.vb 

Option Strict On 

Imports System,Data.SqlCMent 

Imports System.EnterpriseServices 

' Xem md ti cac thudc tinh d trSn 

<Transaction(TransactionOption.Required), . 

JustlnTimeActivation(True), _ 

ObjectPooling(Enabled:=True, MinPoolSize:=2, MaxPoolSize:=10), _ 
ConstructionEnabledAttribute(Default:="Server=localhost;DataBase=Northwind;lntegr 
ated Security=SSPr)> _ 

Public Class Supplier 

Inherits ServicedComponent 

Private m_strConnectionString As String 

Protected Const SQL_CONNECTION.STRING As String = _ 

‘Server=localhost;’ & _ 

‘DataBase=Northwind;" & _ 

■Integrated Security=SSPl" 

Protected Const MSDE_CONNECTION_STRING As String = _ 
"Server=(local)\NetSDK;" & _ 

"DataBase=Northwind;" & _ 

"Integrated Security=SSPI' 
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Public Sub New() 

MyBase.NewQ 

m_strConnectionString = SQL_CONNECTION_STRING 

DoTracingCSupplier instantiated at “ & DateTime.Now.ToLongTimeString) 

End Sub 

Protected Overrides Sub Construct{ByVal constructstring As String) 

If constructstring.Length > 0 Then 

m_strConnectionString = constructString 
End If 
End Sub 

' Gii lip gpi SP them mdt supplier 
<AutoCompleteAttribute(True)> _ 

Public Sub AddSupplier(ByVal CompanyName As String, ByVal Phone As String) 
Try 

' cmd = New SqlCommand(“AddSupplier", cnn) 

t 

' cmd.ExecuteNonQuery() 

DoTracing(“Suppiier.AddSupplier called at" & _ 

DateTime.Now.ToLongTimeString) 

Catch exp As Exception 

Throw New Exception(exp.Message, exp.InnerException) 

End Try 
End Sub 

* Gii lip gqi mdt SP dS xoa mdt supplier 
<AutoCompleteAttribute(True)> _ 

Public Sub DeleteSupplier(ByVai SupplierlD As integer) 

t i 

Try 

i cmd = New SqlCommand(”DeleteSupplier ", cnn) 

t 

‘cmd. ExecuteNonQueryQ 

DoTracingfSupplier.DeleteSupplier called at 1 & _ 

DateTime.Now.ToLongTimeString) 
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Catch exp As Exception 

Throw New Exception(exp.Message, exp.InnerException) 

End Try 
End Sub 

' Gia lap gpi SP dS Hy danh sach tit ci supplier 
<AutoCompleteAttribute(True)> __ 

Public Function GetSuppliers() As DataTable 

t 

Try 

'da.Fill(dt) 

DoTracing('Supplier.GetSuppliers called at" & _ 

DateTime.Now.ToLongTimeString) 

'Return dt 

Catch exp As Exception 

Throw New Exception(exp.Message, exp.InnerException) 

End Try 
End Function 

' Gii lip cip nhit m0t supplier 
<AutoCompleteAttribute(True)> _ 

Public Sub UpdateSuppiier(ByVal SupplierlD As Integer, ByVal CompanyName As 
String, ByVal Phone As String) 

t 

Try 

'cmd = New SqlCommand( m UpdateSupplier”, cnn) 

‘cmd. ExecuteNonQueryf) 

DoTracingfSupplier.UpdateSupplier called at * & _ 

DateTime.Now.ToLongTimeString) 

Catch exp As Exception 

Throw New Exception(exp.Message, exp.InnerException) 

End Try 
End Sub 

Protected Overrides Sub Activate() 

DoTracingfSupplier activated at * & DateTime.Now.ToLongTimeString) 

End Sub 
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Protected Overrides Function CanBePooled() As Boolean 

DoTracingf Supplier.CanBePooled called at “ & _ 
DateTime.Now.ToLongTimeString) 

Return True 
End Function 

Protected Overrides Sub DeactivateQ 

DoTracingfSupplier deactivated at “ & DateTime.Now.ToLongTimeString) 
End Sub 

Private Sub WriteToLog(ByVal strMsg As String) 

Dim oEventLog As New EventLogCApplication") 
oEventLog.Source = "EnterpriseServicesComponents" 
oEventLog.WriteEntry(strMsg) 

End Sub 

Private Sub DoTracing(ByVal strMsg As String) 

'Dim logTraceListener As New EventLogTraceListenerf _ 

’ " Supplier- EnterpriseComponents") 

'Trace. Listeners. Addflog TraceListener) 

Dim consoleTraceListener As New _ 

TextWriterTraceListener(System.Console.Out) 

Trace.Listeners.Add(consoleTraceListener) 

T race.WriteLine(strMsg) 

End Sub 
End Class 

Project: Create Enterprise Services Components 
frmMain.vb 
Option Strict On 

Imports CreateEnterpriseServicesComponents 

Public Class frmMain 

Inherits System.Windows.Forms.Form 
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' Code phat sinh form dUdc bd qua 

Private Sub btnAddProduct_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnAddProduct.Click 
Try 

Cursor.Current = System.Windows.Forms.Cursors.WaitCursor 
Dim oProduct As New Product() 

Dim strProductName As String 
Dim intSupplierlD As Integer 
Dim decUnitPrice As Decimal 

strProductName = txtProductName.Text.Trim 
intSupplierlD = Clnt(txtSupplierlD2.Text.Trim) 
decUnitPrice = CDec(txtUnitPrice.Text.Trim) 

oProduct.AddProduct(strProductName, _ 
intSupplierlD, decUnitPrice) 
sbrStatus.Text = "Added product: ‘ & strProductName 
Catch exp As Exception 

MsgBox(exp.ToString(), MsgBoxStyle.OKOnly, Me,Text) 

Finally 

Cursor.Current = System.Windows.Forms.Cursors. Default 
End Try 
End Sub 

Private Sub btnAddSupplier_Click(ByVal sender As System. Object, ByVal e As 
System.EventArgs) Handles btnAddSupplier.Click 
Try 

Cursor.Current = System.Windows.Forms.Cursors.WaitCursor 
Dim oSupplier As New Supplied) 

Dim strCompanyName As String 
Dim strPhone As String 

strCompanyName = txtCompanyName.Text.Trim 
strPhone = txtPhone.Text.Trim 

oSupplier.AddSupplier(strCompanyName, strPhone) 
sbrStatus.Text = “Added supplier: “ & strCompanyName 
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Catch exp As Exception 

MsgBox(exp.ToString{), MsgBoxStyle.OKOnly, Me.Text) 

Finally 

Cursor.Current = System.Windows.Forms.Cursors.Default 
End Try 
End Sub 

Private Sub btnDeleteProduct_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDeleteProduct.Click 
Try 

Cursor.Current = System.Windows. Forms. Cursors.WaitCursor 
Dim oProduct As New Product() 

Dim intID As Integer 

intID = Clnt(txtProductlD.Text.Trim) 
oProduct.DeleteProduct(rntlD) 
sbrStatus.Text = "Deleted product: " & intID 
Catch exp As Exception 

MsgBox(exp.ToString(), MsgBoxStyle.OKOnly, Me.Text) 

Finally 

Cursor.Current = System.Windows.Forms.Cursors Default 
End Try 
End Sub 

Private Sub btnD'etbteSupplier_Click(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles btnDeleteSupplier.Click 
Try 

Cursor.Current = System.Windows.Forms.Cursors.WaitCursor 
Dim oSupplier As New Supplied) 

Dim intID As Integer 
intID = Clnt(txtSupplierlD1 Text.Trim) 
oSupplidr.DeieteSupplier(intlD) 
sbrStatus.Text = "Deleted supplier: " & intID 
Catch exp As Exception 

MsgBox(exp.ToString(), MsgBoxStyle.OKOnly, Me.Text) 

Finally 

Cursor.Current = System. Windows. Forms.Cursors. Default 
End Try 
End Sub 
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Private Sub btnGetProducts_Click{ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnGetProducts.Click 
Try 

Cursor.Current = System. Windows. Forms. Cursors. WaitCursor 
Dim oProduct As New Product() 
o P rod uct. G et P rod ucts () 
sbrStatus.Text = "Got list of products" 

Catch exp As Exception 

MsgBox(exp.ToString(), MsgBoxStyle.OKOnly, Me.Text) 

Finally 

Cursor.Current = System. Windows. Forms. Cursors. Default 
End Try 
End Sub 

Private Sub btnGetSuppliers_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnGetSuppliers.Click 
Try 

Cursor.Current = System.Windows.Forms.Cursors.WaitCursor 
Dim oSupplier As New Supplied) 
oSupplier.GetSuppliers() 
sbrStatus.Text = "Got list of suppliers’ 

Catch exp As Exception 

MsgBox(exp.ToString(), MsgBoxStyle.OKOnly, Me.Text) 

Finally 

Cursor.Current = System.Windows.Forms.Cursors.Default 
End Try 
End Sub 

Private Sub btnUpdateProduct_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnUpdateProduct.Click 
Try 

Cursor.Current = System.Windows.Forms.Cursors.WaitCursor 
Dim oProduct As New Product() 

Dim strProductName As String 
Dim intSupplierlD As Integer 
Dim decUnitPrice As Decimal 
Dim intProductlD As Integer 

strProductName = txtProductName.Text.Trim 
intSupplierlD = Clnt(txtSupplierlD2.Text.Trim) 
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decUnitPrice = CDec(txtUnitPrice.Text.Trim) 
intProductID = Clnt{txtProductlD,Text,Trim) 

oProduct.UpdateProduct(intProductlD, strProductName, _ 
intSupplierlD, decUnitPrice) 
sbrStatus.Text = "Updated product: “ & intProductID 
Catch exp As Exception 

MsgBox(exp.ToString(), MsgBoxStyle.OKOnly, Me.Text) 

Finally 

Cursor.Current = System.Windows.Forms.Cursors.Default 
End Try 
End Sub 

Private Sub btnUpdateSupplier_Click(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles btnUpdateSupplier.Click 
Try 

Cursor.Current = System.Windows.Forms.Cursors.WaitCursor 
Dim oSupplier As New Supplied) 

Dim strCompanyName As String 
Dim strPhone As String 
Dim intID As Integer 

strCompanyName = txtCompanyName.Text.Trim 
strPhone = txtPhone.Text.Trim 
intID = Clnt(txtSupplierlDI.Text.Trim) 

oSupplier.UpdateSupplier(intlD, strCompanyName, strPhone) 
sbrStatus.Text = '“Updated supplier:" & strCompanyName 
Catch exp As Exception 

MsgBox(exp.ToString(), MsgBoxStyle.OKOnly, Me.Text) 

Finally 

Cursor.Current = System,Windows.Forms.Cursors.Default 
End Try 
End Sub 

Private Sub textBoxes_TextChanged(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles txtCompanyName.TextChanged, 
txtPhone.TextChanged, txtSupplierlDl .TextChanged, 
txtProductName.TextChanged, txtSupplierlD2.TextChanged, 
txtUnitPrice.TextChanged, txtProductID.TextChanged 
btnAddSupplier.Enabled = _ 

txtCompanyName.Text.Trim.Length <> 0 AndAlso _ 
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txtPhone.Text.Trim.Length <> 0 

btnUpdateSupplier.Enabled = btnAddSupplier.Enabled AndAlso _ 
txtSuppliertD1.Text.Trim.Length <> 0 
btnDeleteSupplier.Enabled = txtSupplierlDI .Text.Trim,Length <> 0 

btnAdd Product. Enabled = _ 

txtProductName.Text.Trim.Length <> 0 AndAlso _ 
txtSupplierlD2.Text.Trim.Length <> 0 AndAlso _ 
txtUnitPrice.Text.Trim.Length <> 0 
btn Update Product. Enabled = btnAddProduct.Enabled AndAlso _ 
txtProductID.Text.Trim.Length <> 0 
btnDeleteProduct.Enabled = txtProductID.Text.Trim.Length <> 0 
End Sub 
• End Class 

63. Tao va sd dung File tam th&i 

ChUcfng trinh n&y chi cdch tao v& suf dung cdc file tam thcfi, cung nhu xdc 
dinh thu muc TEMP tr§n m&y tmh cua ngirdi siuf dung. Viec tao vh str dung 
cdc resource n&y trong .NET Framework r£t dun gian. 



Cac chu’c nana chinh: 

> Tim thu muc TEMP tr£n mdy tinh cda ngudi sur dung. 

> Tao mpt file tam thdi suf dung phucfng thurc Path.GetTempFi!eName(). 

> Quy dinh thuoc tinh cua file tam 1& "Temporary" d£ cdi thien hieu xu3t 
cua chudng trinh. 

> X6a file tam. 
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Project: Tao va su dung file tam thoi 
frmMain.vb 

Option Strict On 
Imports System.IO 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Tao biin Ufu tin file 
Dim m_FileName As String = 

‘ Code phil sinh form dupe bo qua 

' Thu tyc niy tao mdt file tym thdi vi gin thude tfnh Attribute cua no li Temporary 
Private Sub btnCreateTempFi(e_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCreateTempFile.Click 

' Xda ndi dung tren thanh trang thai 
Me.sbrStatus.Text = *“ 

Try 

' Tri ve dudng din va tSn cua file mdi tao. Chu y la pht/dng thiic 
' GetTempFileName() thuc si/ tao mot file O-byte vi tri vS ten cCta file dupe tao. 
m_FileName = Path.GetTempFileName() 

' Tao mdt dd'i tupng Filelnfo de quin ly cic thude tlnh cua file tym 
Dim myFilelnfo As New Filelnfo(m_FileName) 

myFilelnfo. Attributes = FileAttributes.Temporary 

Catch exc As Exception 

’ Thing bio nSu cd iSi xiy ra 

Me.sbrStatus.Text = "Unable to create a TEMP file or set its attributes." 

End Try 

‘ Hien thj tin cua file tym viia tyo 
Me.txtTempFile.Text = m_FileName 
End Sub 
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' X6a file t$m vda tgo 

Private Sub btnDeleteTempFile_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDeleteTempFile.Click 

If m_FileName = " Then 

Me.sbrStatus.Text = “Temp file not yet created.* 

Return 

Else 

Me.sbrStatus.Text = '* 

End If 

' Thi/c hiin xoa file 
Try 

File.Delete(m_FileName) 
m_FileName = ““ 

Me.txtTempFile.Text = *“ 

Catch exc As Exception 
' HiSn thj l6i n£u c6 

Me.sbrStatus.Text = “Error deleteing Temp file.* 

End Try 
End Sub 


' Tim dudng din cua thUmyc TEMP 

Private Sub btnFindTempDirectory_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnFindTempDirectory.Click 

Dim tempPathString As String = " 

Me.sbrStatus.Text = “* 

’ Thi/c hien li’y dudng din, ddt trong Try Cath dS bit loi khi ngUdi sCf 
' dung khdng co quyen hgn trdn thu myc nky. 

Try 

tempPathString = Path.GetTempPath() 

Catch sex As Security.SecurityException 
' HiSn thi iSi khi khdng co quyin hyn 
Me.sbrStatus Text = ‘You do not have the required permissions.* 
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Catch exc As Exception 

Me.sbrStatus.Text = "Unable to retrieve TEMP directory path." 
End Try 

’ hi£n thj dudng din din thd myc TEMP 
Me. txtTempDirectory.Text = tempPathString 

End Sub 

' Thu tyc niy sCf dyng file tym vita tyo. 

Private Sub btnUseTempFilebtnUseTempFile_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
btnUseT empFilebtnUseT empFile. Click 

If m_FileName = " Then 
Me.sbrStatus.Text = "Temp file not yet created." 

Return 

Else 

Me.sbrStatus.Text = 

End If 

’ Ghi vio file mdt $6 vin bin vi dQC lai nd 
Try 

* Ghi vio file l$m 

Dim myWriter As StreamWriter = File.AppendText(m_FileName) 
myWriter.WriteLine("Data written to temporary file.*) 
myWriter. Flush() 
myWriter.Close() 

* Dqc nQi dung file tym 

Dim myReader As StreamReader = File.OpenText(m_FileName) 
‘ Hiin thj n$i dung vtia dQC 

Me.sbrStatus.Text = "Temp file:" + myReader.ReadToEnd() 
myReader.Close() 

Catch exc As Exception 

Me.sbrStatus.Text = "Error writing to or reading from Temp file." 
End Try 
End Sub 
End Class 
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64. C&u hinh cho ihig dung 


Chucfng trlnh ndy chi cdch doc vd ghi vdo phin appSettings trong file edit 
hinh cda ufng dung. 



Cac chufc nflna chfnh: 

> Bd cdu hinh thdng s 6 cho ufng dung ta chi cdn them file app.config vdo 
Solution b&ng cdch chon Project I Add New Item vk chon phan 
Application Configuration File. File ndy diroc thdm vdo thu muc bin 
khi bidn dich. Sau d6 ta c6 th£ th&m cdc th6ng s6 ridng d£ ngudi suf 
dung hay cdc nhd qudn tri c6 th£ thay d6i cdc thdng s6 cua ufng dung 
bdng trinh soan thdo file vdn bdn. 

> Ta q.6 th£ edit hinh cho timg control cu thd thdng qua file cdu hinh. Chi 
dm thdm thupc tlnh Dynamic Property cho control ndo ta muon. Cdc 
gid tri Dynamic Property dugc dinh nghTa trong phdn appSetting cua 
file cdu hinh se dugc load khi chucng trinh chay. Ta c6 thl truy xu&t 
ckc gid tri ndy thdng qua ConflgurationSettings.AppSettings. 

> B£ thay doi cdc gid tri ndy trong luc chucrng trinh dang chay, ta can suf 
dung cdc class trong namespace System.Xml. 


Project: Cau hinh cho ling dung 
app.config 

<?xml version=“1.0‘ encoding=*Windows-1252“ ?> 

■ <configuration> 

<appSettings> 

</- Cac thu$c tinh ciu h)nh cho Ling dtjng dkt d diy ~> 
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<!- Vi dq: odd key= "settingName " value= "setting Value 7> --> 

<add k^y="lblV6fue.Toxt* vafue=*(rt6<Wh0*/> ' - 
</appSettings> 

</configurdfion> ‘ ■■ ‘ ■" ,vv : * ■ 

frmMaln.vb 

Option Strict On 

Imports System.Configuration 
Imports System.Collections 
Imports System.Xml 

Public Class frmMain 
Inherits System.Windows. Forms.Form 
' BiSn h/u tdn file cA'u h)nh 
Private mstrCFGFile As String 

' Chu y Id ConfigurationSettings.AppSettings chi cho phep dpc cAc giA trj vA 
' Specialized.NameValueCollection cho phep dQC vA thay ddi giA trj. 

Dim mAppSet As Specialized.NameValueCollection 

' Tao mdt class de lAm vi$c vdi cac thdng s6 cua Ling dyng 
Private mcustAppSettings As AppSettings 
’ Cu thd cho mdt cAp thdng sd' 

Private mcustAppSet As AppSetting 

’ Code phAt sinh form dupe bd qua 

Private Sub cmdLoadAS_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdLoadAS.CIick 

' Truy xuA't cac thdng sd da dupe IA‘y khi chtfdng trinh bit dAu chqy 
mAppSet = ConfigurationSettings.AppSettings 

MessageBox.ShowfApplicaton Settings have been loaded.Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 
Me.cmdListBylndex. Enabled = True 
Me.cmdListByKey.Enabled = True 
Me.cmdReadValue.Enabled » True 
Me.cmdLoadAS.Enabled = False 
End Sub 
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Private Sub cmdListByKey_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdListByKey.Click 

' Thu tyc ndy li$t ki cac phin tit b&ng cich l£y danh sich cac khoa (key) vi 
' truy xuit din c&c ph£n tit thing qua kh6a cua nd 
If Not mAppSet Is Nothing Then 
Me.IstSettings. Items.Clear() 

Dim keys() As String 
keys = mAppSet.AIIKeys 

Dim key As String 
For Each key In keys 

Me.istSettings. ltems.Add(key & " & mAppSet.Item(key)) 

Next 
End If 
End Sub 

Private Sub cmdl_istBylndex_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdListBylndex.Click 

’ Thu tyc niy li$t kS cic phin tCt bing cich set dyng chi s6. Bit diu tit 0 
If Not mAppSet Is Nothing Then 
Me. IstSettings. items .C lear() 

Dim i As Integer 

For i = 0 To mAppSet.Count -1 

Me.istSettings.Items.Add(mAppSet.GetKey(i) & *: a & mAppSet.ltem(i)) 

Next 
End If 
End Sub 

Private Sub cmdReadValue_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdReadValue.Click 
Me.lblValue.Text = mAppSet. ltem(Me.txtKey.Text) 

End Sub 

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 

* Hy tin cua file ciu h)nh 

Dim ad As AppDomain = AppDomain.CurrentDomain 
Me.mstrCFGFile = ad.SetupInformation.ConfigurationFile 
End Sub 
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Private Sub cmdLoadCfg_Click(ByVal sender As System .Object, ByVal e As 
System.EventArgs) Handles cmdLoadCfg.Click 

' thO tyc nky s& dung mdt instance cua class AppSettings d£ l£y cAc thdng 
' s6 trong file cA'u h)nh. 

Try 

Dim blnAutoSave As Boolean 

If Me.chkAutoSave.CheckState = CheckState.Checked Then 
blnAutoSave = True 
Else 

blnAutoSave = False 
End If 

If Not mcustAppSettings Is Nothing Then 
mcustAppSettings.DisposeO 
mcustAppSettings = Nothing 
End If 

mcustAppSettings = New AppSettings(Me.mstrCFGFile, blnAutoSave) 

If Me.IvSettings.ltems.Count > 0 Then 
Me.lvSettings.ltems.Clear() 

End If 

Me.cmdAddNew.Enabled - True 
Me.cmdListAIISettings. Enabled = True 
Me.cmdUpdate. Enabled =True 
Me.cmdSave.Enabled = True 
Me.cmdUnload. Enabled = True 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxlcon.Error) 

End Try 
End Sub 

Private Sub cmdListAIISettings_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdListAIISettings.Click 
Me.ListCustomSettings() 

End Sub 
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Private Sub lvSettings_SelectedlndexChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles IvSettings.SelectedlndexChanged 
' Dua c$p gia tri key/value dupe chpn vAo cac TextBox tUdng Png 
Dim strKey As String 
Dim strValue As String 

If Me.IvSettings.Selectedltems.Count = 1 Then 

Me.txtSettingKey.Text = Me. IvSettings. Selected ltems(0).Subltems(0) .Text 
Me.txtSettingValue.Text = Me.IvSettings.Selectedltems(0).Subltems(1).Text 
End If 
End Sub 

Private Sub cmdAddNew_Click(ByVai sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdAddNew.Click 
' ThSm mdt phin tit mdi vPo Collection 
Try 

If Me.txtSettingKey.Text = String.Empty Then 

MessageBox.Show("You must enter a value for the key.", Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
Me.txtSettingKey.Select() 

Exit Sub 
End If 

If Me.txtSettingValue.Text = String.Empty Then 
MessageBox.Show('You must enter a value for the value field.", _ 

Me.Text, MessageBoxButtons.OK, MessageBoxIcon. Exclamation) 

Me.txtSettingValue.SelectO 
Exit Sub 
End If 

mcustAppSet = New AppSetting(Me.txtSettingKey.Text, _ 

Me.txtSettingValue.T ext) 
mcustAppSettings.Add(mcustAppSet) 

Me.ListCustomSettingsO 

MessageBox.Show("New setting added.", Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 
Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, __ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 
End Sub 
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Private Sub ListCustomSettings() 

1 Liet ke tit ci cac thdng si trong ListView 
If Not mcustAppSettings Is Nothing Then 

Try 

Me. IvSettings. Items. ClearQ 
For Each mcustAppSet In mcustAppSettings 
With Me.IvSettings.Items.Add(mcustAppSet.Key) 
,Subltems.Add(mcustAppSet. Value) 

End With 
Next 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 
End If 
End Sub 

Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As 
System ComponentModel.CancelEventArgs) Handles MyBase.Cfosing 
Me.UnloadConfigSettings(True) 

End Sub 

Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdllpdate.Click 
' C$p nh$t phin tCl da tSn tgi 
Try 

If Me.txtSettingKey.Text = String.Empty Then 

MessageBox.Show(‘You must enter a value for the key.', Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
Me.txtSettingKey.SelectO 
Exit Sub 
End If 

If Me.txtSettingValue.Text - String.Empty Then 
MessageBox.Show('You must enter a value for the value field.', _ 

Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
Me.txtSettingValue.Select() 

Exit Sub 
End If 
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mcustAppSet = New AppSetting(Me.txtSettingKey.Text, _ ; 

Me.txtSettingValue.T ext) 
mcustAppSettings.Update(mcustAppSet) 

Me.ListCustomSettings() 

MessageBox.Show(" Existing setting updated.", Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxIcon. Error) 

End Try 
End Sub 

Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdSave.Click 
' Lufu l$i cAc thay dSi 

If Not mcustAppSettings Is Nothing Then 
Try 

mcustAppSettings. Save() 

MessageBox.Show("Configuration file saved..", Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 
Catch exp As Exception 

MessageBox.Showfexp.Message, exp.Source, _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 
End If 
End Sub 

Private Sub cmdUnload_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdUnload.Click 

Me.UnloadConfigSettings(False) 


End Sub 
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Private Sub UnloadConfigSettings(ByVal FormCiosing As Boolean) 

' Unload file c£u hinh bing each g<?i phuong thClc Dispose vh 
' giii phdng tham chiSu d£n dd’i tupng 
Try 

If Not mcustAppSettings Is Nothing Then 
mcustAppSettings. DisposeQ 
mcustAppSettings = Nothing 

If Not FormCiosing Then 
Me.IvSettings.Items.Clear() 

Me.txtSettingKey.Text = String.Empty 
Me.txtSettingValue.Text = String.Empty 

Me. cmdListAIISettings. Enabled = False 
Me.cmdAddNew.Enabled = False 
Me.cmdUpdate.Enabled = False 
Me.cmdSave.Enabled = False 
Me.cmdLoadCfg.Select() 

Me.cmdUnload. Enabled = False 
End If 
End If 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, 
MessageBoxIcon. Error) 

End Try 
End Sub 

End Class 

Public Class AppSetting 

' Class n&y &nh xg ede cSp name/value 

Private mParent As AppSettings 
Private mstrKey As String 
Private mstrValue As String 
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Public Property Key() As String ... 

Get 

Return mstrKey 
End Get 

Set(ByVal Value As String) 

Me.UpdateParentQ 
Value = mstrKey 
End Set 

End Property > 

Public Property ValueO As String , . • 

Get . . „ . .... . . 

Return mstrValue 

End Get _ .. 

Set(ByVal Value As String) . . ( 

Me.UpdateParent() . 

mstrValue = Value 

End Set , 

End Property 

Private Sub UpdateParentQ 

If Not Me.mParent Is Nothing Then 
Me.mParent.Update(Me) 

End If 
End Sub 

Public Sub New() 

Me.New(String.Empty, String.Empty) 

End Sub 

Public Sub New(ByVa! Key As String, ByVal Value As String) 

Me.New(Key, Value, Nothing) 

End Sub 

Friend Sub New(ByVal Key As String, ByVal Value As String, ByVal Parent As 
AppSettings) 

MyBase.New() 

Me.mstrKey = Key 
Me.mstrValue = Value 
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Me.mParent= Parent 
End Sub 
End Class 

Public Class AppSetti.ngs 

Implements lEnumerable, IDisposable 

’ Class nay xCf ly phin configuration//appSettmgs Cup file ci'u hinh. 

' XPath dupe SLf dyng dS tim cac gia trj khi difpc yeu cau 

Private cfg As New XmlOocument{) 

Private xAS As XmlNode 
Private mstrFiteName As String 
Private mblnAutoSave As Boolean 
Private mblnDirty As Boolean 
Private maltemsO As AppSetting 
Private mblnDisposing As Boolean 
Private mblnDisposed As Boolean 

Private Const APPSETTINGS_E1_EMENT A# Strings *cofitiguration//appSettings“ 
Private Const NEWELEMENT As String s *acW^ 

Private Const XPATH_KEY_ADD As String = 7/add' 

Private Const XPATH_KEY_ADD_KEY As String = 7/add[@key='{0}T 

Public Sub New(ByVal ConfigFile As String) 

Me.New(ConfigFile, False) 

End Sub 

Public Sub New(ByVal ConfigFile As String, ByVal AutoSave As Boolean) 
MyBase.New() 

If ConfigFile.Length = 0 Then 

Throw New ArgumentNullExceptionfYou must pass in a valid file name.') 
Else 

If System.lO.File.Exists(ConfigFile) Then 
Try 


cfg.Load(ConfigFile) 
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Catch exp As Exception 

Throw New System.IO.FileLoadException(‘The file name specified" & _ 

“ could not be loaded. Please see InnerException" & _ 

" for more information", exp) 

End Try 

' Liy phin appSettings chkih d4 ta cd ihS thim cdc thdng s6' mdi 
xAS = cfg. SelectSingteNodefAPP.SETTING S_ELE M ENT) 

If xAS Is Nothing Then 

Throw New ConfigurationException("The file specified, while a valid" & _ 
" XML document, is not a valid configuration file.") 

End If 

' DSn diy ta c&n Itfu Ipi tSn file 
mstrFileName = ConfigFile 

Me.AutoSave = AutoSave 
Else 

Throw New System.IO.FileNotFoundException(String.Format( _ 

"The file name specified {0} does not exist.", ConfigFile)) 

End If 
End If 
End Sub 

Public Sub Dispose() Implements System.IDisposable.Dispose 
Me.mblnDisposing = True 
If Me.Dirty Then 
Me.SaveO 
End If 

Me.mblnDisposed = True 
Me.mblnDisposing = False 
GC.SuppressFinalize(Me) 

End Sub 

Protected Overrides Sub Finalize() 

MyBase.FinalizeQ 
If Me.Dirty Then 

If Not Me.mblnDisposed Then 
If Not Me.mblnDisposing Then 
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Me.DisposeQ 
End If 
End If 
End If 
End Sub 

Public Property AutoSaveQ As Boolean 
Get 

Return Me.mblnAutoSave 
End Get 

Set(ByVal Value As Boolean) 

Me.mblnAutoSave = Value 
End Set 
End Property 

Public Readonly Property Dirty() As Boolean 
Get 

Return Me.mblnDirty 
End Get 
End Property 

Public Sub Add(ByVal NewSetting As AppSetting) 
Dim newEtem AS XmlElement 
Dim newAttf As XmtAttribute 

newElem = cfg.CreateElement(NEWELEMENT) 
newAttr = cfg.CreateAttribute(‘key*) 
newAttr. Value = NewSetting.Key 
new E lem. Attributes. Append (new Attr) 
newAttr = cfg.CreateAttributefvalue’) 
newAttr. Value = NewSetting.Value 
newElem. Attributes. Append(newAttr) 
xAS.AppendChild(newElem) 

Me.mblnDirty = True 
If Me.AutoSave Then 
Me.SaveQ 
End If 
End Sub 
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Public Function Add(ByVal Key As String, ByVal Value As String) As AppSetting 
Dim NewSetting As New AppSetting(Key, Value, Me) 

Me.Add(NewSetting) 

Return NewSetting 
End Function 

Public Function ltem(ByVal Key As String) As AppSetting 
Dim xNode As XmlNode 

Dim strSearch As String = XPATH_KEY_ADD_KEY 

xNode = xAS.SelectSingleNode(String.Format(strSearch, Key)) 

If xNode Is Nothing Then 

Throw New ArgumentOutOfRangeExceptionfKey", Key, _ 

"The item you wanted to update does not exists.") 

Else 

Dim las As New AppSettingQ 
las.Key = Key 

las.Value = xNode. Attributes. Item(1). Value 

Return las 
End If 

End Function 

Public Sub RemoveByKey(ByVal Setting As AppSetting) 

Dim xNode As XmlNode 

Dim strSearch As String = XPATH_KEY_ADD_KEY 

xNode = xAS.SelectSingleNode(String.Format(strSearch, Setting.Key)) 

If Not xNode Is Nothing Then 
End If 

Me.mblnDirty = True 
If Me.AutoSave Then 
Me.Save() 

End If 


End Sub 
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Public Sub RemoveByKey(ByVal Key As String) 

End Sub 

Public Function Update(ByVal Key As String, ByVal Value As String) As AppSetting 
Dim NewSetting As New AppSetting(Key, Value, Me) 

Me.Update(NewSetting) 

Return NewSetting 
End Function 

Public Sub Update(ByVa) NewSetting As AppSetting) 

Dim xNode As XmlNode 

Dim strSearch As String = XPATH_KEY_ADD_KEY 

xNode = xAS.SelectSingleNode(String.Format(strSearch, NewSetting.Key)) 

If xNode Is Nothing Then 

Throw New ArgumentOutOfRangeException(“Key", NewSetting.Key, _ 

'The item you wanted to update does not exists.") 

Else 

xNode. Attributes.Item(1).Value = NewSetting.Value 
End If 

Me.mblnDirty = True 

If Me.AutoSave Then 
Me.SaveO 
End If 
End Sub 

Public Sub Save() 

' Ta khdng cin Try Catch d diy, n£u c6 I6i se dugc bit d h£m gQi 
cfg.Save(Me.mstrFileName) 

Me.mblnDirty = False 
End Sub 

Private Function GetAllltems() As AppSettingO 
Dim xNode As XmlNode 
Dim xNodeUst As XmlNodeList 
Dim atts As XmlAttributeCollection 
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xNodeList = xAS.SelectNodes(XPATH_KEY_ADD) 

Dim xa As XmlAttribute 
Dim asa(xNodeList.Count -1) As AppSetting 
Dim asi As AppSetting 
Dim i As Integer = -1 

For Each xNode In xNodeList 
i += 1 

atts = xNode.Attributes 
With atts 

asi = New AppSetting(.ltem(0). Value, .ltem(1).Value, Me) 

End With 
asa(i) = asi 
Next 

Return asa 
End Function 

Private Function GetEnumerator() As System.Collections.(Enumerator Implements 
System.Collections. (Enumerable.GetEnumerator 
Me.maltems = Me.GetAIHtemsO 
Return New Iterator(Me.maltems) 

End Function 

Private Class Iterator 
Implements lEnumerator 

' Class private n4y cung cip cac h4m cin thi&t de For...Each 14m viec dupe 
Private mData() As AppSetting 
Private Index As Integer = -1 
Public Sub New(ByVal Keys() As AppSetting) 
mData = Keys 
End Sub 

Private Readonly Property Current() As Object Implements 
System.Collections. lEnumerator.Current 
Get 

Return mData(lndex) 

End Get 
End Property 
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Private Function MoveNext() As Boolean Implements _ 

System.Collections.lEnumerator.MoveNext 

Index += 1 

If (Index <= (mData.Length -1» Then 
Return True 
End If 

End Function 

Private Sub ResetQ Implements System.Collections.lEnumerator.Reset 
Index = -1 
End Sub 
End Class 
■ End Class 


65. Lay thong tin h$ thong va moi trtfcfng. 

Chuong trinh n&y biiu diin cdch suf dung cdc class cung c£p thfing tin m6i 
trtfdng (environment), c6 trong namespace System.Environment. 






Ap (fcilbO ah 
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Cac chufc nSna chfnh: 


> Chucmg trinh n&y chi cdch suf dung cdc phtfdng thiirc vk thugc tinh cua 
cdc dtfi tuong trong namespace System.Environment. Tab Properties 
cho biit cdc thu$c tinh cda System.Environment. 

> Tab Methods cho thtfy kit qud chay cdc phiftmg thtfc cua namespace 
n&y. 

> Tab Special Folders cho ph4p l£y dating din cua bflft ky thu muc d&c 
bi$t ntio cua Windows. 

> Tab Environment Variables hoat d$ng tticmg tu. 
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> Cutfi cilng tab Systemlnfomation l£y t£t ci thdng tin cung c&p bdi dd'i 
titong Systemlnformation. 


Project: Thong tin he thong 

frmMain.vb 

Option Strict On 

Imports System.Environment 

Public Class frmMain 

Inherits System.Windows.Forms.Form 
' Code phat sinh form dupe bd qua 

#Region " Enum Handling “ 

Private Sub LoadList(ByVal 1st As LtetBox, ByVal typ As Type) 

Ist.DataSource = System. Enum. GetNames(typ) 

End Sub 

Private Function GetSpecialFolderfromList() As Environment.SpecialFolder 
' IstFolders.Selectedltem tri vS tin eua mdt thu mpe die biit. 

’ System.Enum.Parse si chuydn ndthinh mdt dd'i tupng tueng ting. 

’ Ctype sau dd chuyin kiiu d6i tupng thinh d6i tupng 
Return CType( _ 

System.Enum.Parse(GetType(Environment.SpecialFoider), _ 
IstFolders.Selectedltem.ToString), _ 

Environment.SpecialFolder) 

End Function 

Private Sub LoadList(ByVal 1st As ListBox, ByVal ic As ICollection) 

' Dung cho ListBox hi4n thj ndi dung cua d6i tupng co 

' sti dpng Interface ICollection. TrUdc tiin phii copy noi dung vao dd'i tupng co 
' s& dpng IList (v( dp: m$t ming) vi sau do kit vio d6i tupng niy. 

Dim astrltems(ic.Count -1) As String 
ic.CopyTo(astrltems, 0) 

Ist.DataSource = astrltems 
End Sub 


#End Region 
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Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnExit.Click 
Environment.Exit(Clnt(nudExitCode.Value)) 

End Sub 

Private Sub btnExpand_Click{ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles btnExpand.Click 
IblExpandResults.Text = _ 

Environment. ExpandEnvironmentVariables(txtExpand.Text) 

End Sub 

Private Sub btnGetEnvironmentVariable__Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles btnGetEnvironmentVariable.Click 
IbITEMP.Text = Environment.GetEnvironmentVariable("TEMP*) 

End Sub 

Private Sub btnGetSystemFolder_Click(ByVal sender As System.Object, ByVal e 
As Sv^tem.EventArgs) Handles btnGetSystemFolder.Click 

' NSu chi mu6n liy mQt dUdng din cua mdt thu myc dkc bidt, truyin vko 
' mdt trong ckc gik trj cua enumeration SpecialFolder. GetFolderPath chinh xic 
* Ik System.Environment.GetFolderPath 

IbISystemFolder.Text = GetFolderPath(SpecialFolder.System) 

End Sub 

Private Sub btnRefreshTickCount_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnRefreshTickCount.Click 

IbITickCount.Text = Environment.TickCount.ToString 
End Sub 

Private Sub btnStackTrace_Click(ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles btnStackTrace.Glick 


MsgBox(Environment.StackTrace, MsgBoxStyle.OKOnly, Me.Text) 

Catch exp As System.Security.SecurityException 

MsgBox('A security exception occurred.’ & vbCrLf & exp.Message, _ 

MsgBoxStyle.Critical, exp.Source) 
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Catch exp As System.Exception 

MsgBoxfAn unexpected error occurred accessing the StackTrace.* & _ 

vbCrLf & exp.Message, MsgBoxStyle.Critical, exp.Source) 

End Try 
End Sub 

Private Sub frmEnvironment_Load(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

LoadList(lstFolders, GetType(Environment.SpecialFolder)) 
LoadList(lstEnvironmentVariablas, GetEnvironmentVariables.Keys) 

' HiSn thj cAc thuQc tlnh trdn tab Properties 
LoadProperties() 

' Suf dyng cAc phiidng thdc ddn giAn 
RunMethodsQ 

' Liy cAc giA trj t£t class Systemlnformation 
LoadSystemlnformation() 

End Sub 

Private Sub lstEnvironmentVariables_SelectedlndexChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
IstEnvironmentVariables.SelectedlndexChanged 

' IstEnvironmentVariables chCta danh sAch cAc biin mdi tri/dng. 

‘ GetEnvironmentVariable tri vi giA trj tddng ting vdi biin dupe chQn 
IblEnvironmentVariable.Text = _ 

GetEnvirdnmentVariable(lstEnvironmentVariables.Selectedltem.ToString) 

End Sub 

Private Sub lstFolders_SelectedlndexChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles IstFolders.SelectedlndexChanged 
Dim sf As Environment.SpecialFoider 
’ GetSpecialFolderFromList tri vi mQt thAnh phin 
' cua enum Environment.SpecialFoider 
sf = GetSpeciaiFolderFromList() 

IbISpecialFolder.Text = GetFolderPath(sf) 

End Sub 
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Private Sub lvwSystemlnformation_Resize(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles IvwSystemInformation.Resize 
IvwSystem Information.Columns(l). Width = _ 
IvwSystemlnformation.ClientRectangle.Width - 
IvwSystem Information.Columns(O). Width 
End Sub 

Private Sub LoadPropertiesO 

' Thu tyc n&y g£n gti tri cho cac phin til trin tab Properties. 

IbIWorkingSet.Text = Environment. WorkingSet.ToString 
IblVers ion.Text = Environment.Version.ToString 
IblUserName.Text = Environment. UserName 
IblUserDomainName.Text = Environment.UserDomainName 
IbITickCount.Text = Environment.TickCount.ToString 
IbISystemDirectory.Text = Environment. System Directory 
IblOSVers ion. Text = Environment.OSVersion.ToString 
IbIMachineName.Text = Environment.MachineName 
IbICurrentDirectory.Text = Environment.CurrentDirectory 
IbICommandLine.Text = Environment.CommandLine 
End Sub 

Private Sub LoadSystemlnformationQ 

' Cho thdng tin vS cic thuQc tinh Shared cua class Systemlnfomation v£o 
' control ListView. ChuSi cua phin til IA ten cua thuQc tlnh cung dp bdi class 
' Systemlnformation 

With IvwSystemlnformation.Items.Add( , ArrangeDirection') 

.Subltems.Add(Systemlnformation.ArrangeDirection.ToStringO) 

End With 

With IvwSystemlnformation.Items. AddCArrangeStartingPosition") 

.Subitems. Add(Systemlnformation.ArrangeStartingPosition.ToStringO) 

End With 

With IvwSystemlnformation.Items.Add("BootMode") 

.Subitems. Add(Systemlnformation.BootMode.ToStringO) 

End With 

With IvwSystemlnformation. Items.Add(‘ Border3DSize‘) 

.Subltems.Add(Systemlnformation.Border3DSize.ToString()) 

End With 

With IvwSystemlnformation. Items.Add("BorderSize“) 

.Subitems. Add(Systemlnformation.BorderSize.ToStringO) 

End With 
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With IvwSystemlnformation.Items. AddC’CaptionButtonSize") 

.Subitems. Add(Systemlnformation.CaptionButtonSize.ToStringO) 

End With 

With IvwSystemlnformation.Items.Add("CaptionHeight“) 

.Subitems. Add(Systemlnformation.CaptionHeight.ToStringO) 

End With 

With IvwSystemlnformation.Items.Add( , ‘ComputerName“) 

.Subitems. Add(Systemlnformation.ComputerName.ToStringO) 

End With 

With IvwSystemlnformation.Items.AddfCursorSize") 

. Subitems. Add(Systemlnformation.CursorSize.ToStringO) 

End With 

With IvwSystemlnformation.ltems.Add(‘DbcsEnabled") 

.Subitems. Add(Systemlnformatlon.DbcsEnabled.ToStringO) 

End With 

With IvwSystemlnformation. Items.Add(“DebugOS“) 

. Subitems. Add(Systemlnformation.DebugOS.ToStringO) 

End With 

With IvwSystemlnformation.Items.Add(*DoubleClickSize’) 

.Subitems. Add(Systemlnformation.DoubleClickSize.ToStringO) 

End With 

With IvwSystemlnformation.items.AddfDoubleClickTime") 

.Subitems. Add(Systemlnformation.DoubleClickTime.ToStringO) 

End With 

With IvwSystemlnformation.Items.AddCDragFullWindows") 

.Subitems. Add(Systemlnformation.DragFullWindows.ToStringO) 

End With 

With IvwSystemlnformation.Items.AddCDragSize") 

.Subitems. Add(Systemlnformation.DragSize.ToStringO) 

End With 

With IvwSystemlnformation.ltems.Add(“FixedFrameBorderSize") 

.Subitems. Add(Systemlnformation.FixedFrameBorderSize.ToStringO) 
End With 

With IvwSystemlnformation.Items.Add( M FrameBorderSize") 

.Subitems. Add(Systemlnformation.FrameBorderSize.ToStringO) 

End With 

With IvwSystemlnformation.ltems.Add(*HighContrast“) 

.Subitems. Add{Systemlnformation.HighContrast.ToString()) 

End With 
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With lvwSystemlnformation.ltems.Add(“HorizontalScrollBarArrowWidth“) 

.Subitems. Add(Systemlnformation.HorizontalScrollBarArrowWidth.ToStringO) 
End With 

With IvwSystem Information.Items.Add(*HorizontalScrollBarHeight") 

.Subitems. Add{Systemlnformation.HorizontalScrollBarHeight.ToString()) 

End With 

With JvwSystemlnformation.ltem$.Add{'HorizontalScrollBarThumbWidth") 

.Subltem$.Add(Systemlnfojmation.MorizontalScrollBarThumbWidth.ToString()) 
End With 

W ith Iv wSystem Information. Items .Add f IconS ize “) 

.Subitems. Add(Systemlnformation.lconSize.ToString()) 

End With 

With lvwSystemlnformation.llems.Add(*iconSpacmgSize‘) 

.Subitems.Add(SystemlnformaiiorUconSpacingSize.ToStringO) 

End With 

With lvwSystemlnform^tion i %ms,Add(“KanjiWindowHeighf) 

S ub!tems.Add(SysteiTrinfofmotion. KanjiWindowHeightToString()) 

End With 

With IvwSyatemjnformation.lterosAddf.MaxWindowTrackSize") 

.Subitems. Add(Syflitemlnformafmn.MaxWindQVirTrackSize.ToString()) 

End With 

With IvwSysterrHnformation.ttemsiAdd^-KlenuButtonSize') 

.Subltems.AdcKSystemlnformation.MenuButtonSizeToStringO) 

End With 

With IvwSysteminfofmation.ltems.AddCMenuCheckSize’) 

.Sublteme.Add(Systemlnformatian.MenuCheckSize,ToString()) 

End With 

With IvwSysteminformation.Items.Add(“MenuFont“) 

.S ubitems. Add (System Information. Menu Font.T oStringO) 

End With 

With lvwSy8temlnformation.Items.Add(“MenuHeight“) 

.Subitems. Add($ystemlnformalk>n,MenuHeight.ToString()) 

End With 

With lvwSystemlnformation.ltems.Add(“MidEastEnabled’) 

.Subitems. Add(Systemlnformation.MidEastEnabled.ToStringO) 

End With 

With IvwSystem Information.Items.AddfMinimizedWindowSize") 

.Subitems. Add(Systemlnformatk>n.MinimizedWindowSize.ToString()) 

End With 




With IvwSystemlnformation.Items. Add( , MinimizedWindowSpacingSize'‘) 

.Subitems. Add(Systemlnformation.MinimizedWindowSpacingSize.ToStringO) 
End With 

With IvwSystemlnformation.ltems.AddCMinimumWindowSize‘) 

.Subitems. Add(Systemlnformatlon.MinimumWlndowSize.ToStringO) 

End With 

With IvwSystemlnformation.Items. AddCMinWindowTrackSize") 

.Subitems. Add(Systemlnformation.MinWindowTrackSize.ToString()) 

End With 

With IvwSystemlnformation.ltems.Add(*MonitorCounf) 

.Subitems. Add(Systemlnformation.MonitofCount.ToStringO) 

End With 

With IvwSystemlnformation. Items. Add("MonitorsSameDisplayFormat‘') 

.Subitems. Add(Systemlnformatk>n.MomtorsSameDisplayFormat,ToString()) 
End With 

With IvwSystemlnformation.Items.AddCMousdButtdns*) 

.Subltems.Add(Systemtnformatfon.Mous©Buttons.ToString()) 

End With 

With lvwSystemlnformation.ltem6.Add(*Mous«ButtonsSwapped'') 

.Subitems. Add(Systemlnformation.Mou8eButtonsSwapped.ToString()) 

End With 

With lvwSystemlnformatkJn.ltems.Add(*Mous©Pres*nn 

Subltems.Add(Systsmlhformatton.MousePresent.ToString()) 

End With 

With lvwSystemlnformatk>n.ltem&.Add("MouseWheelPresent*) 

.Subltems.Add(Systemlnformation.MouseWheelPreSent.ToStringO) 

End With 

With IvwSystemlnformation.Items.AddC'MouseWheetScrollLines") 

. S ubltems. Add(System Information. MouseWheelScrollLines.ToStringO) 

End With 

With IvwSystemlnformation.Items.AddfNativeMouseWheelSupport") 

.Subitems. Add(System Information.NatrveMouseWheelSupport.ToStringO) 
End With 

With IvwSystemlnformation.ltems.Add('Network') 

.Subitems. Add(Systemlnformation.Network.ToStringO) 

End With 

With lvwSystemlnformation.ltems.Add(*PenWindows*) 

.Subitems. Add(Systemlnformation.PenWindows.ToStringO) 

End With 
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With IvwSystemlnformation.Items.Add(“PrimaryMonitorMaximizedWindowSize") 
Subltems.Add(Systemlnformation.PrimaryMonitorMaximizedWindowSize.ToStringO) 
End With 

With IvwSystemlnformation.Items.AddCPrimaryMonitorSize'') 

.Subltems.Add(Systemlnformation.PrimaryMonitorSize.ToStringO) 

End With 

With IvwSystemlnformation. Items. Add(“RightAlignedMenus“) 

.Subitems. Add(Systemlnformation.RightAlignedMenus.ToStringO) 

End With 

With IvwSystemlnformation. Items. Add(“Secure“) 

. Subitems. Add(Systemlnformation.Secure.ToStringO) 

End With 

With IvwSystemlnformation. Items. Add(“ShowSounds‘) 

.Subitems. Add(Systemlnformation.ShowSounds.ToStringO) 

End With 

With IvwSystemlnformation. Items. Add(“SmalllconSize*) 

. Subitems. Add(Systemlnformation.SmalllconSize.ToStringO) 

End With 

With IvwSystemlnformation. Items. Add(*ToolWindowCaptionButtonSize“) 

.Subitems.Add(Systemlnformation.ToolWindowCaptionButtonSize.ToStringO) 
End With 

With IvwSystemlnformation.Items.Add(‘ToolWindowCaptionHeight“) 

.Subltems.Add(Systemlnformation.ToolWindowCaptionHeight.ToStringO) 

End With 

With IvwSystemlnformation. Iterps-AddCUserDomainName 1 ") 

Subitems. Add(Systemlnformation.UserDomainName.ToStringO) 

End With 

With IvwSystemlnformation.Items.Add('Userlnteractive') 

. Subitems. Add(Systemlnformation.Userlnteractive.ToStringO) 

End With , 

With tvwSystemtnformation^ltems.Add(‘UserName*) 

. Subitems. Add(System}nformation.UserName.ToString()) 

End With 

With IvwSystem I nformation. Items .Add(" Vertical Scrol I Bar A rrow H eight*) 

. Subitems. Add(System Information.VerticalScrollBarArrowHeight.T oStringO) 
End With 

With IvwSystemlnformation.ltems.Add('VerticalScrollBarThumbHeight“> 

.Subitems.Add(Systemlnformation.VerticalScrollBarThumbHeight.ToStringO) 
End With 
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With IvwSystemlnformation.ltems.AddCVerticalScrollBarWidth") 

. Subitems. Add(System Information. VerticalScrollBarWidth.ToStringO) 
End With 

With tvwSystemlnformation.items,AddfVirtualScreen") 

.Subitems. Add(Systemlnformation.VirtualScreen.ToStringO) 

End With v 

With IvwSystemlnformation.Items.Add(‘WorkingArea“) 

.Subitems. Add(Systemlnform^tion.WorkingArea.ToStringO) 

End With 

End Sub - t 

Private Sub RunMethodsO 

' Environment. GetLogicalDrives tr&v# m$t ming chvta tin cAc 6 dia. 

' Khi da co danh sAch cAc 6 dia, ta c6 thS l£y thing tin vS cAc file trin cAc 
' dia nAy. Xem cac class File vA Directory 
IstLogicalDrives.DataSource =*_ . 

Environment. GetLogicalDrivesO 

IstCommandLineArgs.DataSource s _ - 

Environment.GetCommandLlneArgsO 
End Sub . > 

End Class 


66. MSMQ (Microsoft Message Queuing) 

Chufcmg trinh n&y chi edeh gift m0t th6ng di£p MSMQ td mOt ufng dung 
Windows Forms c6 chufa instance cua m0t 46i tirqmg dtfoc serialize suf dun; 
XML. ThSng diep difoc nh$n vA xiir ty bdi m0t Windows Service. 


MSMQ Client 


Aider Nurobw 


Customer 




Required Date; 



VI2/2003 

. •*,> Hi ~ i'uiyacjg^sivi 

diiinj. ii..—iiinii. 


New Order. 108 
New Older: 109 
New Older: 100 
New Older: 101 
New Older: 102 
New Older: 103 
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Cac chute nana chinh: 

Ph4n ndy c6 ba project k&t hop 14m viec vdi nh.au: 

> Mot Windows Forms Client dimg gufi cdc thdng di£p 

> Mpt Windows Service dung d£ xur ly cdc thong diep gufi tir client. 

> Mpt Class Library cung cap mot class public dope dung d^ 14m nOi dung 
cua th6ng di§p. 

Client 

Chi 14 mot ufng dung don gidn cho phdp gufi c4c Order v4o h4ng dpi 
(queue). Ngo4i ra c6 th£ kilm tra dope c4c message chifa dope xuf ly. 

Service 

Windows Service n4y cho thdy c4ch xuf ly c4c message den trong m6t 
h4ng dpi MSMQ. Suf dung mot component MSMQ dpi c4c message d£n v4 
chuy£n n6 th4nh ki^u MSMQOrder. Sau d6 suf dung thread pool cd sin cua 
CLR de thpc hi$n phoong thufc Process cua instance MSMQOrder. Sau d6 
tiep tuc dpi c4c message khde. Service n4y hS trp c4c sp kien Start, Stop, 
Pause, Resume, Shutdown v4 Power Change. 

Class Library 

Class Library n4y, server.dll, cung c4p mot class public c6 t£n 
MSMQOrders. N6 c6 ba trodng Public v4 mot phoong thufc cd ten Process. 

De chay dUflc cac project nay, c6 ba dieu can lam: 

> Ph4i tao mdt h4ng dpi (queue) private c6 t£n Orders. 

> Bi4n dich cd ba project theo thtir to :Class Library, Client, Service. 

> Windows Service phdi dope c4i dat. 

C4i d4t Windows Service b&ng edeh suf dung edng cu d6ng l£nh, 
lnstallUtil.exe, 14m theo ede bode sau: 

> Sau khi bidn dich ba project, md Visual Studio .NET Command prompt. 

> Chuy£n ddn tho muc bin cua Windows Service 

> G6 installutil WindowsService.exe vd nhdn Enter. 

> Start service ndy b4ng d6ng l$nh net start Watch MSMQ. 

gd b6 service ndy ra khdi h§ thing, gd l$nh sau v4o cufa s 8 dbng l£nh: 
installutil-uWlndowsService.exe 

Sau khi dd c4i dat thanh edng service, chay client va gufi ede message. Be 
thdy dope ede message trong queue, Stop service WatchMSMQ vd gufi ede 
message tur Client, sau dd nhdh nut List Messages in Queue. Tidp theo, Start 
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service WatchMSMQ vk nhkn nut List Messages in Queue ta sk thky ckc 
message da diroc xur ly. 


Project: Server (Class Library) 

MSMQOrders.vb 

■ Public Class MSMQOrders 

' Ta c6 thi sCt dyng cic Property cho ting dyng thi/c ti 
Public Number As Integer 
Public Customer As String 
Public RequiredBy As Date 

Public Sub Process(ByVal State As Object) 

' Ghi ra m$i thdng bio di biit message da dupe xCt ly 
Trace.WriteLine(Number & " -" & Customer & * - * & RequiredBy) 

* Lim cho thread t$m ngUng trong giiy lit di gii lip thi/c hi$n mQt edng 
' vide thi/c si/, v( dg nhif ghi thdng tin vio database 
Threading.Thread.Sleep(2000) 

End Sub 

■ End Class 

Project: WindowsService 
app.config 

• <?xml version="1.0‘ encodings Windows-1252’?> 

<configuration> 

■ <appSettings> 

<!-- User application and configured property settings go here.--> 

<!-- Example: odd key=’settingName" value="settingValue7> --> 

<!-- Change the period (.) in the path name if you wish to use another machine 
besides the local one. --> 

<!-- Remove the \private$ if you have a public queue. -*> 

■ odd key=“msmqOrders.Path' value=’FormatName:DIRECT=OS:.\private$\orders■ /> 

• </appSettings> 

• </configuration> 
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WatchMSMQ.vb 

• Imports System.ServiceProcess 

• Imports System.Messaging 

• Imports System.Threading 

• Public Class WatchMSMQ 

Inherits System.ServiceProcess.ServiceBase 

' C&n th&t khi kit l?i vita queue trong trildng hap ta da t$m diing 
Private m_Path As String 

#Region * Component Designer generated code " 

Public Sub New() 

MyBase.New() 

1 This call is required by the Component Designer. 

InitializeComponentO 

‘ Add any initialization after the InitializeComponentO call 
Me.m_Path = Me.qOrders.Path 
End Sub 

'UserService overrides dispose to clean up the component list. 

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) 
If disposing Then 

If Not (components Is Nothing) Then 
components. Dispose() 

End If 
End If 

MyBase.Dispose(disposing) 

End Sub 

1 The main entry point for the process 

• <MTAThread()> _ 

Shared Sub Main() 

Dim ServicesToRun() As System.ServiceProcess.ServiceBase 

1 More than one NT Service may run within the same process. To add 
' another service to this process, change the following line to 
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' create a second service object. For example, 

' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service!, 
New MySecondUserService} 

ServicesToRun = New System.ServiceProcess.ServiceBaseQ {New 
WatchMSMQ()} 

System. ServiceProcess.Servic@Base.Run(ServicesToRun) 

End Sub 

'Required by the Component Designer 

Private components As System.ComponentModel.(Container 

‘ NOTE: The following procedure is required by the Component Designer 
' It can be modified using the Component Designer. 

‘ Do not modify it using the code editor 

Friend WithEvents qOrders As Systermftfessaging.MessageQueue 

<System.Diagnostics.DebuggerStepThrough()> Private Sub lnitializeComponent() 
Dim configurationAppSettings As System.Configuration.AppSettingsReader = New 
System.Configuration. AppSettingsReader() 

Me.qOrders = New System.Messaging.MessageQueueQ 

'qOrders 

Me.qOrders.Formatter = New System.Messaging.XmlMessageFormatter(New 
StringO {“Server.MSMQOrders,Server - }) 

Me.qOrders.Path = CType(configurationAppSettings.GetValue(“msmqOrders.Path“, 
GetType(System.String)), String) 

‘WatchMSMQ 

Me.CanHandlePowerEvent = True 
Me.CanPauseAndContinue = True 
Me.CanShutdown = True 
Me.ServiceName = “WatchMSMQ“ 


End Sub 
#End Region 
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Protected Overrides Sub OnStart(ByVal args() As String) 

Try 

Me.HookQueue() 

Catch exp As MessageQueueException 
Me. EventLog.WriteEntry(exp. Message) 

Catch exp As Exception 
Me. Eventl_og.WriteEntry(exp.Message) 

End Try 
End Sub 

Protected Overrides Sub OnStopQ 
UnhookQueue() 

End Sub 

Protected Overrides Sub OnContinue() 

HookQueue() 

End Sub 

Protected Overrides Sub OnPause() 

UnhookQueue() 

End Sub 

Protected Overrides Function OnPowerEvent{ByVal powerStatus As 
System.ServiceProcess.PowerBroadcastStatus) As Boolean 

End Function 

Protected Overrides Sub OnShutdown() 

UnhookQueue() 

End Sub 

Private Sub FlookQueue() 

Try 

If Me.qOrders Is Nothing Then 

Me.qOrders = New System.Messaging.MessageQueue(Me.m_Path) 
End If 

' B£t dau dpi cac message toi 
Me.qOrders.BeginReceive() 
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Catch exp As MessageQueueException 
Me. EventLog.WriteEntry(exp.Message) 
Catch exp As Exception 
Me.EventLog.WriteEntry(exp.Message) 
End Try 
End Sub 


Private Sub UnhookQueue() 

Try 

With Me.qOrders 
,Ciose() 

.Dispose() 

End With 

Me.qOrders = Nothing 

Catch exp As MessageQueueException 
Me.EventLog.WriteEntry(exp.Message) 

Catch exp As Exertion 
Me.EventLog.WriteEntry(exp.Message) 

End Try 
End Sub 

Private Sub qOrders_ReceiveCompleted{ByVat sender As System.Object, ByVal e 
As System.Messaging.ReceiveCompletedEventArgs) Handles 
qOrders.ReceiveCompleted 

’ Su kien nay xay ra khi m$t message dUOc nhan 
Try 

’ Lay message 
Dim m As Message 

m = qOrders.EndReceive(e.AsyncResult) 

1 Ep phin thin message thanh mdt instance cua mot doi tuong 
Dim o As Server.MSMQOrders 
o = CType(m.Body, Server.MSMQOrders) 
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' Ni'u chung ta sit dung ddng code sau: 

' o. Process () 

‘ service cua chung ta se dpi cho d§'n khi nd ke thuc. Thay vko do, 
' ta sCf dung Thread Pool. 

ThreadPool.QueueUserWorkltem(AddressOf o.Process) 

' tiep tuc ddi ckc message o 

Me.qOrders.BeginReceive() 

Catch exp As MessageQueueException 
Me. EventLog.WriteEntry(exp. Message) 

Catch exp As Exception 
Me.EventLog.WriteEntry(exp.Message) 

End Try 
End Sub 
End Class 

WatchMSMQInstaller.vb 

Imports System.ComponentModel 

'i - • ■ ... , , 

Imports System.Configuration.Install 

<Runlnstaller(True)> Public Class Projectlnstaller 
Inherits System.Configuration.lnstalUnstailer 

#Region " Component Designer generated code * 

Public Sub New() 

MyBase.NewQ 

'This call is required by the Component Designer. 
lnitializeComponent() 

'Add any initialization after the InitializeComponentQ call 


End Sub 
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'Installer overrides dispose to clean up the component list. 

Protected Overloads Overrides Sub Dispose{ByVal disposing As Boolean) 

If disposing Then 

If Not {components Is Nothing) Then 
components.DisposeO 
End If 
End If 

MyBase.Dispose(disposing) 

End Sub 

‘Required by the Component Designer 

Private components As System.ComponentModel. (Container 

'NOTE: The following procedure is required by the Component Designer 
'It can be modified using the Component Designer, 

‘Do not modify it using the code editor. 

Friend WithEvents WatchMSMQServiceProcessInstaller As 
System.ServiceProcess.ServiceProcessInstaller 
Friend WithEvents WatchMSMQInstaller As 
System. ServiceProcess.Servicelnstaller 

<System.Diagnostics.DebuggerStepThrough()> Private Sub lnitializeComponent() 
Me.WatchMSMQServiceProcessInstaller = New _ 

System. ServiceProcess.ServiceProcesslnstaller() 

Me.WatchMSMQInstaller = New System.ServiceProcess.Servicelnstaller() 

WatchMSMQServiceProcessInstaller 

Me.WatchMSMQServiceProcessInstaller.Account = _ 

System. ServiceProcess.ServiceAccount.LocalSystem 
Me.WatchMSMQServiceProcessInstaller.Password = Nothing 
Me.WatchMSMQServiceProcessInstaller.Username = Nothing 

'WatchMSMQInstaller 

Me.WatchMSMQInstaller.DisplayName = 'Watch MSMQ" 
Me.WatchMSMQInstaller.ServiceName = 'WatchMSMQ' 
Me.WatchMSMQInstaller.ServicesDependedOn = New StringQ {“MSMQ'} 


'Projectlnstaller 
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Me.Installers.AcfdRange(New System.Configuration.lnstaH.lnstaller() _ 

{Me.WatchMSMQtnstaller, Me.WaichMSMQServiceProcessJnstaller}) 

End Sub 

#End Region 
End Class 

Project: Client 

References: Server, System.messaging 

app.config 

<?xml version=‘1.0“ encoding=‘Windows-1252“?> 

<configuration> 

<appSettings> 

<!- User application and configured property settings go here.--> 

<!-- Example: odd key^settingName* value=‘settingValue7> --> 

<!-- Change the period (.) in the path name if you wish to use another machine 
besides the local one. —> 

<!-- Remove the \private$ if you have a public queue. --> 
odd key=“qOrders.Path" value="FormatName:DIRECT=OS:.\private$\orders“ /> 
</appSettings> 

</configuration> 

frmMain.vb 

Option Strict On 
Imports System.Messaging 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code phit sinh form dt/pc bo qua 

Private Sub cmdSend_Click(ByVai sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdSend.Click 

' Ta t$o m$t message vd giii nd v&o Orders queue 
’ Di/dng din d£n hdng dqi ndy dupe li/u trong file app.config 
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Try 

‘ Tao mdt instance cua <3$ ti/png nht1 b)nh thiJdng 
Dim o As New Server.MSMQOrders() 

' Gin cic thudc tfrfh 

o.Number = Clnt(Me.txtOrderNumber.Text) 
o.Customer = Me.txtCustomer.Text 
o.RequiredBy = CDate(Me.txtReqDate.Text) 

' GCfi n6 vio hing dpi 

Me.qOrders.Send(o, "New Order:" & o.Number) 

' Ting si' thil tp (khdng cin thi&t, chiphyc vp cho myc d(ch hiSn thj) 
Me.txtOrderNumber.Text = (o.Number + 1).ToString() 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 
End Sub 

Private Sub frmMain_Load(ByVa! sender As Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 

' Gan Required Date la 5 ngiy kS til ngiy him nay 
Dim d As Date = Date.Today.AddDays(5) 

Me.txtReqDate.Text = d.ToShortDateString 
End Sub 

Private Sub cmdScanQ_Click(ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles'cmdScanQ.Click 

’ Quit queue dS l£y thing tin vS cac message chita dupe nh$n. Thao tic 
' niy khdng xda cic message. 

Try 

Me. IstMessages. Items. C!ear() 

Dim m As Message 
For Each m In Me.qOrders 

Me. IstMessages. Items. Add(m. Label) 

Next 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, 
MessageBoxIcon.Error) 

End Try 
End Sub 
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Private Sub txtOrderNumber_Validating{ByVal sender As Object, ByVal e As 
System.ComponentModel.CancelEventArgs) Handles txtOrderNumber.Validating 
Dim txt As TextBox = CType(sender, TextBox) 

If Not IsNumeric(txt.Text) Then 
txt.Text="1" 

MessageBox.Showf Only numbers are allowed for an Order Number." & _ 

' Setting value to 1", Me.Text, MessageBoxButtons.OK, _ 
MessageBoxlcon. Exclamation) 

End If 
End Sub 

Private Sub txtReqDate_Validating(ByVal sender As Object, ByVal e As 
System.ComponentModel.CancelEventArgs) Handles txtReqDate.Validating 
Dim txt As TextBox = CType(sender, TextBox) 

If Not IsDate(txt.Text) Then 

txt.Text = Date.Today.AddDays(5).ToShortDateString() 
MessageBox.ShowfOnly numbers are allowed for an Order Number." & _ 

* Setting value to : “ & Me.txtReqDate.Text, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxlcon.Exclamation) 

End If 
End Sub 
End Class 
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67. Process Viewer 

Chucrng trinh n4y sur dung cdc class trong namespace System.Diagnostics 
d£ thu thap thdng tin v6 cdc chucrng trinh (ti£n trinh) dang chay. 


';■* Process Viewer 
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Cac chufc nana chinh: 

> Chuung trinh n4y sur dung ba ListView trdn form Main hi£n thi t£t 
c4 cdc ti£n trinh dang chay tr&n indy tinh hi$n hdnh. Khi mot ti£n 
trinh (process) dugc chon, cdc ListView c6n lai se hi&i thi cdc da ligu 
li§n quan. Chu y 14 da li§u cua process dugc 14y ta class Thread Info, 
khong phdi lAy ta System.Threading.Thread. Ngo4i ra c6n c6 mot form 
con dl hiln thi chi ti£t cdc module (DLL) dugc chay bcfi process dugc 
chon. 

C6 ba process khong cung cA'p ddy du thdng tin: 

> _Total: Cung c£p t6m t$t thdi gian thuc hign, sur dung bo xuf ly 

> Idle: Khong ph£i 14 m$t process thuc su 

> System: Khong c6 module cung c£p thdng tin 

Chucrng trinh c6 sur dung mgt ContextMenu v4 mdt MainMenu. 


Project: Process Viewer 
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frmMain.vb 

Option Strict On 
Imports System.Diagnostics 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

’ SCf dung Collection de kiu cac Process nhim myc dich truy xuat nhanh hon 
Private mcolProcesses As New Collection() 

' Tham chi4u d£n Form con de hien thj chi tiS't cac module 
Private mfrmMod As frmModules 
' Cac hhng chuSi dS hi£n thj trong cac listview 
Private Const PID_NA As String = "N/A" 

Private Const PPOCESS_NAME_TOTAL As String = “.Total .{0x0)“ 

Private Const PROCESSJDLE As String = “Idle" 

Private Const PROCESS.SYSTEM As String = "System“ 

. T : , 

Private mils As ListView.ListViewitemCollection , 

' Code phat sinh form di/dc bd qua 

Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As 
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing 
' Giai phdng form con nSu no dang md 
If Not mfrmMod Is Nothing Then 
Try 

With mfrmMod 
.Owner = Nothing 
ParentProcess = Nothing 
.CIose() 

.Dispose() 

End With 

mfrmMod = Nothing 
Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 

End Try 
End If 
End Sub 
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Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
' Lay danh sach cac process 
EnumProcessesQ 
End Sub 

Private Sub lvProcesses„SelectedlndexChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles IvProcesse.SrSelectedlndexChanged 
’ Xii ly khi chQn process 
Try 

Dim iv As ListView - CType(sender, ListView) 

■fX'"' - - K £ l 

If Iv.Selectedlteros.Count = 1 Then 
* Li'y lb cua process tifcQt d£u tiSn 
Dim strProcessId As String « lv.Setectedltems(0).Subltems(1 ).Text 

( ' j: * 

If strProcessId = PID NA Then 
Me.tvProcessDetail.rtems.ClearO 
Me. IvTh reads. ltems.Clear() 

Exit Sub 
End If 

Dim p As Process 

p = CType(mcolProcesses.ltem(strProcessld), Process) 

‘ L£‘y thong tin mdi nhit 
p.Refresh() 

’ Lay chi tiSt cua process 
EnumProcess(p) 

' Lay chi tiS't cua thread 
EnumThreads(p) 

End If 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxIcon. Error) 

End Try ■ 

End Sub 
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Private Sub mnuModules_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuModules.Click, ctxViewMods.Click 
' Md form con de hi4n thj fhdng tin module 
Try 

Dim Iv As ListView = Me.lvProcesses 

If Iv. Selected |tems,Count =1 Then 

Dim strProcessId As String = lv.Selectedltems(0).Subltems(1).Text 
If strProcessId = PID_NA Then 
Exit Sub 
End If 

Dim p As Process 

p = CType(mcolProcesses.ltem(strProcessld), Process) 

' Khong thi/c hi$n cdng viec vdi process IDLE 
' Ta se nh$n dupe thdng bao loi access denied (til ch6i truy xu£t) 

If p.ProcessName = PROCESSJDLE Then 
Exit Sub 
End If 

' Khdnh co gi dS hiSn thj 

If p.ProcessName = PROCESS_SYSTEM Then 
Exit Sub 
End If 
p.Refresh() 

Try 

Dim i As Integer = p.Modules.Count 
Catch exp As System.ComponentModel.Win32Exception 
MessageBox.Show(“Sorry, you are not authorized to" & _ 

‘read this information.*, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 

Exit Sub 
End Try 

If mfrmMod Is Nothing Then 
mfrmMod = New frmModulesQ 
End If 

' TruySn process cho form dupe cfiQn 
mfrmMod. ParentProcess = p 
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' Lay thong tin module 
mfrmMod.RefreshModules() 

* Hien thj form 
mfrmMod.ShowDialog(Me) 

End If 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp/Source, MessageSox Buttons. OK, _ 
MessageBoxIcon .Error) 

End Try - ’■ : •' 

End Sub 

Private Sub mnuRefresh_Click(ByVal sender As System .Object, ByVaf e As 
System.EventArgs) Handles mnuRefresh.Click, ctxRefresh. Click 

1 Lay lai danh sach cdc process 
Me.sblnfo.Text = "Refreshing list, please wait" 

Me.sblnfo.Refresb() 

EnumProcesses() 

Me.sblnfo.Text = "Ready" 

End Sub 

- - '' r \ 1 

Private Sub AddNameValuePair(ByVal Item As String, ByVal Subitem As String) 
' Thu tyc giup thSm c&p name/value v&o listview 
With mits.Add(ltem) 

.Subitems. Add(Subltem) 

End With 
End Sub 

Private Sub EnumThreads(ByVal p As Process) 

' L£y thong tin thread cua process 
Try 

Me.IvThreads.Items. ClearQ 

Dim strProcessId As String 

If strProcessId = PID_NA Then 
Me. IvThreads.Items. Add(PID_NA) 

Else 


Dim t As ProcessThread 
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' Cac Timespan cho m$t thread cy thi 
Dim tpt As TimeSpan 
Dim tppt As TimeSpan 
Dim tupt As TimeSpan 

For Each t In p.Threads 

* L$y thdi gian cua thread vk luu l&l 
tppt = {.PrivilegedProcessorTime 
tupt = t.UserProcessorTime 
tpt = t.TotalProcessorTime 
' % User Processor Time 

Dim strPUPT As String = CDbl(tupt.Ticks / tpt.Ticks).ToString(“#0%“) 

If tupt.Ticks = 0 Then 
strPUPT = -0%" 

End If 

’ % Privileged Processor Time 

Dim strPPPT As String = CDbl(tppt.Ticks I tpt.Ticks).ToString("#0%“) 

If tppt.Ticks = 0 Then 
strPPPT = "0%“ 

End If 

Dim strTPT As String 
With tpt 

strTPT = (.Days.ToString("00") & & .Hours.ToString("00“) & _ 

& .Minutes.ToStringfOO - ) & & .Seconds.ToStringC‘00")) 

End With 

With Me.lvThreads.ltems.Add(t.ld.ToStringO) 

. Subitems. Add{t.BasePriority.ToString()) 

. Subitems. Add(t.CurrentPriority.ToStringO) 

Try 

. Subitems. Add(t.PriorityBoostEnabled.ToStringO) 

Catch exp As System.ComponentModel.Win32Exception 
. Subitems. Add(“N/A”) 

End Try 
Try 

. Subitems. Add(t.PriorityLevel.ToStringO) 

Catch exp As System.ComponentModel.Win32Exception 
. Subitems. Add(“N/A‘) 

End Try 
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. Subitems. Add(strPPPT) 

.Subitems. Add(Hex(t.StartAddress.Tolnt320).ToLower()) 

.Subitems.Add(t.StartTime.ToShortDateStringO &/* 4 _ . 

t.StartTime.ToShortTimeStringO) 

.Subitems.Add(strTPT) - j 

. Subitems. Add(strPUPT) 

End With , ,, ; ■ 

Next 

End If - r. v 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source. MessagaBoxButtons.OK, _ 
MessageBoxicon.Error) 


End Try 
End Sub 

Private Sub EnumProcess(ByVal p As Process) 

' L£y thdng tin process 
Dim Iv As ListView = Me.lvProcessDetail 
Iv. Items. ClearQ 

If p.ProcessName = PROCESSJDLE Then 
Exit Sub 
End If 

mits = Iv. Items 

Const NA As String = "Not Authorized" 

Try 

AddNameValuePair("Start Time", p.StartTime.ToLongDateString() & 
“ " & p.StartTime.ToLongTimeStringO) 
AddNameValuePairf Responding", p.Responding.ToStringQ) 

Try 

AddNameValuePairfHandle", p.Handle.ToString()) 

Catch exp As System.ComponentModel.Win32Exception 
AddNameValuePair{"Handle", NA) 

End Try 
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AddNameValuePair(*Handle Count", p.HandleCount.ToString("NO”)) 

Try 

AddNameValuePair("Main Window Handle", _ 

p.MainWindowHandle.ToStringO) 

Catch exp As System.ComponentModel.Win32Exception 
AddNameValuePairfMain Window Handle", NA) 

End Try 

Try 

AddNameValuePairfMain Window Title", p.MainWindowTitie) 

Catch exp As System.ComponentModel.Win32Exception 
AddNameValuePairfMain Window Title", NA) 

End Try 

Try 

If p.MainModule Is Nothing Then 

AddNameValuePairfMain Module", String.Empty) 

Else 

AddNameValuePair("Main Module", p.MainModule.ModuleName) 
End If 

Catch exp As System.ComponentModel.Win32Exception 
AddNameValuePair("Main Module", NA) 

End Try 

Try 

AddNameValuePair("Module Count", p.Modules.Count.ToString("NO")) 
Catch exp As System.ComponentModel.Win32Exception 
AddNameValuePairfModule Count", NA) 

End Try 

AddNameValuePairfBase Priority", p.BasePriority.ToStringO) 

Try 

AddNameValuePairfPriority Boost Enabled", _ 

p.PriorityBoostEnabled.ToString()) 

Catch exp As System.ComponentModel.Win32Exception 
AddNameValuePair("Priority Boost Enabled", NA) 

End Try 
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Try 

AddNameValuePair("Priority Class", p.PriorityClass.ToStringO) 

Catch exp As System.ComponentModel.Win32Exception 
AddNameValuePair("Priority Class", NA) 

End Try 

Try 

AddNameValuePair(“Processor Affinity", _ 

p.ProcessorAffinity.Tolnt32.ToString()) 

Catch exp As System.ComponentModel.Win32Exception 
AddNameValuePair(*Processor Affinity", NA) 

End Try 

AddNameValuePair{“Thread Count", p.Threads.Count.ToStringO) 

Try 

AddNameValuePair("Min Working Set", _ 

p.MinWorkingSet.Tolnt32.ToString("N0“)) 

Catch exp As System.QpmponentModei.Win32Exception 
AddNameValuePair(*Min Working Set", NA) 

End Try 
Try 

AddNameValuePair("Max Working Set", _ 

p.MaxWorkingSet.Tolnt32.ToString("N0")) 

Catch exp As System.ComponentModel.Win32Exception 
AddNameValuePair("Max Working Set", NA) 

End Try 

AddNameValuePair("Working Set", p.WorkingSet.ToString(“NO")) 
AddNameValuePair('Peak Working Set", p.PeakWorkingSet.ToString{"NO“)) 

AddNameValuePair("Private Memory Size", _ 

p.PrivateMemorySize.ToString(“NO")) 
AddNameValuePair(‘Nonpaged System Memory Size", _ 

p.NonpagedSystemMemorySize.ToStringfNO")) 
AddNameValuePairfPaged Memory Size", _ 

p.PagedMemorySize.ToString{“NO")) 
AddNameValuePairfPeak Paged Memory Size", _ 

p.PeakPagedMemorySize.ToString("NO")) 
AddNameValuePair(“Virtual Memory Size", _ 

p.VirtualMemorySize.ToString( K NO")) 
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AddNameValuePairfPeak Virtual Memory Size", _ 

p.PeakVirtualMemorySize.ToString('NO”)) 


Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Sourpe, MessageBoxButtons.OK, 
MessageBoxlcon.Errpr)i 


End Try 
End Sub 

Private Sub EnumProcesses() 

' Liet ke t£'t ca cac tien trinh 
Try 

Dim ProcessesQ As Process 

Dim tpt As TimeSpan 
Dim tppt As TimeSpan 
Dim tupt As TimeSpan 

Dim mtpt As TimeSpan 
Dim mtppt As TimeSpan 
Dim mtupt As TimeSpan 
Dim i As Integer 
Dim p As Process 

If Not mcolProcesses Is Nothing Then 
mcolProcesses = New CollectionQ 
End If 

If Me.IvProcesses.Items.Count > 0 Then 
Me. IvProcesses. Items. ClearQ 
Me.IvProcessDetail. Items.ClearQ 
Me. IvThreads. Items. ClearQ 
End If 

Processes = Process. GetProcessesQ 
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For Each p In Processes 

mcolProcesses.Add(p, p.ld.ToStringO) 

' LS'y thdi gian cua b<5 xfi ly 
tppt = p.PrivilegedProcessorTime 
tupt = p.UserProcessorTime 
tpt = p.TotalProcessorTime 

mtpt = mtpt.Add(tpt) 
mtppt = mtppt.Add(tppt) 
mtupt= mtupt.Add(tupt) 

' % User Processor Time 

Dim strPUPT As String = CDbl(tupt.Ticks/tpt.Ticks).ToString("#0%’) 

' % Privileged Processor Time 

Dim strPPPT As String = CDbl(tppt.Ticks /tpt.Ticks).ToString(“#0%“) 

Dim strTPT As String 
With tpt 

strTPT * {.DaysToStringCOO’) & V & .Hours.ToString<“00‘) & _ 

& .Minutes.ToStringfOO") & & .Seconds.ToString(“00’)) 

End With 


With Me.IvProcesses.Items.Add(p.ProcessName & " (0x“ & _ 

Hex(p.ld).ToLower() & ")“) 

.Subitems. Add(p. Id.ToStringQ) 

.Subitems. Add(strTPT) 

. Subitems. Add(strPPPT) 

.Subitems. Add(strPUPT) 

End With 
Next 

' % Total User Processor Time 

Dim mstrPUPT As String = CDbl(mtupt.Ticks / mtpt.Ticks).ToString(“#0%") 
' % Total Privileged Processor Time 

Dim mstrPPPT As String = CDbl(mtppt.Ticks / mtpt.Ticks).ToString("#0%") 


Dim mstrTPT As String 
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With mtpt 

mstrTPT = (.Days.ToString(“O0") & V & . Hours.ToStringCOO") & _ 

& .Minutes.ToStringCOO") & & .Seconds.ToStringCOO')) 

End With 

* Cho vAo ListView 

With Me.lvProcesses.ltems.Add{PROCESS_NAME_TOTAL) 
.Subltems.Add(PID_NA) 

. Subitems. Add(mstrTPT) 

. Subitems. Add(mstrPPPT) 

. Subitems. Add(mstrPUPT) 

End With 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 

End Try 
End Sub 
End Class 

frmModules.vb 

Public Class frmMo^ules 
Inherits System,Windows.Forms.Form 

‘ Code ph&t sinh form dtfcfc bd qua 
Private m_ParentProcess As Process 
Private mits As ListView.UstViewItemCollection 
Private mcolModutes As New Collection() 

Friend Property ParentProcessO As Process 
Get 

Return ParentProcess 
End Get 

Set(ByVal Value As Process) 
m_ParentProcess = Value 
If m_ParentProcess Is Nothing Then 
mcolModules = Nothing 
End If 
End Set 
End Property 
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Private Sub EnumModulesQ 
Try 

Me.IvModuies.Items.Clear() 

Dim mf As ProcessModule 
If Not mcolModules Is Nothing Then 
mcolModules = New Gollection() 

End If 

Dim m As ProcessModule 
For Each m In m_ParentProcess.Modules 
Me.lvModules.ltems.Add(m.ModuleName) 

Try 

mcolModules,Add(m, m.ModuleName) 

Catch exp As ArgumentException 
' Bi trung tip, khdng xit ly vk ti£p tyc 
Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, 
M essageBoxIcon. E rro r) 

End Try 
Next 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 

End Try 
End Sub 

Friend Sub RefreshModules() 

Me.sblnfo.Text = ‘Process = * & m_ParentProcess.ProcessName 
Me. IvModDetail. Items. ClearQ 
EnumModulesO 
End Sub 

Private Sub mnuClose_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles mnuClose.Click 

Me.Hide{) 


End Sub 
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Private Sub EnumModule(ByVal m As ProcessModule) 

Me.IvModDetait.items.Clear() 
mits = Me.IvModDetail. Items 
Try 

AddNameValuePair(‘Base Address", Hex(m.BaseAddress.Tofnt32).T6Uower()) 
AddNameValuePair(‘Entry Point Address", _ 

Hex(m.EntryPointAddress.Toint32).ToLower()) 
AddNameValuePair("File Name", m.EiieName) 

AddNameValuePair("File Version", m.FileVersionlnfo.FileVersion.ToStringO) 
AddNameValuePair(‘File Description", m.FileVersionlnfo.FileDescription) 
AddNameValuePairfMemory Size", m.ModuleMemorySize.ToStringCNO 11 )) 
Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 

End Try w v- .■ 

End Sub 

Private Sub AddNameValuePair(ByVal Item As String, ByVal Subitem As String) 
With mits.Add(ltem) 

. Subitems. Add(Subltem) 

End With 
End Sub 

Private Sub lvModules_SelectedlndexChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles IvModules.SelectedlndexChanged 
Try 

Dim Iv As ListView = CType(sender, ListView) 

If Iv.Selectedltems.Count = 1 Then 
Dim strMod As String = lv.Selectedltems(0).Text 
Dim m As ProcessModule = CType(mcolModules.ltem(strMod), _ 

ProcessModule) 

EnumModule(m) 

End If 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 

End Try 
End Sub 


End Class 
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68. Reflection 

Chtfcrng trinh n&y chi cdch truy xu£t d£n c£c assembly de lfiy thftng tin 
c&c ki£u c6 trong assembly. 






ImMhtrmrr 


<Pnv^e)(iwfernBrUKrO0t«b>< 
<Pnv^telMfilBm»tadar{>aUjk>*$SAuotQKn00ftM-2 
< Pi»Mal»»ptomarttatiorD*tai*> .tSAwcMkGOOQtM-3 
<PtrvaMnat4efrwo(abor£>«Uii> »t$«tMrt0w60C10<»1 
<Pn*atdmptemar*aborOaUio*$l*njc*<MB001231 
<Ptiv i tola ph im t a fr» £>atlfc> « tfrfr je *0 M ^j3re 

Equai-’fcwhod ' 

GetHathCoda • Mathod 
GotType - Method 
ToSbhg - Method 


-m. 


M 


Cac chufc n^na chmh: 

Chircmg trinh n&y cho ph6p chon m$t assembly, sau d6 ki€m tra metadata 
ciia n<5, bao g6m cd danh s4ch cua cdc kilu c6 b&n trong n6. Ngifdi suf dung 
cung c6 th£ chon mQt ki&i cu th£ vh xem c£c th&nh phdn cua n6. D$ hiln thi 
cdc assembly da difcjc load nhtfn vko nut List Loaded Assemblies. 

Project: Reflection 
frmMain.vb 

• Option Strict On 

• Imports System.Reflection 'Namespace dAnh cho kiiu Assembly 

■ Public Class frmMain 

Inherits System.Windows.Forms.Form 


' Code phM sinh lorm dupe bt 3 qua 
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1 Bien ndy dupe sti dyng dS co the theo doi assembly hiSn hdnh 
‘ Assembly Id tit khoa trong VB.NET, do d6 nd phii di/pc ddt trong [) 

Private CurrentAsm As [Assembly] 

Private Sub cmdListLoadedAssemblies_Click(ByVal sender As System.Object, _ 
ByVal e As System.EventArgs) _ 

Handles cmdListLoadedAssemblies.Click 
1 Thu tuc ndy Idly ti't cd cac assembly da dU0c load vd lift kS chung trong ListBox 

Dim asms() As [Assembly] 

1 Lay cac assembly da load tCt AppDomain hidn hdnh 
asms = AppDomain.CurrentDomain.dtetA^sembliesO 

' Xoa cac phin tCt hi&n cd trong ListBox 
IstLoadedAssemblies. Items. ClearQ 

‘ Li$t kd cdc assembly 
Dim asm As [Assembly] 

For Each asm In asms 

IstLoadedAssemblies. Items. Add(asm.GetName. Name) 

Next 

Me. UpdatePanels(Me. IstLoadedAssemblies. Items. Count) 

‘ NS'u cd cac assembly dupe liet kd thi cho phep xem chi tiet cua no 
cmdAssemblyDetail.Enabled = (IstLoadedAssemblies.Items.Count > 0) 

'Xoa cac chi tid't da hiSn thj trUdc do 
txtDisplayName.Text = vbNullString 
txtLocation.Text = vbNullString 
IstTypes. Items.Clear() 

IstMembers. Items. Clear() 

CurrentAsm = Nothing 
End Sub 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
UpdatePanels(0. 0, 0) 

End Sub 
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Private Sub lstLoadedAssemblies_SelectedlndexChanged(ByVal sender As 
System.Object, _ 

ByVal e As System.EventArgs) _ 

Handles IstLoadedAssemblies.SelectedlndexChanged 

txtDispiayName.Text = vbNullString 
txtLocation.Text = vbNullString 
IstT ypes. Items.ClearQ 
IstMembers. Items.Clear() 

CurrentAsm = Nothing 
End Sub 

Private Sub lstTypes_SelectedlndexChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) _ 

Handles IstTypes.SelectedlndexChanged 
' Thu tyc nay lay cac th&nh phin cua kiSu dupe ch<?n 
Me.Cursor.Current = Cursors. WaitCursor 
' Lay tham chiS'u din kiiu ditpc ch(?n 
Dim t As Type = CurrentAsm.GetType(lstTypes.Text) 

' Xoa thdng tin cu 
IstMembers. Items. Clear() 

' Li'y thdng tin mdi, hiin thj tin vi kiiu cua thdnh phin 
Dim mi As Memberlnfo 
For Each mi In t.GetMembers() 

IstMembers.Items.Add(mi.Name & " - ’ & mi.MemberType.ToString) 

Next 
With Me 

.UpdatePanels(.lstLoadedAssemblies.ltems.Count, _ 

.IstTypes.Items.Count, .IstMembers.Items.Count) 

End With 

Me.Cursor.Current = Cursors.Default 


End Sub 
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Private Sub ShowAssemblyDetail(ByVal sender As System.Object, _ 

ByVal e As System.EventArgs) __ 

Handles cmdAssemblyDetail.Click, _ 

IstLoadedAssemblies.DoubleClick 
’ Hien thj metadata cua assembly dupe chgn. 

' Bio dim la co mdt assembly dupe chpn 
If IstLoadedAssemblies.Selectedlndex = -1 Then 

MessageBox.Showf Please select an assembly to view from the list", _ 

Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning) 

Exit Sub 
End If 

Me.Cursor.Current = Cursors. WaitCursor 
‘ Assembly li tit khoa trong VB.NET, do 66 phii dit nd trong [] 

Dim asm As [Assembly] 

For Each asm In AppDomain.CurrentDomain.GetAssemblies() 

If asm.GetName.Name = IstLoadedAssemblies.Text Then Exit For 
Next 

CurrentAsm = asm 

txtDisplayName.Text = CurrentAsm. FullName 
txtLocation.Text = CurrentAsm. Location() 

* Hiin thj danh sach cic kiSu cua assembly 
Dim t As Type 

For Each t In CurrentAsm.GetTypes 
IstTypes.ltems.Add(t.FullName) 

Next 

Me.UpdatePanels(Me.lstLoadedAssemblies.Items.Count, _ 

Me.IstTypes. Items.Count) 

Me.Cursor.Current = Cursors.Default 
End Sub 

' Diy li ba him overload (UpdatePanels) cip nhit n6i dung cua thanh tr$ng fhai 
Private Sub UpdatePanels(ByVal AsmCount As Integer) 

UpdatePanels(AsmCount, 0) 

End Sub 
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Private Sub UpdatePanels(ByVal AsmCount As integer, ByVal TypeCount As 
Integer) 

UpdatePane!s(AsmCount, TypeCount, 0) 

End Sub 

Private Sub UpdatePanels(ByVal AsmCount As Integer, ByVal TypeCount As 
Integer. ByVal MethodCount As Integer) 

Dim pAsm As StatusBarPanel = Me.sblnfo.Panels(O) 

Dim pTyp As StatusBarPanel = Me.sblnfo.Panels(l) 

Dim pMbr As StatusBarPanel = Me.sblnfo.Panels(2) 

Const ASM_TEXT As String = 'Assemblies: {0}' 

Const TYPJTEXT As String = "Types: {0}" 

Const MBR_TEXT As String = ‘Members: {0}" 
pAsm.Text = String.Format(ASM_TEXT, AsmCount.ToString) 
pTyp.Text = String.Format(TYP_TEXT, TypeCount.ToString) 
pMbr.Text = String.Format(MBR_TEXT, MethodCount.ToString) 

End Sub 
■ End Class 

Sample.vb 

• Option Strict On 
Public Class Sample 

' Class nay phyc vy cho myc dlch kiSm tra. Xem metadata cua no bang each 
' ch<?n Reflection, Reflection, Sample. 

Public x As Integer 
Protected y As Long 
Private z As Short 

Public Sub Methodl (ByVal i As Integer) 

End Sub 

Public Sub Method2() 

End Sub 

Public Function Method3() As String 
End Function 

Private Sub Method4() 

End Sub 
End Class 





651 


- Coding Techniques - 


69. GvCi va nhan duf li§u thong qua HTTP 


Chuong trinh ndy chi cdeh gufi vd nhan duf lieu suf dung HTTP. Guti vd 
nhan edc Stream suf dung cdc class trong System.Net. 


■ J* l>0l vj flhtltl (Q )li.U 


-l-lxi 



Cac chufc nanq chinh: 

> Chirong trinh c6 bot nut lenh, hai TextBox, vd mQt PictureBox. Va mot 
thu muc do (virtual directory) ten Id VDirl dung d$ nhdn vd trd duf lieu 
v£. Ba nut ddu ti&n cho thay cdch gufi vd nhdn duf lieu tir mot file. Nut 
cuoi cling cho thdy cdch gufi vd nhan vdn ban tir tfng dung Web. 

> Lfng dung Windows hoat dong dua trdn bbn file ASPX ndm tr£n thu 
muc do VDirl. 

Chu Cdn tao mpt Virtual Directory tren IIS c6 ten Id VDirl (dnh xa 
den VDirl trong thu muc cua Solution ndy) 

C6 ba file duf lieu suf dung trong chuong trinh ndy: datafile.txt, mypic.jpg, 
myxmlfile.xml, din c6 mpt bdn sao cua datafile.txt nkm trong ciing thu muc 
vdi chuong trinh .exe dd gufi l§n server. 


Project: Gui va nhan du lieu 
frmMaln.vb 

■ Option Strict On 

Imports System. 10 ' SCf dijng d4Him vide vdi cac Stream 
Imports System.Net ' St? dyng d£ trao dS't vdi HTTP Server 










652 


-- Coding Techniques- — 


Public Class frmMain 

Inherits System.Windows.Forms.Form 


' Code phat sinh form dupe bd qua 


Private Sub cmdPassText_C!ick(ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles cmdPassText.Click 

' Thu tuc nay gOi vi nhin vin bin td HTTP Server. 


Dim req As WebRequest 
Dim rsp As WebResponse 

Try 

' Tao mdt instance WebRequest 

req = WebRequest.Createfhttp://localhostA/Dir1/PassText.aspx*) 

' SO dung POST dS gUi dO liiu 
req.Method = "POST 1 


’ G6i vin bin vio m$t StreamWriter 
Dim sw As New StreamWriter(req.GetRequestStream()) 
sw.WriteLine(txtDataPassed.Text()) 
sw.Close() 

' GOi vin bin d£n Web Server 
rsp = req.GetResponse() 

‘ Goi stream tri vi tit Web server vio m^t StreamReader 
Dim sr As New StreamReader(rsp.GetResponseStream()) 

' Di/a vin bin nhan dupe vio TextBox 
txtDataReturned.Text = sr.ReadLine() 

MessageBox.Show(*Passing text completed successfully!*, Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 

Catch exp As Exception 

MessageBox.Show{exp.Message, Me.Text, MessageBoxButtons.OK, _ 
MessageBoxIcon.Stop) 
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Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, _ 
MessageBoxIcon.Stop) 

End Try 
End Sub 

Private Sub cmdReceivelmageFile_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles cmdReceivelmageFile.Click 

' PhUdng thtic nAy y§u cAu vA nh$n ve mdt h'mh anh tCf Web Server 

Dim ms As MemoryStream 1 Sufdyng di dita hlnh Anh vAo PictureBox 
Dim req As WebRequest 

Try 

' Tgo ddi tuong WebRequest 

req = Web R eq uest. C reate( ‘ http ://local hostA/ D ir 1 /R ece iv e I mage. as px“) 

' Sit dyng GET dS nhAn di7 Mu 
req. Method = "GET* 

Dim rsp As WebResponse = req.GetResponse() 

Try 

' Tao mot MemortStream de chufa h)nh Anh 
ms - New MemoryStream() 

' Copy h'mh Anh vao MemoryStream 
CopyData(rsp.GetResponseStream(), ms) 

1 Hien thj h'mh Anh trSn PictureBox 
picDownloadimage.Image = Image.FromStream(ms) 

MessageBox.Showflmage file received successfully! 1 *, Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 
Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, _ 
MessageBoxIcon.Stop) 

Finally 

If Not ms Is Nothing Then ms.Close() 

If Not rsp Is Nothing Then rsp.GetResponseStream.Close() 


End Try 
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Finally 

’ Bio dim tic stream di/qc <36ng l$i 
If Not req Is Nothing Then req.6etfiequestStream().CIose() 

If Not rsp Is Nothing Then rsp.GetResponseStream().CIose() 

End Try 

End Sub . ' - % 

Private Sub cmdReodiveDataFile_G!ick(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handies cmdReceiveDataFile.Click 

* Phtfdng thCfc niy yiu citi vi nhin vS m$t file XML td Webserver. 

Dim fs As FileStream ’ Dung d£ truy xui't din file eye b$ 

Dim req As WebRequest 
Try 

‘ Tao mdt instance Request 

req = WebRequest.Createfhttp://localhost/VDir1 /ReceiveData.aspx") 

‘ SCf dung GET d£ nhin duf liiu 
req.Method = "GET" 

Dim rsp As WebResponse = req.GetResponseQ 
Try 

’ Tao file de chiia noi dung 

fs = New FileStream( , ReceivedXMLFile.xml“, FileMode.Create) 

* Ohio noi dung nhin di/qc vao file vda t$o 
CopyData(rsp.GetResponseStream(), fs) 

Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, _ 
MessageBoxIcon.Stop) 

Finally 

If Not rsp Is Nothing Then rsp.GetResponseStream.CloseO 
If Not fs Is Nothing Then fs.Close() 

End Try 

MessageBox,Show(" Receive of data file completed successfully!", Me.Text,. 

MessageBoxButtons.OK, MessageBoxIcon.Information) 
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Catch exp As Exception 

MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, _ 
MessageBoxIcon.Stop) 

End Try 
End Sub 

Private Sub cmdSendFileData_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdSendFileData.Click 

' Phi/dng thiic n&y l£y mdt file eye bo ten datafile, txt va gilt noi dung cua 
' no dSn Web Server. 

Dim fs As FileStream 

Dim req As Web Request ' Tham chiSu d£n WebRequest 
Try 

‘ Md file 

fs = New FileStreamCdatafile.txf, FileMode.Open) 

' T$o instance WebRequest 

* req = WebRequest.Create("http://localhost/VDir1/SendData.aspx“) 

' Stjf dyng Post d£ gCfi ndi dung file 
req.Method = “POST" 

‘ Copy t& file v&o RequestStream 
:*! Copy Data (fs, req.GetRequestStream()) 

‘ Finartyr 

ff Ncrt req fs Nothing Then req.GetRequestStream.Close() 

" Mf Not fsteNothingThen fs.CtoseQ 
Erwitiy • J ‘ 

* a w*. *>«• f ■ : '■ 

‘ gdffjUf^u dfn Web Server 

Dim rspA6.WebR€«P6ri^8^req^39tRe?ponse() 

Sub ■' , , 

Private Sub CopyData(ByVal FromStream As Strpam, ByVal ToStream As Stream) 

* Thu tyc n&y Copy h$i dung ttif m$t Stream ydo mdt.Stream khac 

* Dung <36 thao doi s6 byte <3 qc tut FromStream 
Dim intBytesRead As Integer 

* Klch thude Idn nh£t cho mdi tin dqc 
Const intSize As Integer = 4096 

Dim bytes(intSize) As Byte 
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intBytesRead = FromStream.Read(bytes, 0, intSize) 
While intBytesRead > 0 

ToStream.Write(bytes, 0, intBytesRead) 
intBytesRead = FromStream.Read(bytes, 0, intSize) 
End While 
End Sub 

End Class - 

Thur muc &o VDirl chtfa q£c file sau: 



SendData.aspx 

<% @ Page Ianguage="VB" debugs “true'%> ^ ?y.; 

, • ./V -A-. . /;■ 1 ' U- 'J'^A it "-u 

<%import namespace="System.iO" %> 


<Script runat=Server> 



Sub Page_Load(sender As Object. args As EverttAtgs) 

' Phi/dng ttitic niy nhih n$i dung td ReqQfetStream vi copy n^i dung 


* mdt file cue b$ 


jf, ■ 

vio 


Dim fs As FileStream 


Try 

,«■ -•> ' "■ • 1 1 ( ' 

' Liy dtfdng din hi$n hinh cua Ctng dyng Web 
Dim appbase As String 

appbase = AppDomain.CurrentDomain.Setuplnformation.ApplicationBase() 

T^o ho$c ghi chSng lin file trong thu muc trip Webserver 
fs = New FileStream(appbase & “datafile.txt*, FileMode.Create) 

' Chip n$i dung vAo file trSn Web Server 
CopyData(Request.lnputStream, fs) 

Finally 

Request. lnputStream.Close() 

If Not fs Is Nothing Then fs.Close() 

End Try 
End Sub 
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Private Sub CopyData(ByVai FromStream As Stream, ByVal ToStream As Stream) 
Dim nBytesRead As Integer 

Const m_Size As integer = 4096 
Dim bytes(m_Size) As Byte 

nBytesRead = FromStream.Read(bytes, 0, m_Size) 

While nBytesRead > 0 

ToStream.Write(bytes, 0, nBytesRead) 
nBytesRead = FromStream.Read(bytes, 0, m_Size) 

End While 

End Sub 
</Script> 

PassText.aspx 

<%@Page language=VB debug=“true“ %> 

<%<§lmport namespace^System.lO" %> 

< Script runat=Server> 

Sub Page_Load(sender As Object, args As EventArgs) 

' Thu tijic niy nhin vSn bin til client vi tri v4 vin bin cho client. 

Dim sr As StreamReader 
Dim sw As StreamWriter 

Try 

sr = New StreamReader(Request.lnputStream) 

dim str As String = sr.ReadToEnd() 
sr.Close 

sw = New StreamWriter(Response.OutputStream) 
sw.WriteLinefYou passed me " & str) 
sw.Close 





658 


-- Coding Teeluuques - 


Finally 

If Not sw Is Nothing Then sw.Close() 

If Not sr Is Nothing Then sr.Close() 

End Try 
End Sub 
</Script> 

RecleveData.aspx 

<%@Page language=’VB“ debug=*true" %> 

<%®mport namespace=*System. 10“ %> 

<Script runat=Server> 

Sub Page_Load(sender As Object, args As EventArgs) 

' Phiiting thufc nky Iky n$i dung trong mdt file trSn server vk tri v4 client 

Dim fs As FileStream 

Try 

Dim appbase As String 

appbase = AppDomain.CurrentDomain.SetupInformation.ApplicationBaseO 
fs = New FileStream(appbase & ‘myXMLfiie.xml*, FileMode.Open) 

CopyData(fs, Response.OutputStream) 

Finally 

Response.OutputStream.Close() 

If Not fs Is Nothing Then fs.Close() 

End Try 
End Sub 

Private Sub CopyData(ByVal FromStream As Stream, ByVal ToStream As Stream) 
Dim nBytesRead As Integer 

Const m_Size As Integer = 4096 

Dim bytes(m_Size) As Byte 

nBytesRead = FromStream.Read(bytes, 0, m_Size) 
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While nBytesRead >0 

ToStream.Write(bytes, 0, nBytesRead) 
nBytesRead = FromStream.flead(bytos, 0, m„Size) 

End While 

End Sub > 

■ </Script> 

Receivelmage.aspx 

■ <%@Page language=*VB“ debug='true“ %> 

<%0mport namespaces" Sy stem. IO' %> 

• <Script runat=Server> 

Sub Page_Load(sender As Object, args As EventArgs) 

' Thu tyc ruby l&y m$t h)nh inh tCf thu muc trin Web Server vd gift vS client 

Dim fs As FileStream 

Try 

Dim appbase As String 

appbase = AppDomain.CUrrentDomain.Setuplnformation.Appl1cationBase() 
fs = New Filestream(appbase & “mypic.jpg", FileMode.Open) 

CopyData(fs, Response.OutputStream) 

Finally 

Response.OutputStream.Close{) 
if Not fs Is Nothing Then fs.C!ose() 

End Try 
End Sub 

Private Sub CopyData(ByVal FromStream As Stream, ByVal ToStream As Stream) 
Dim nBytesRead As Integer 
Const m_Size As Integer = 4096 
Dim bytes(m_Size) As Byte 

nBytesRead = FromStream.Read(bytes, 0, m_Size) 

While nBytesRead > 0 

ToStream.Write(bytes, 0, nBytesRead) 
nBytesRead = FromStream. Read (bytes, 0, m_Size) 

End While 
End Sub 

• </Script> 





660 


-- Coding Techniques - 


70 . Gift Email 

ChifOng tiinh nay chi cdch gift email vdi SMTP suf dung cdc class trong 
namespace System.Web.Mail. 



Cac chufc nana chtnh: 

> Chifcfng trinh nay cd m$t Windows Form vdi cdc control tifcrng tif nhu 
Microsoft Outlook. 

> Khi Form ditoc load nd ki&n tra dl bdo ddm ngixdi suf dung c 6 chi dat 
SMTP Service vh dich vu nay dang hoat dpng. 

> Ki$m tra duf li£u tr£n cdc trudng "To" va "From" vh hi£n thi I6i b&ng 
control ErrorProvider. 

Chti f. 

> SMTP Service la mdt thdnh phin trong IIS. 

> B£ guri dirdc mail, thu$c tfnh SmtpServer phdi dime gdn dia chi cua 
server cd SMTP Server dang chay. 

Cdii hinh Relay Retrictions cho SMTP Service trfcn mdy cue b$: 

> Trong IIS, nhdn chu$t phdi vao Default SMTP Virtual Server va chon 
Properties. 

> Tr£n h$p thoai md ra, chon tab Access. 

> Nhdn vao Relay. 
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> Trong h$p thoai Relay Restrictions, ddnh dtfu "All except the list below". 

> Nh4n OK hai l4n d£ ch&p nhdn cdc thay d6i v& d6ng cdc h$p thoai. 

Project: Send Mail 
frmMain.vb 

Option Strict On 
Imports System.Web.Mail 
Imports System .Text 
Imports System.ServiceProcess 

Public Class frmMain 

Inherits System.Window&Forms.Form », 

' S& dung cho WndProc 

Dim WM_SYSCOMMAND As Ipteger = &H112 
Dim SC_CLOSE As Integer = &HF060 

Friend WithEvents btnSend As System.Windows.Forms.Button 

Friend WithEvents IbIFrom As System.Windows.Forms.Label 

Friend WithEvents IbITo As System.Windows.Forms.Label 

Friend WithEvents IbISubject As System.Windows.Forms.Label 

Friend WithEvents IbIBody As System .Windows. Forms. Label 

Friend WithEvents IbIBCC As System.Windows.Forms.Label 

Friend WithEvents IbiCC, As System.Windows.Forms.Label 

Friend WithEvents erpEmailAddresses As System.Windows.Forms.ErrorProvider 

Friend WithEvents txtFrom As System.Windows.Forms.TextBox 

Friend WithEvents txtTo As System.Windows.Forms.TextBox 

Friend WithEvents txtSubject As System.Windows.Forms.TextBox 

Friend WithEvents txtBody As System.Windows.Forms.TextBox 

Friend WithEvents txtCC As System.Windows.Forms.TextBox 

Friend WithEvents txtBCC As System.Windows.Forms.TextBox 

Friend WithEvents cboPriority As System.Windows.Forms.ComboBox 

Friend WithEvents btnBrowse As System.Windows.Forms.Button 

Friend WithEvents Labell As System.Windows.Forms.Label 

Friend WithEvents odlgAttachment As System.Windows.Forms.OpenFileDialog 

Friend WithEvents Label2 As System.Windows.Forms.Label 

Friend WithEvents IstAttachments As System.Windows.Forms.ListBox 


• ’ Code phit sinh form dupe bd qua 
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Dim arl Attachments As Array List 
' KiSm tra cic dja chi email 

Private Sub ValicfateEmailAddress(ByVal txt As TextBox) 

' Xic nh$n c6 phii li chuSi trdng 
If txt TextLength = 0 Then 

Throw New Exceptton('Email address is a required field') 

Else 

' Bio dim li c6 ” a vi m @ m trong cic dja chi email 
If txt.TextlndexOf(V) = -1 Ortxt.Text.lndexOf('@) = -1 Then 
Throw New Exception(*E-mai! address must be valid e-mail 1 & _ 

'address format/ & CorvtrolChars.Cr & "For example * & _ 

"‘someone 0ntbooksvn.com 1 ') 

End If 
End If 
End Sub 

1 Thu tyc niy override WndProc eda Form vi bit message Close khi ngudi stir 
' dong ding form. Ndu khdngcd thO tgc niy, khi dja chi email nh$p vio cd iSi th) 

‘ ErrorProvider khdng cho ding form. 

Protected Overrides Sub WndProofByRef m As System.Windows.Forms.Message) 
If m.Msg = WM_SYSCOMMAND Then 
If m.WParam.Tolnt32 = SC_CLOSEThen 

' Tit tlnh ning ki&m tra dO lt$u cua cic cic control 
’ cd CausesVaUdation * True 
txtTo.CausesValidation = False 
txtFrom.Causes Validation = False 
End If 
End If 

’ TruySn cic message khic vio WndProc g6c 
MyBase.WndProc(m) 

End Sub 
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' XCf ly nut Browse. Sit dyng OpenFileDialog dS cho ph6p ngtfdi sft dyng 
‘ chQn file dinh kim. 

Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles btnBrowsfe€licf( 

With odlgAttachment 
.Initial Directory = ‘C:\“ 

.Filter = ‘All Files (V)I‘.T &_ 

■HTML Files (\htm;\html)l*.htmr & _ 

■Microsoft Mail Documents (■.msg)r.msgl B & _ 

"Word Documents (*.doc)l\docl* & i. 

“Excel Files(“.xl*)l*.xlT & _ 

‘Excel Worksheets (\xls)l*.xlsl* & 

“Excel Charts (*.xlc)r.xlcl* & _ 

“PowerPoint Presentations (*.ppt)K.pptl“ & _ 

“Text Files (‘.txt)l*.txt“ 

.Filterlndex = 1 

If .ShowDialogO = DialogResult.OK Then . , 

If IsNothing(arlAttachments) Then 
arlAttachments = New ArrayList(j 

.: ■ i- ■ . 't... ■' "-i ,■ r ' » r - 

' X6a chd "(No Attachments) m trong UstView 
IstAttachments.ltems.CtearO 
End If 

arlAttachments. Add(New MaiIAttachmerrt(. File Name)) 

Dim strFileName<) As String = .FileName.Split(New Char() (CChar("\*)}) 

strFileName.Reverse(strFifeName) 

lstAttachments.ltems.Add(strFileName(0)) 

End If 
End With 
End Sub 

' XCf ly nut Semi. Thu tyc niy kiim tra ttnh Hgp 1$ cua cic dja chi; t$o phdn thin 
1 cua message bing StringBuikter, t$o m6t email vi thtfc hi$n gufi nd. 

Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSend.Click 

' Thi/c hi$n kidm tra cic tnldng To vi From, ci hai d4u cin dS gCti email 
Try 

ValidateEmailAddress(txtFrom) 
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Catch ex As Exception , : 

txtFrom. Select(0, txtFrom.Text.Length) 

' Gin vio ErrorProvider chudithdfi&bio hiSn thf * ; 
erpEmailAddresses.SetError(txtFrom, ex.Message) 

Exit Sub 
End Try 

Try ?■■», ' ■ 

ValidateEmailAddress(txtTo) ■ - ’ o 

Catch exp As Exception 
txtTo.Select(0, txtTo.Text. Lengthy" 

erpEmailAddresseSiSetErrOdtxtTo.exp.Message) 

Exit Sub 
End Try 

Dim sb As New StringBuftder() '> 

* T$o ph&n thin ci)a email 

sb.Append( B The following email was sent to you from the Send Mail 1 & 
‘sample application:’) 
sb.Append(vbCrLf) 
sb.Append(vbCrLf) 
sb.Append(*SUBJECTs *) 
sb.Append(T rim(txtSubject.T ext)) 
sb.Append(vbCrLf) 
sb.Append(vbCrLf) 
sb.Append(“MESSAGE:') 
sb.Append(T rim(txtBody.Text)) 
sb.Append(vbCrLf) 

* T$o m$t email message cung tuong ti/ nhu li tao m$t instance cua 
’ mdt class vi gin m$t s6 thu$c ttnh. 

Dim mailMsg As New MailMessageQ 
With mailMsg 

.From = txtF rom. Text.Trim 
.To = txtTo.Text.Trim 
.Cc = txtCC.Text.Trim 
.Bcc = txtBCC.Text.Trim 
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.Subject = txtSubject.Text.Trim 
.Body = sb.ToString 

.Priority = CType(cboPriority.Selectedlndex, MailPriority) 

i. 

If Not IsNothing(arlAttachments) Then 
Dim mailAttachment As Object 
For Each mailAttachment In arlAttachments 
. Attachments. Add(maiiAttachment) 

Next 
End If 
End With 

SmtpMail.SmtpServer = 'localhost* 

Try 

SmtpMail.Send(mailMsg) 

1st Attach m ents. I terns. C lea r() 

IstAttachments. Items. Add('(No Attachments)') 

MessageBox.ShowfYour email has been successfully sent!', 

. 'Email Send Status', MessageBoxButtons.OK, _ 

MessageBoxicon. Information) 

Catch exp As Exception 

MessageBok.ShoWCThe following problem occurred when attempting to " & 
'sehd your email: “ & exp.Message, _ 

Me.Text, MessageBoxButtons.OK, MessageBoxicon.Error) 

End Try 
End Sub 

' Xtf ty st/ ki$n ph&t sinh khi control dUQc kiSm tra ht/p IS 

Private Sub emailAddres$es_Validated(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles txtFrom.Validated, txtTo.Validated 

’ X6a thdng bSo iSi 

erpEmailAddresses.SetError(CType(sender, TextBox), ") 

End Sub 



666 


— Coding Techniques — 

' XCt ly ki4m tra tfnh hQp I$ cho cic TextBox 

Private Sub emailAddresses_Validating(ByVal sender As System.Object, ByVal 
As System.ComponentModel.CancelEventArgs) Handies txtFrom.Validating, 
txtTo. Validating 

Dim txt As TextBox = CType(sender, TextBox) 

Try 

ValidateEmailAddress(txt) 

Catch exp As Exception 

' Bd qua thao tic vi ch<?n vin bin <34 ngUdi sd dyng s&a \5i 
e.Cancel = True 
txt.Select(0, txt.Text.Length) 

' Gin chudi thdng bio vio ErrorProvider 
erpEmailAddresses.SetError(txt, exp.Message) 

End Try 
End Sub 

' Ki4m tra SMTP Service di/<?c cii dit vi dang ch$y 
Private Sub frmMain_Load(ByVai sender As System.Object, ByVal e As 
System. EventArgs) Handles MyBase.Load 

' Bio dim SMTP Service dtirfc cii d$t 

Dim services() As ServiceController = SprviceController.GetServices 

Dim service As ServiceController 

Dim blnHasSmtpService As Boolean = False 

' DuySt qua t4t ci cic Service cd trin miy tinh d4 tim SMTP Service 
For Each service In services 

If service.ServiceNameToLower = 'smtpsvc" Then 
blnHasSmtpService = True 
Exit For 
End If 
Next 

If Not blnHasSmtpService Then 

MessageBox.Show( a You do not have SMTP Service installed on this * & _ 
"machine.*, Me.Text, __ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 

End If 
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' Bio dim li SMTP Service dang chay, nSu chUa boat dQng th) cho nd ho$t d$ng 
If Not service.Status = Service Controllers tat us. Running Then 
Dim frmStatusMessage As New frmStatus() 

frmStatusMessage.Show("SMTP Service not currently running. ■ & _ 

"Starting service...") 

Try 

service.Start() 

frmStatusMessage.Close() 

Catch 

MessageBox.Show("There was an error when attempting " & _ 

"to start SMTP Service.", Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 
End If 

' DUa cic gii trj dQ UU tiin vio ComboBox Priority 
With cboPriority 

.Items.AddRange(New StringO {"Normal", "Low", "High"}) 

.Selected Index = 0 
End With 
End Sub 

End Class 


71. Service Manager 


Chuong trinh n&y chi cdch quin ly cic dich vu (Windows Service) tr§n 
Windows NT, Windows 2000 vk Windows XP. 




Window* Image Aequidtion (WtA] Stopped 

Window* Inslaler Stopped 

Wndom Management Instrumentation Running 

Windows Management Instrumentation... Stopped 

Windows Time Running 

Wiles *Z ero Configuration Running 

WMI Performance Adapter Stopped 

Workstation Running 

World Wide Web PoWthmg Rurmng 


Win32s Ra ra Pioce* * 

Wn32S tvaroProcew, InteractiveProcess 
Win32s hare Pt oce* * 
Wn32ShareProce» 

Win32s SareProce** 

Win32s harePioces* 

Wn320wnPioce*t 
Wm32S hareProc e** 
Wm32SharePro c e u 
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Cac chufc ngnq chinh: 

,• ■/[, v v V "• 

> Chufcmg trinh n&y suf dung class ServiceController trong namespace 
System.ServiceProcess. Chtfcnpg trinh <?ho phgp Start* Stop, Pause vk 
Resume cdc service. M§t Timer sg cl*$y m&i 5 gi&y nh£t trang 

thdi cda cic service. ...... 


Project: Service Manager v ; ^ 

^ . -> 1 / /v* ; r,> v - ‘ .v. 

frmMain.vb 

j 'i. >; i -■ * ; • ■ ; ‘ r n ' / < 

■ Public Class frmMain 

Inherits System.Windows.Forms.Form 

* SO dung 64 truy xu&t dSn service dupe chqn 
Private msvc As ServiceControiler 
Private mcolSvcs As New Collection!) 

' SO dung dS diSu khiin c$p nh$t giao di$n 
Private fUpdatingUI As Boolean - 

• ' Code phOt sinh form dupe bd qua 

Private Sub chkAutoRefresh_CheckedChanged(ByVal sender As System.Object, 
ByVal e As System. EventArgs) Handles chkAutoRefresh.CheckedChanged 

' Bit hoAc tit Timer , 

If Me.chkAutoRefresh.CheckState = CheckState.Checked Then 
Me. tmrStatus. Enabled = True 
Else 

Me.tmrStatus.Enabled = False 
End If . 

End Sub 1 f ■ i. ^.. " v, - : - 

Private Sub cmdPause_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdPause.Click 
Try 

msvc.Pause() 
fUpdatingUI = True 

UpdateUIForSelectedServiceQ , 

fUpdatingUI = False 
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Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 

End Try 
End Sub 

Private Sub cmdResume_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdResume.Click 
Try 

msvc.Continue() 
fUpdatmgUI = True 
UpdateUIForSelectedService() 
fUpdatinglll = False 
Catch exp As Exception 

MessageBox.Show{exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 

End Try 
End Sub 

Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdStart.Click 
Try 

msvc.Start() 
fUpdatingUI = True 
UpdateUIForSelectedServiceO 
fUpdatingUI = False 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 

End Try 
End Sub 

Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdStop.Click 
Try 

msvc.StopO 
fUpdatingUI = True 
UpdateUIForSelectedServiceO 
fUpdatingUI = False 
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Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxIcon. Error) 

End Try 
End Sub 

Private Sub frmMain J_oad(ByVal sender As System.Object, ByVal e As 1 ■ 
System.EventArgs) Handles MyBase.Load '■ 

EnumServices{) 

End Sub 

Private Sub lvServices_SelectedlndexChanged(ByVa! sender As SyBtem.Object, 
ByVal e As System.EventArgs) Handles IvServices.SelectedlndexChafiged 
fUpdatingUI = True ■"> ■ 

UpdateUIForSeiectedServiceO 
fUpdatingUI = False 

End Sub T 

Private Sub tmrStatus_Tick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles tmrStatus.Tick 
If Not fUpdatingUI Then 
UpdateServiceStatusO 
End If 
End Sub 

Private Sub EnumServicesQ 

’ Lgy danh s&ch c&c service vd cho thdng tin cua chung v&o listview 
Try 

fUpdatingUI = True 

Me.sblnfo.Text = "Loading Service List, pleasse wait" 

Me.sblnfo.Refresh() 

Me.IvServices.ltems.ClearO 

If Not mcolSvcs Is Nothing Then 
mcolSvcs = New CollectionO 
End If 

Dim svc As ServiceController 

Dim svcs As ServiceControllerQ = ServiceController.GetServices() 
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For Each svc In svcs 

With Me.ivServices.ltems.Add(svc.DisplayName) 

Subitems. Add(svc.Status.ToStringO) 

. Subitems. Add(svc.ServiceType.ToStringO) 

End With 

mcolSvcs.Add(svc, svc.DisplayName) 

Next svc 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 

Finally ' 

Me.sbinfo.Text = "Ready"- 
fUpdatingUi* False » Y;. 

End Try 
End Sub 

Private Sub UpdateServiceStatus() 

’ Ki4m tra tCtng service 
Try 

fUpdatingUi = True 

Me.sbinfo.Text = 'Checking Service Status .. * 

Me.sblnfo.Refresh() 

Dim Ivi As ListViewItem 
For Each Ivi In Me.IvServices.Items 
msvc = CType(mcolSvcs.ltem(lvi.Text), ServiceController) 
msvc.Refresh() 

lvi.Subltems(1).Text = msvc. Status.ToStringO 
Next Ivi 

UpdateUIForSelectedService() 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxIcon.Error) 

Finally 

Me.sbinfo.Text = 'Ready' 
fUpdatingUi = False 
End Try 
End Sub 
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Private Sub UpdateUIForSelectedServiceQ 

' C$p nh$t t?i tr$ng thii cac nut tilctng ting vdi m5i service 
Dim strName As String 
Dim i As Integer 
Try 

If Me. IvServices.Selected Items. Count = 1 Then 
strName = Me. IvServices. Selectedltems{0).Subltems(0).Text 
msvc = CType(mcolSvcs.ltem(strName), ServiceController) 

With msvc 

Me.cmd Start, Enabled = (.Status = ServiceControllerStatus. Stopped) 
Me.cmdStop.Enabled = (.CanStop AndAlso (Not .Status = _ 

ServiceControllerStatus. Stopped)) 
Me.cmdPause.Enabled = (.CanPauseAndContinue AndAlso _ 

(Not .Status = ServiceControllerStatus.Paused)) 
Me.cmdResume.Enabled = (.Status = ServiceControllerStatus.Paused) 
End With 
End If 

Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, _ 
MessageBoxIcon. Error) 

End Try 
End Sub 

Private Sub mnuRefresh_Click(ByVal sender As System.Object, ByVal e As 
System,EventArgs) Handles mnuRefresh.Click 
If Not fllpdatingU! Then 
UpdateServiceStatus() 

End if 
End Sub 

Private Sub mnuRelist_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuRelist.Click 
If Not fUpdatingUI Then 
EnumServicesO 
End If 
End Sub 
- End Class 
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72. Stack Frame 

Chtfcrng trinh n&y chi cdch suf dung class System.Diagnostics.StackFrame 
v4 hai class khdc 1& System.Diagnostics.StackTrace \k 
System.Reflection.Methodlnfo. Cdc class n&y cho ph6p l&m viec vdi "call 
stack". 


Slack Frame 



Test Procedure Stack 


Test Exception Handing 


r~ Include Source Info? 


Private ProcB (By/at Name As Strhg] As System S tring 
Private ProcA(By/al Iteml As Int32, ByRel Item2 As Inl32&, B^Val lt< 
Private btnS tackTrace_Qick{By/al sender As Object. ByVal e As Es 
Protected QnClick(ByVal e As EventArgs) As SystemVoid 
Protected OnClick(ByVal e As EventArgs) As SystemVoid 
Protected 0nMou$eUp(8yVal mevent As MouseEventArgs) As Syske 
Private WmMouseUp{ByRef m As Messaged. ByVal button As Mous 
Protected Wrwfroc(ByRelm As Messaged) As System Void — 
Protected WndProc(8yR tt m As Messaged) As SystemVoid 
Protected WndProcfBjflel m As Messaged) As SystemVoid 
Pubic OnMessage(ByRef m As Messaged) As SystemVord . 

Protected WncProc(ByRet m As Messaged) As SystemVord H 


Cac chufc nana chinh: 

> Tren form chinh, nh£n vho nut "Test Procedure Stack" goi mpt thti 
tuc c6 nhieu cap goi (do s&u) (Sir ki$n Click cua nut nky goi ProcA, 
ProcA goi ProcB, ProcB hi$n thi call stack). 

> Nhain v&o nut Test Exception Handing d€ xur ly Stack Trace da k£t vdi 
mot exception. 

Project: Stack Frame 
frmMain.vb 

Option Strict On 

• Imports System.Diagnostics 

■ Imports System.Reflection 

• Imports System.Text 

■ Imports System.10 

• Public Class frmMain „ 

Inherits System.Windows.Forms.Form 

• ’ Code phkt sinh form di/pc bo qua 
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72. Stack Frame 

Chifcfng trinh n&y chi cdch suf dung class System.Diagnostics.StackFrame 
v& hai class khdc \k System.Diagnostics.StackTrace vh 
System.Reflection.Methodlnfo. Cdc class n&y cho ph6p l&m viec vdi "call 
stack". 


Stack Frame 


Test Procedure Stack 


Test Exception Handing 


l~ Include Source Wo? 




Private ProcB|BiVal Name As String) As System. String 
Private PtocA(B}Wal Iteml As lr*32. By Ret Item2 As Int32&. ByVal It* 
Private btnStackTrace_Oick{0yVal sender As Object. ByVal e As Ev 
Protected OnClick(ByVal e As EventArgs) As System Void 
Protected OriClickfByVal e As EventAigs] As System Void 
Protected 0nMouseUp(8yVal mevent As MouseE ventArgs) As Syste 
Private WmMouseUpjByfief m As Messaged. ByVal button As Mous 
Protected WrrdProc(ByRel m As Messaget) As SysteraVoid 
Protected WncProcfByRei m As Messaged) As SysteraVoid 
Protected Wr>dProc(ByR et m As M essagei) As SysteraV oid 
Pubic OnMes$age(ByRef m As Messaged) As SysteraVoid 
Protected WndProc(Byfief m As Messaged) As System.Void H 


Cac chufc nana chfnh: 

> Tren form chlnh, nh£Ln v&o nut "Test Procedure Stack" goi mpt thu 
tuc co nhi^u cap goi (dp sau) (Su kien Click cua nut n&y goi ProcA, 
ProcA goi ProcB, ProcB hi£n thi call stack). 

> Nh&n v&o nut Test Exception Handing de xur ly Stack Trace da ket vdi 
mot exception. 


Project: Stack Frame 
frmMain.vb 

Option Strict On 

Imports System.Diagnostics 
Imports System.Reflection 
Imports System.Text 
Imports System.10 

Public Class frmMain » 

Inherits System.Windows.Forms.Form 
* Code ph£t sinh form dupe bd qua 
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Private Sub btnException_Click(ByVal sender As System .Object, ByVal e As ! 
Sy stem. Event A rgs) Handles btnException.Click 

' Co thS truySn mdt dd'i tutong Exception vao constructor cua class StackTrace. 
Try 

ProcException1(1, 2) 

Catch exp As Exception 

GetFullStackFramelnfo(New StackTrace(exp)) 

End Try 
End Sub 

' Tht) tuc niy, cCmg vdi ProcA vi ProcB, cho phep bi£u diSn each ta co th£ lim 
' vide trdn cic stack frame tqi b£t ky vj tri ndo. Trong trudng hop nay, code suf 
' dung ki£u Methodtnfo d£ hi£n thj thdng tin vS stack frame hien hinh. 

Private Sub btnStackTrace_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnStackTrace.Click 
ProcA(1,2, “Hello") 

End Sub 

Private Function GetFull3tackFramelnfo<ByVal st As StackTrace) As String 
Dim fc As Integer = st.FrameCount 
Dim i As Integer 

’ Duydt qua ede stack frame, belt dau tut thu tuc hidn hinh. Ta phii lay cac 
' frame theo chi sd\ sCf dung phuong thClc GetFrame 
IstStackltems. Items.Clear() 

For i = 0 To fc -1 

IstStackltems.Items.Add( _ 1 

GetStackFramelnfo(st.GetFrame(i))) 

Next i 

End Function 

Private Function GetStackFramelnfo(ByVal sf As StackFrame) As String 
' Tri vS chuSi chita thdng tin cua mdt stack frame >' 

Dim pi As Parameterlnfo 

Dim strParams As Strmg * 

Dim strFileName As String 
Dim i As Integer 
Dim mi As Methodlnto 
Dim typ As Type 
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Dim strOut As String ' = C ' ^ 

mi = CType(sf.GetMethod(), Mothodlnfo) ■«.' 

' r - - Vi ' 

If mi.lsPrivate Then 
strOut &— "Private “ 

Elself mi.lsPublic Then '• - 

strOut &= "Public " 

Elself mi.IsFamily Then 
strOut &= "Protected “ 

Elself mi.IsAssembly Then • -■ 

strOut &= "Friend " ' T 

End If ' -■ 

If mi.lsStatic Then 

strOut &= “Shared " 1 

End If 

strOut &= mi.Name & "(“ 

Dim piList() As Parameterlnfo = _ ' ' 

m 

sf.GetMethod.GetParametersQ 

strParams = String.Empty ' ' S:V 

For Each pi In piList ■ 1 1 ‘ -- sUi 

strParams &= String.Format(", {0} {1} As {2}*, _ 
Mf(pi.ParameterType.lsByRef, "ByRePl "ByVai"), _ :: 

pi.Name, pi.ParameterType.Name) 

Next pi rCt.fC '/V'i ■. tfl 

’ Bd diu \ ” diu tiin qiu n6 tQp tfi . . ■ 

If strParams.Length > 2 Then , i . ; 

strOut &= strParam 9 .Substimjj^ 2 ) ^ . ^ «. 

End ,f "V 

' L£y kiiu tri vS cua mQt thu tyc vi nii nd v£o chuSi kit qui 
typ = mi.ReturnType 
strOut &= *) As " & typ.ToString 
Return strOut 
End Function 
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* ProcExceptionl di qua b6n dp 64biSu diin SiackTrace khi xft ly exception 

Private Sub ProcExceptionl (ByVal x As Integer, ByVal y As Integer) 
ProcException2('Mike", 12) 

End Sub 

Private Sub ProcException2(ByVal Name As String, ByVal Size As Long) 
ProcException3() 

End Sub 

Private Function.ProcException3() As String 
Return ProcException4(“mike® , nicrosoft.co^n , ) 

End Function 

Private Function ProcException4(ByVal EmailAddress As String) As String 
Throw New ArgumentException(This is a fake exception!*) 

End Function 

Private Sub ProcA(ByVal Iteml As Integer, ByRef Item2 As Integer, ByVal Item3 
As String) 

Dim strResults As String = ProcB(String.Concat(ltem1, Item2, Item3)) 

End Sub 

Private Function ProcB(ByVal Name As String) As String 
GetFullStackFramelnfo(New StackTrace()) 

End Function 
- End Class 


73. System Events 

Tim hi£u class System Events, class nky cho ph6p cdc ting dung tirong tdc 
vdi nhieu sir ki£n do h$ thtfng phdt sinh. 


^System Events 


F Screen Changes 
F Time Change* 
r Power Mode Changes 
F User Preference Changes 
F Instated Pont Changes 


System time changed 
System time changed 
System tine changed 
System time changed 
System time changed 
System time changed 


□eat 
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CAc chyfc n&na chfnh: 

Bilu diln n&m sir ki§n c6 sin cua class System Events. M$c dii c6 nhiiu sir 
ki£n hem d£ thuf nhifng chi/cmg trinh nky chi ede sir ki$n c<5 thl dS d&ng ki£m 
tra d ting dung client. 

> Screen changes - Thay d6i dp ph&n giii cua m&n hinh. 

> Time changes - Thay d& ng&y gift h$ thdng. 

> Power mode changes - N£u chay trfcn Laptop, thay ddi trang thdi 
ngudn. 

> User preference changes - Thay ddi bit k$r ciu hinh n&o cua Windows. 

> Installed font changes - Khi font dugc c&i ddt thfem hodc x6a. 

Project: System Events 

frmMaln.vb 

• Option Strict On 
Imports Microsoft.Win32 

• Public Class frmMain 

Inherits System.Windows.Forms.Form 

■ ' Code ph£t sinh form dupe bd qua 

Private Sub btnClear_Click(ByVal sender As System.Object, ByVai e As 
System.EventArgs) Handles btnClear.Click 
IstResults. Items.Clear() 

End Sub 

Private Sub chkFontChanges_CheckedChanged(ByVa! sender As System.Object, 
ByVai e As SysterrcEventArgs) Handles chkFontChanges.CheckedChanged 
If chkFontChanges.Checked Then 
AddHandler SystemEvents.lnstalledFontsChanged, _ 

AddressOf FontHandler 
Else 

RemoveHandler System Events. InstalledFont^Changed, _ 

AddressOf FontHandler 
End If 
End Sub 
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Private Sub chkPowerMode_CheckedChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles chkPowerMode.CheckedChanged 
If chkPowerMode.Checked Then 

AddHandler SystemEvents.PowerModeGhanged, _ 

AddressOf PowerHandler 
Else 

RemoveHandler SystemEvents.powerModeChanged, _ 

AddressOf PowerHandler 
End If 
End Sub 

Private Sub chkScreenChanije!s_CheckedChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
chkScreenChanges.CheckedChanged 

If chkScreenChanges.Checked Then 

AddHandler SystemEvents.DisplaySettingsChanged, _ 

AddressOf ScreenHandler 
Else 

RemoveHandler SystemEvents.DisplaySettingsChanged, _ 

AddressOf ScreenHandler 
End If 
End Sub 

Private Sub chkl imeChanges_CheckedChanged(ByVal sender As System.Object, 
ByVal e As System. EventArgs) Handles chkTirpeChanges.CheckedChanged 
If chkTimeChanges.Checked Then < 

AddHandler SystemEvents.TimeChanged, _ 

AddressOf TimeHandler 
Else 

RemoveHandler SystemEvents.TimeChanged, _ 

AddressOf TimeHandler 
End If 
End Sub 

Private Sub chkl)serPreferences_CheckedChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
chkUserPreferences.CheckedChanged 
If chkUserPreferences.Checked Then 

AddHandler SystemEvents.UserPreferenceChanged, _ 

AddressOf PreferenceChangedHandler 
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Else 

RemoveHandler SystemEvents.UserPreferenceChah^ed, J 
AddressOf PreferenceChangedHandler 

End If Mm***- ' 

End Sub 

Private Sub AddToList(ByVal Text As String) 

IstResults.Items.lnsert(0, Text) 

End Sub 

Private Sub FontHandler<ByVal sender As Object, ByVal e As EventArgs) 

’ Stf dyng class InstalfedFoniCollection de xac djnh danh sich cAc font da cAi ddt 
AddTol_ist(’lnstalled fonts changed.’) 

End Sub 


Private Sub PowerHandler(ByVal sender As Object, ByVal e As 
PowerModeChangedEventArgs) 

‘ e.Mode tr£ vS mdf trong cac gia tri M icrosoft. Win32. PowerModes. Resume, 

' StatusChange, Suspend. ,, 

* Thay doi 1r$ng thai nguSn xiy ra khi doi id pin sang ngudn c£m hoAc til 
' nguon cAm sang pin. 

AddToList(’Power changed to: “ & e.Mode.ToString) 

End Sub 

Private Sub PreferenceChangedHandler(ByVal sender As Object, ByVal e As 
UserPreferenceChangedEventArgs) 

‘ e.Category tra ve mot irong cac gia trj cua Micro$oft.Win32.UserPreferenceCategory 
AddToList(’You changed a setting. “ & e.Category.ToString) 

End Sub 

Private Sub ScreenHandler(ByVal sender As Object, ByVal e As EventArgs) 

’ SCf dung class Screen dS lA'y thdng tin c£u hlnh mAn hlnh 
AddToList(’Screen resolution changed*) 

End Sub 

Private Sub TimeHandler(ByVal sender As Object, ByVal e As EventArgs) 
AddToList(*System time changed’) 

End Sub . 

End Class 
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74. Sti dung class XMLDocument 



Chtfcmg trinh n4y cho th£y edeh tan dung ede di£m manh cua class 


XM&Document. Class ndy dira ra mo hinh dtfi tirgng tdi ligu XML (XML 
Document Object Model), hay DOM, suf dung d£ xuf ly duf li$u XML. 


Cac chufc nanq chinh: 

> Chirong trinh ndy chi edeh sur dung DOM b&ng nhi£u tdc vu khde 
nhau. Danh sdeh ede checkbox li£t kd ede chon lira dl 14m viec vdi ede 
tdi lieu XML, chon checkbox d£ thuc hign cong vige. 

> Khi Form dirge load, n6 kiem tra sir t6n tai cua ba file: simple.xml, 
new.xml vd bad.xml, ndu mot trong ba file khong ton tai thi chircmg 
trinh khdng suf dung dirge. B$ chay dirge chircfng trinh ndy edn ddt ba 
file tr£n (c6 trong cung thir muc cua solution) vdo chung thir muc vdi 
file .exe (bin). 


Project: Xu ly du lieu XML 
frmMaln.vb ■ 

Option Strict On 

' Si? dung d£ truy xu£t nhieu class vS XML 
Imports System.Xml 

' SO dyng de truy xu£t d£n class File dung d£ ki£m tra siJ tSn tai cua file 
Imports System.10 
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Public Class frmMain 
Inherits System.Windows.Forms.Form 

' Cac bien kJu cAc ten file 
Private mstrModifyFile As String 
Private mstrSimpleFile As String 
Private mstrBadFile As String 

' Dung de phAn tAch phAn tiSu dS vdi vAn bin ket quA 

Private mstrLine As New String(System.Convert.ToChar(“="), 35) 

' Cac bien cap Module dS lAm viic vdi DOM 
Private mxDoc As XmlDocument 
Private mxNode As XmlNode 
Private mxNodeList As XmlNodeList 

' String Writer dS xAy dt/ng cac khoi vAn bAn cd cac CRLF (ky tiJ dieu khiSn dong mdi) 
Dim msw As New StringWriter() 

' Cac ienh se chay. Dupe dda vAo ListBox khi Form_Load 
Private Const CMD_LOAD_XML_FILE As String = "Load XML File" 

Private Const CMD_LOAD_XML_STRING As String = "Load XML from String 
Private Const CMD_TEST_FOR_CHILD_NODES As String = _ 

"Tell if a node has children" 

Private Const CMD_ITERATE_ALL_NODES As String = "Iterate through all nodes" 

• Private Const CMD_DETERMINE_NODE_TYPE As String = _ 

"Determine a Node's Type" 

Private Const CMD_LIST_ALL_ELEMENT_NODES As String = _ 

‘Retrieve a list of all element nodes" 

- Private Const CMD_LIST_ELEMENTS„BY_TAG As String = _ 

"Build a list of all nodes that match a specific tag" 
Private Const CMD_SELECT_NODES As String = _ 

"Get nodes by XPatll Expression (selectNodes)" 
Private Const CMD_SELECT_NODE As String = _ 

"Get a node by XPath Expression (selectSingleNode)" 
Private Const CMD_NAVIGATE_RELATED_NODES As String = _ 

"Navigate to Related faodes, Once I've Found a Node?" 
Private Const CMD_RETRIEVE_ATTRIBUTES As String = _ 

■Retrieve Attributes of a Node?" 

Private Const CMD_CREATE_XML As String = "Create XML Programmatically?" 
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Private Const CMD_ADD_OR_DELETE_ELEMENTS As String = _ , 4i ;< 

“Add or Delete Elements?" 

Private Const CMD_ADD_OR_DELETE_ATTRIBUTES As String = _ 

“Add or Delete Attributes?" 

Private Const CMD_MODIFY_ELEMENT As String = _ 

“Modify the Value of an Element Node?" 
Private Const CMD_MODIFY_ATTRIBUTE As String = _ 

"Modify the Value of an Attribute?" 

Private Const CMD__VALID_XML As String = “Tell if I've Loaded Valid XML?" 
Private Const CMD_PARSE_ERRORS As String - _ 

“Determine What Went Wrong if My XML Won't Load?* 

Private Const DEF_XPATH_EXP_FIND_NODES As String = 7/ltem[New]“ 

Private Const DEF_XPATH_EXP_FIND_NODE As String = _ 

“//Department(SName^FruitsT 


‘ Code phat sinh form dUdc bd qua 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
Dim strPath As String 

' Liy dudng din cua cbuong trinh dang ch$y 

strPath = AppDomain.CurrentDomain.SetupInformation.ApplicationBase 

' N6i dudng din vio tin file 
mstrSimpleFile = strPath & “Simple.xml" 
mstrModifyFile = strPath & “New.XML* 
mstrBadFile = strPath & “Bad.xml“ 

Dim blnFileNotFound As Boolean = False 

Dim strMsg As String = “The file '{0}‘ was not found. Please place it in the same 
directory as the application EXE and restart the application." 

* Dim bio li cac file tin lai 
If Not File.Exists(mstrSimpleFile) Then 

MessageBox.Show(String.Format(strMsg, mstrSimpleFile), Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
blnFileNotFound = True 
End If 
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It Not File.Exists(mstrModifyFile) Then 

MessageBox.Show(String.Format(strMsg, mstrModifyFile), Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
blnFileNotFound = True 
End If 

If Not File.Exists(mstrBadFile) Then 

MessageBox.Show(String.Format(strMsg, mstrModifyFile), Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
blnFileNotFound - True 
End If 


' DUa cAc chile n&ng v&o ListBox 
With Me.lstCommands.ltems 

.Add(CMD__LOAD_XML_FILE, False) 

.Add(CMD JLOAD_XML_STRING, False) 
.Add(CMD_TEST_FOR_CHILD_NODES, False) 
.Add(CMDJTERATE_ALL_NODES, False) 
.Add(CMD_DETERMINE_NODE_TYPE, False) 
.Add(CMDJJST_ALL„ELEMENT_NODES, False) 
.Add(CMD_LIST_ELEMENTS_BY_TAG, False) 
.Add(CMD_SELECT_NODES, False) 
.Add(CMD_SELECT_NODE, False) 
.Add(CMD_NAVIGATE_RELATED_NODES, False) 
.Add(CMD_RETR IEVE_ATTR IBUTES, False) 
.Add(CMD_CREATE_XML, False) 
Add(CMD_ADD_OR_DELETE_ELEMENTS, False) 
Add(CMD_MODIFY_ELEMENT, False) 
.Add(CMD_ADD_OR_DELETE_ATTRIBUTES, False) 
Add(CMD_MODIFY_ATTRIBUTE, False) 
.Add(CMD_VALID_XML, False) 

.Add(CMD_PARSE_ERRORS, False) 

End With 

' Chi cho phep chQn trin ListBox n&u ci ba file &6u tSn t$i 
Me.IstCommands.Enabled = (Not blnFileNotFound) 


End Sub 
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Private Sub lstCommands_ltemCheck(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.ItemCheckEventArgs) Handles IstCommands.ltemCheck 

If e NewValue = CheckState.Checked Then 

Me.txtXMLDisplay.Text = String.Empty 
Me.txtXMLEdits.Text = String.Empty 

' String Writer dugc sCf dung t?o chuSi k4t quit 64 hiSn thj 
msw = New StringWriter() 

Select Case Me.lstCommands.ltems(e.Index).ToStrlngO 
Case CM D_LOAD_X ML_FILE 
Me.LoadAndDisplayXMLO 
Case CM D_LOAD_XML_ STRING 
Me.LoadXMLFromString() 

Case CMD_TEST_FOR_CHILD_NODES 
Me.HasAnyChildren() 

Case CMD_ITERATE_ALL_NODES 
Me.lterateThroughNodes() 

Case CMD_DETERMINE_NODE_TYPE 
Me. DetermineNodeType() 

Case C M D_LI ST_ALL_E LEM ENTjvi ODES i 
Me.ListElementNodesO 
Case CMD_LIST_ELEMENTS_BY_TAG 
Me.ListSpecificTagO 
Case CMD_SELECT_NODES 
Me.CreateNodeList() 

Case CMD_SELECT_NODE 
Me. ReferToNode() 

Case CMD_NAVIGAT£_RELATED_NODES 
Me.NavigateToNodes() 

Case CMD_RETRIEVE_ATTRIBUTES 
Me.RetrieveAttributes() 

Case CMD_CREATE_XML 
Me.CreateXML() 

Case CMD_ADD_OR_DELETE_ELEMENTS 
Me.AddDeleteNodeQ 

Case CMD_ADD_OR_DELETE_ATTRIBUTES 
Me.AddDeleteAttribute() 
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Case CMD_MODIFY_ELEMENT 
Me.ModifyElementValueO 
Case CMD_MODIFY_ATTRIBUTE 
Modify AttributeValue() 

Case CMD_VALID_XML 
Me.ChecklfXMLValidO 
Case CMD_PARSE_ERRORS 
Me.GetXMLErrorDetail{) 

End Select 

’ C$p nh$t thanh tryng thai, hien thi lenh cuoi cung dupe chQn 
Me.sblnfo.Text = 'Last run command:" & _ 

Me.lstCommands.ltems(e. Index).ToStringO 
' Giii phdng String Writer 
msw.FlushQ 
msw.Close() 

End If 
End Sub 

Private Sub mnuResetCheckBoxes_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) 

' Phyc vy cho myc dich reset cac checkbox (xoa danh d£u t£t ci checkbox) 

If Me.IstCommands.Checkedltems.Count > 0 Then 
Me.txtXMLDisplay.Text = String.Empty 
Me.txtXMLEdits.Text = String.Empty 

Dim i As integer 

Dim enumRef As (Enumerator 

enumRef = Me.lstCommands.Checkedlndices.GetEnumerator{) 

While Not (enumRef.MoveNextO = False) 
i = Clnt(enumRef.Current) 

Me.lstCommands.SetltemChecked(i, False) 

End While 

End If 
End Sub 
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Private Sub AddDeleteNodeQ 

’ Thu tyc n£y xoa mdt node v£ thim bon node mdi 
Dim xDoc As New XmlDocument() 
xDoc.Load(mstrModifyFile) 

Me.txtXMLDisplay.Text = xDoc.OuterXml 

Dim xNode As XmlNode 
Dim xElmntFamily As XmlElement 
‘ Tim mot node cy the 

xNode = xDoc.SelectSingleNode(7/Family“) 

If Not (xNode Is Nothing) Then 

If TypeOf xNode Is XmlElement Then 

xElmntFamily = CType(xNode, XmlElement) 

End If 

xElmntFamily. RemoveChild(xElmntFamily.SelectSingleNode(‘Father*)) 

' ThSm tCfng node m6t 

lnsertTextNode(xDoc, xElmntFamily, "Person*, “Gerald L. Smith") 

’ InsertTextNode thuc hiin : 

'Set xNode = xDoc.createElement("father”) 

‘xNode.appendChild xDoc.createTextNode("Gerald L. Smith") 

‘xElmntFamily. appendChild xNode 
lnsertTextNode(xDoc, xElmntFamily, "Person", “Sara Ann Smith") 
lnsertTextNode(xDoc, xElmntFamily, “Person", "Richard Andrew Smith") 
lnsertTextNode(xDoc, xElmntFamily, "Person", “Emily Jean Smith") 

xDoc.Save(mstrModifyFile) 

Me.txtXMLEdits.Text = xDoc.OuterXml 
Else 

Me.txtXMLEdits.Text = String.Format("Family Node was not found." & _ 

* Please try the ‘{0}' option first.*, CMD„CREATE_XML) 


End If 
End Sub 
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Private Sub AddDeleteAttributeO 

* ThO tyc nAy xda hSt cAc node con cua node Family vA sau dd cho 
‘ chung vAo iqi kAm vdi m6t s6 Ihudc tinh. Thu tuc nAy cung cho biS't each 
' xit ly cAc thude tinh da tSn tai. 

Dim xDoc As New XmlDocumentQ 

xDoc.Load(mstrModifyFile) 

Me.txtXMLDisplay.Text = xDoc.OuterXml 

Dim xNode As XmlNode 
Dim xElem As XmlElement 

Dim xElmntFamily As XmlElement 

1 77m m$t node cy th£ 

xNode = xDoc.SelectSingleNode(7/Family") 

If Not (xNode Is Nothing) Then 

If TypeOf xNode Is XmlElement Then 

xElmntFamily = CType(xNode, XmlElement) 

End If 

’ X6a tat ca cAc node da t$o 
For Each xNode In xElmntFamily 
xElmntFamily.RemoveChild(xNode) 

Next 

' Thdm cAc node con 
xElem = lnsertTextNode(xDoc, xElmntFamily, “Person", "Gerald L. Smith") 
xEtem.SetAttribute("type", "parent") 
xElem.SetAttribute("age", "70") 

xElem = lnsertTextNode(xDoc, xElmntFamily, “Person", “Sara Ann Smith“) 
xElem.SetAttributepype", "mother") 

xElem = lnsertTextNode(xDoc, xElmntFamily, "Person", _ 

“Richard Andrew Smith") 


xElem.SetAttribute("type", "son") 
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xElem = lnsertTextNode(xDoc, xElmntFamily, “Person", “Emily Jean Smith") 
xElem.SetAttribute(“type\ “daughter") 

' XCt ly cAc thudc tinh. 

xNode = xDoc. Selects ingleNode(7/Person[@ype=‘parent'n 
If Not (xNode Is Nothing) Then 

' Bo thupc tinh "age", vA dSi giA trj cua thudc tinh "type" thanh "father" 
xElem = CType(xNode, XmlElerpent) 
xElem. Attributes. RemoveNamedltem(“age“) 
xElem.SetAttribute(“type“, “father") 

End If 

xDoc.Save(mstrModifyFile) 


Me.txtXMLEdits.Text = xDoc.OuterXml 
Else 

Me.txtXMLEdits.Text = String.Format(“Family Node was not found “ & _ 

“Please try the '{0}' option first/, CMD_CREATE_XML) 


End If 
End Sub 


Private Sub ChecklfXMLValid() 

Dim xDoc As New XmlDocument() 


' NSu file XML (hoAc chuSi chufa n$i dung XML) khdng dung, 

' mdt exception co kiSu XmlException se dt/pc phat sinh 
xDoc.Load(mstrBadFiie) 

' Ta se khdng thay ddng nAy n&u si} dung file khdng dung dinh d$ng 
Me.txtXMLDisplay.Text = “Valid XML File: ‘ & mstrBadFile 


Catch exp As XmlException 

Me.txtXMLDisplay.Text = ‘Invalid XML File: “ & mstrBadFile 
Catch exp As Exception 

MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, 
MessageBoxIcon.Error) 

End Try 
End Sub 




-- ('ruling TVdHiiqut-,- 
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Private Sub CreateNodeList() 

' Khdi tjao XML Document 
Me.LoadXMLFromFile() 

Dim xElem As XmlElement 
Dim strTag As String 

strTag = InputBoxfEnter an XPath expression to find:", _ 

“Enter Search Expression", DEF_XPATH_EXP_FIND_NODES) 
If strTag.Length > 0 Then 

1 Tim m6t nhom cac node dUa tren bieu thdc XPath da co 
mxNodeList = mxDoc SelectNodes(strTag) 

With msw 

.WriteLine("AII text elements matching '{0}':", strTag) 
.WriteLine(mstrLine) 

If Not mxNodeList Is Nothing Then 
For Each xElem In mxNodeList 

WriteLinefName: " & xElem.Name) 

.WriteLine(“lnnerText: “ & xElem.InnerText) 

.WriteLineflnnerXml: “ & xElem.InnerXml) 

Next xElem 
End If 

Me.txtXMLDisplay.Text = ToStringO 
End With 
End If 
End Sub 

Private Sub CreateXMLQ 

' Thu tijc ndy chi each xay ddng mot file XML bhng code 
Dim xDoc As New XmlDocument() 

Dim xPI As XmlProcessinglnstruction 
Dim xComment As XmlComment 
Dim xElmntRoot As XmlElement 
Dim xElmntFamily As XmlElement 


xPI = xDoc.CreateProcessinglnstructionCxmP, “version='1.0"’) 
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xDoc.AppendChiid(xPI) 

xComment = xDoc.CreateComment("Family Information") 
xDoc.AppendChild(xComment) 

xElmntRoot = xDoc.CreateElement("xmr) 
xDoc.AppendChild(xEimntRoot) 

' Thay vi t$o cac node mdi cy the, sit dung AppendChild se tra ve mot tham 
‘ chi£u d4n node mdi vita them vdo 
xElmntFamily = _ 

CType(xElmntRoot.AppendChild(xDoc.CreateElement("Family")), _ 

XmlElement) 

Call xElmntFamily.AppendChild(xDoc.CreateElement( , ‘Father‘')) 

’ Neu file da tdn tai, phitdng thifc Save se ghi chong ISn, do do ta co the 
' xac nhan nhu sau: 

‘If File. Exists(mstrModifyFile) Then 

'If MessageBox.Show(String.Format( n DO you want to overwrite the file {0} ?", _ 
mstrModifyFile), Me. Text, MessageBoxButtons. YesNo, _ 
MessageBoxIcon.Question) = DialogFlesult. Yes Then 
' xDoc.Save(mstrModifyFile) 

‘End If 
‘End If 

xDoc.Save(mstrModifyFile) 

Me.txtXMLDisplay.Text = xDoc.OuterXml 
End Sub 

Private Sub DetermineNodeType() 

’ Khdi tao XML Document 
Me.LoadXMLFromFile() 

' Su dung mot ham de quy de ghe tham ti't ca cac node 
TraverseTreeType(msw, mxDoc, 0) 

Me.txtXMLDisplay.Text = msw.ToString 
End Sub 
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Private Sub GetXMLErrorDetail{) 

Dim xDoc As New XmlDocument() 

Try 

' Neu file XML co l6i thi se ph&t sinh mfyt Exception 
xDoc.Load(mstrBadFile) * 

Me.txtXMLDisplay.Text = “Valid XML-Filtf: * & mstrBadFile 

Catch exp As XmlException 

With msw - 

.WriteLine(exp.Message) ' - 

Me.txtXMLDisplay.Text = .ToString / . ■ 1 
End With . >’ C ■' ; ■ 

Catch exp As Exception *• \ : 

MessageBox.Show(exp.Message, exj3.§ource, MessageBoxButtons.OK, _ 
MessageBoxIcoo.Errof) 

End Try ' C " i 

End Sub > ! 

Private Sub HasAnyChildren() 

Me.LoadXMLFromFile() . h 

Dim tab2x As String = vbTab & vbTab 

' Neu Docement co c&c node con, duy&t qua t£t ci chung 
If mxDoc.HasChildNodes Then 

For Each mxNode In mxDoc.ChildNodes 
With msw 

.WriteLine(mstrLine) 

.WriteLine(*Name: {0}{1}“, tab2x, mxNode.Name) 

WriteLine(*Type: {0){1}“, tab2x, mxNode.NodeType) 

.WriteLine(“Type (String): {0}{1vbTab, mxNode.NodeType.ToStringQ) 
.WriteLinefValue: {0}{1}“, tab2x, mxNode.Value) 

.WriteLine(“Outer XML: {0}{1}“, vbTab, mxNode.OuterXml) 

End With 
Next mxNode 

Me.txtXMLDisplay.Text = msw.ToString() 

End If 
End Sub 
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Private Function lnsertTextNode(ByVal xDoc As XmlDocument, ByVal xNode As 
XmlNode, ByVal strTag As String, ByVal strText As String) As XmlElement 
' ThSm mdt text node lAm node con cua xNode. 

Dim xNodeTemp As XmlNode 
xNodeTemp = xDoc.CreateElement(strTag) 
xNodeTemp. AppendChild(xDoc.CreateTextNode(strText)) 
xNode. AppendChild(xNodeTemp) 

Return CType(xNodeTemp lJ XmlElement) 

End Function 

Private Sub IterateThroughNodesO 
Me.LoadXMLFromFileO 

' SCf dyng h&m d$ quy d£ ghe tham tit ca cac node 
TraverseTree(msw, mxDoc, 0) 

Me.txtXMLDisplay.Text = msw.ToString 
End Sub 

Private Sub ListE!ementNodes() 

Me.LoadXMLFromFileO 
' Tim cdc elements theo tin thi (tag) 

' Vi dy nay t)m tat ci (*) cac element 
mxNodeList = mxDoc.GetElementsByTagName("*“) 

With msw 

.WriteLine("Elements matching ***:“) 

.WriteLine(mstrLine) 

For Each mxNode In mxNodeList 
WriteLine(mxNode.Name) 

Next mxNode 

Me.txtXMLDisplay.Text = .ToStringQ 
End With 
End Sub 

Private Sub ListSpecificTagO 
Me.LoadXMLFromFileO 

Dim strTag As String 
Dim xnt As XmlNode 
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' Him niy cho phip t)m cic element cp thS theo tin tag 
strTag = lnputBox("Enter a Tag to find:", "Enter Tag"; '*") 

It Len(strTag) > 0 Then 

mxNodeList = mxDoc.GetElementsByTagName(strTag) h 
W ith msw 

.WriteLine("AII text elements matching ’{0}‘:*, strTag) 
.WriteLine(mstrLine) 

For Each mxNode In mxNodeList 
For Each xnt In mxNode.ChildNodes 

If xnt.NodeType = XmlNodeType.Text Then 
.WriteLine(mxNode.Name & *;" & xnt.Value) 

End If 
Next xnt 
Next mxNode 

Me.txtXMLDisplay.Text = .ToStringO 
End With 
End If 
End Sub 

Private Sub LoadXMLFromFile() 

' Gpi mdt phiin bin phtfc tap hbn 
Me.LoadXMLFromFile(False) 

End Sub 1 

Private Sub LoadXMLFromFile(ByVal ForceReload As Boolean) 
If ForceReload OrElse (mxDoc Is Nothing) Then 
mxDoc = New XmlDocument() 
mxDoc.Load(mstrSimpleFile) 

End If 
End Sub 

Private Sub LoadAndDisplayXMLQ 
Me.LoadXMLFromFile() 

Me.txtXMLDisplay.Text = mxDoc. OuterXmlQ 
End Sub 
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Private Sub LoadXMLFromStringO 
' T$o mot chudi tuy y c6 cic tag XML 


' Sd dyng class String Writer : 

With msw 

.WriteLine("<xml>") 

WriteLine(“<Family>*) ; i- 1 *" . • 

WriteLine(“ <Parson type='father‘>Gerald L. Smitb«/Person>*) 
.WriteLine(* <Person type='mother>Sara Ann Smtth</Person>") 
.WriteLine(* <Person types'chlltt gand^rs'mald'yRidwd Andrew 
Smith</Person>') , j -"l { ■ -i,yy 

.WriteLineC <Pei«ontypeB‘cJ^d'^eiOdaf^'fefpal0'>Emity dean 
Smith</Person> i ) tvi£. V 

.WriteLine('</Family>“) 

.WriteLine('</xml>*) ; y./>, 

End With 


* 7>o mdt instance XML Document cyqbQ . - .*•> 

Dim xDoc As New XmlDocument() 

' Bao cho trinh phan tich XML dS l?i cic CRLF trong document 
xDoc.PreserveWhitespace = True 
xDoc.LoadXml(msw.ToStrmgO) 

. . i <? ' 

Me.txtXMLDisplay.Text = xDoc.OuterXmK) 

End Sub 

Private Sub ModifyElementValue() 

' Cjio thay each thay dSi mot gi& trj cua m$t element ■. 

Dim xDoc As New XmlDocument() 

xDoc.Load(mstrModifyFile) 

Me.txtXMLDisplay.Text = xDoc.OuterXmi 

Dim xNode As XmlNode 
Dim xElem As XmlElement 

Dim xElmntFamily As XmlElement 
xNode = xDoc.SelectSingleNode(7/Person") 
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If Not (xNode Is Nothing) Then 
xElem = CType(xNode, XmlElement) 

' Doi "Gerald L. Smith" thanh "Jerry Smith " 
xElem.InnerText = "Jerry Smith" 


Me.txtXMLEdits.Text = xDoc.OuterXml 
Else 

Me.txtXMLEdits.Text = String. FormatfFamily Node was not found. " & _ 

"Please try the '{0}' option first.", CMD_CREAT£_XML) 

End If 


End Sub 


Private Sub ModifyAttributeValueQ 

‘ Thay doi cac gia tri cua ca thudc tinh 
Dim xDoc As New XmlDocument() 

xDoc.Load(mstrModifyFile) 

Me.txtXMLDisplay.Text = xDoc.OuterXml 

Dim xNode As XmlNode 
Dim xElem As XmlElement 

For Each xNode In xDoc.SelectNodes('7/Person“) 
xElem = CType(xNode, XmlElement) 

Select Case xElem.GetAttribute("type") 

Case “father" 

xElem.SetAttribute( B type u , "parent") 
xElem.SetAttribute(“gender'\ “male") 

Case “mother" 

xElem.SetAttributeftype", “parent") 
xElem.SetAttributefgender", "female") 

Case "son" 

xElem.SetAttribute(“type“, “child") 

■ xElem.SetAttribute("gender“, “male") 
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Case “daughter" 

xElem.SetAttribute(“type\ “child") 
xElem.SetAttribute(“gender“ > “female") 

End Select 
Next 

Me.txtXMLEdits.Text - xDoc.OuterXml 
End Sub 

Private Sub NavigateToNodesO 
Me.LoadXMLFromFileO 

Dim xElem As XmiElement 
Dim xnodTemp As XmlNode : 

*■:« 

' In ra tdn cua m6i phin tti mdi 
mxNodeList = mxDoc.SelectNodes(*//New") 

If Not (mxNodeList Is Nothing) Then 
With msw 

.WriteLine(“AII New Items:*) 

.Writeline(mstrLine) 

For Each mxNode In mxNodeList 

xnodTemp = mxNode.ParentNode.SelectSingleNode("Name“) 
If Not (xnodTemp Is Nothing) Then 

If TypeOf xnodTemp Is XmiElement Then 
xElem = CType(xnodTemp, XmiElement) 
.WriteLine(xElem.lnnerText) 

End If 
End If 

Next mxNode 

Me.txtXMLDisplay.Text = .ToStringO 
End With 
End If 
End Sub 

Private Sub ReferToNode() 

Me.LoadXMLFromFileO 
Dim xElem As XmiElement 
Dim strTag As String 
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strTag = InputBoxfEnter an XPath expression tp find:", _ 

“Enter Search Expression", DEF_XPATH__EXP_FIND„NODE) 
If strTag.Length > 0 Then 
With msw 

WriteLinefAII elements matching '{0}':", strTag) 

WriteLine(mstrLine) 

mxNode = mxDoc.SelectSingleNode(strTag) 

If Not (mxNode Is Nothing) Then 

If TypeOf mxNode Is XmlElement Then 
xElem = CType(mxNode, XmlElement) 

WriteLine(xElem.lnnerText) 

End If 
End If 

Me.txtXMLDisplay.Text = .ToString() 

End With 
End If 
End Sub 

Private Sub RetrieveAttributes() 

Me.LoadXMLFromFile() 

Dim xAttr As XmlAttribute 
Dim xTmpNode As XmlNode 

With msw 

mxNodeList = mxDoc.SelectNodes(7/ltem") 

If Not (mxNodeList Is Nothing) Then 
.WriteLinefAII Item Attributes:") 

WriteLine(mstrLine) 

For Each mxNode In mxNodeList 

.WriteLine(“{0} ({t})“, mxNode.Name, mxNode.InnerText) 

For Each xAttr In mxNode.Attributes 

.WriteLinef (0}: {1}", xAttr.Name, xAttr.Value) 

Next 
Next 
End If 



.WriteLine() 

.WriteLine() 



mxNodeList = mxDoc.SelectNodes(7/Department“) 

If Not (mxNodeList Is Nothing) Then 
.WriteLineCDepartments:") 

.WriteLine(mstrLine) 

For Each mxNode In mxNodeList 

xTmpNode = mxNode. Attributes. GetNamedltem("Name'’) 

If Not (xTmpNode Is Nothing) Then 

xAttr = CType(xTmpNode, XmlAttribute) 

.WriteLine(xAttr.Value) 

End If 
Next 
End If 

Me.txtXMLDisplay.Text = .ToStringO 
End With 
End Sub 

Private Sub TraverseTree(ByVal sw As StringWriter, ByVal xNode As XmlNode, 
ByVal intLevel As Integer) 

Dim xNodeLoop As XmlNode 

‘ In ra ten node cua node hien hanh 

Dim s As New String(System.Convert.ToChar(vbTab), intLevel) 
sw.WriteLine(s & xNode.Name) 

' Neu node hien hanh co cac node con, g<?i lai thu tyc nay va truyen node con vdo. 
If xNode.HasChildNodes Then 

For Each xNodeLoop In xNode.ChildNodes 
Call TraverseTree(sw, xNodeLoop, intLevel + 1) 

Next xNodeLoop 
End If 


End Sub 
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Private Sub TraverseTreeType(ByVal sw As StringWriter, ByVal xNode As 
XmlNode, ByVal intLevel As Integer) 

Dim xNodeLoop As XmlNode 

' In ten node cua node hien hanh 

Dim s As New String(System.Convert.ToChar(vbTab), intLevel) 

Dim strValues() As String = {s, xNode.Name, xNode.NodeType.ToStringO) 
sw.Wri1eLine("{0}{1} ({2})", strValues) 

If xNode.HasChildNodes Then 

For Each xNodeLoop In xNode.ChildNodes 

Call TraverseTreeType(sw, xNodeLoop, intLevel + 1) 

Next xNodeLoop 
End If 
End Sub 
• End Class 

75. Si jt dung [GDI+] Pen 

Chifong trinh nay cho biet nhieu tinh nang chinh cua d6i ttfgng Pen khi 
suf dung GDI+. 



> Ngufti suf dung c6 thi chon mot s 6 cdc tham so khdc nhau d£ diiu khiln 
cdch ve cua Pen. 








700 


Tor-- 

> Sau mdi lan chon, mot nh6m cdc during th&ng dtfoc ve lai dl th£y l&c 
dung. 

Mot so tinh n&ng cao c£p gom: 

> Thiet lap doi tirong Pen tren doi tuong Brush d£ c6 th£ ve cdc dirtmg 
thing cao c£p. 

> L&m hoat hinh mot dirdng dut n6t. 

> Thay doi do rong cua Pen d£ trbng gilng but viet. 

Project: Sung dung [GDI+] Pen 

frmMain.vb 

Option Strict On 

Imports System.Drawing.Drawing2D 

Public Class brnMain 

Inherits System.Windows.Forms.Form 

‘ Khai bao cac bien cdn thiet 
Dim m_Pen As New Pen(Color.Black) 

Dim m_penColor As Color = Color.BurlyWood 

Dim m_penBrush As Brush = New SolidBrush(Color.Black) 

Dim m_BlackThinPen As New Pen(Color.Black) 

Dim graphic As Graphics 

1 Code phat sinh form dUdc bo qua 

' Dung 64 b$t ho&c tat Timer tht/c hiSn hogt hinh 

Private Sub btnCycle_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCycle.Click 
timerCycle. Interval = 333 
timerCycle.Enabled = Not timerCycle. Enabled 
If timerCycle.Enabled Then 
btnCycle.Text = “Stop I" 

Else 

btnCycle.Text = “Animate" 

End If 
End Sub 




— Coding Technique- 
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' Thu tuc nay chon mau dua tren m&u do ngUdi sit dung chQn til ColorDialog 
Private Sub btnSetColor_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSetColor.Click 
Dim cdlg As New ColorDialogO 

If cdlg.ShowDialogf) = DialogResult.OK Then 
m_penColor = cdlg.Color 
txtColor.Text = cdlg.Color.ToString() 
txtColor.BackColor = cdlg.Color 
End If 
End Sub 

Private Sub frmMainJ_oad(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

Dim i As Integer 

' ThiSt lap cdc ComboBox trdn form 
' StartCap 

comboStartCap. Items. Add(UneCap.DiamondAnchor) 
com bo StartCap. Items. Add(LineCap.ArrowAnchor) 
comboStartCapltems.Add(LineCap.DiamondAnchor) 
comboStartCap. Items. Add(LineCap. Flat) 
comboStartCap. Items.AddfLineCap. Round) 
comboStartCap Items.Add(LineCap.RoundAnchor) 

' EndCap 

comboEndCap. Items. Add(LineCap.DiamondAnchor) 
comboEndCap. Items. Add(LineCap.ArrowAnchor) 
comboEndCap.Items.Add(LineCap. Diamond Anchor) 
comboEndCap. Items.AddfLineCap. Flat) 
comboEndCap. Items.AddfLineCap. Round) 
comboEndCap. Items.AddfLineCap.Round Anchor) 

' Dash Cap 

comboDashCap. Items. AddfDashCap. Flat) 
comboDashCap. Items. AddfDashCap.Round) 
comboDashCap. Items. AddfDashCap.Triangle) 
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‘ Line Join 

comboLineJoin. Items. Add(LineJoin.Bevel) 
comboLineJoin. Items. Add(LineJoin. Miter) 
comboLineJoin. Items. Add(LineJoin.MiterClipped) 
comboLineJoin.Items. Add(LineJoin.Round) 


' Line Style ,l V ’ 

comboLineStyle. Items. Add (Dash Style. Solid) ’ A 

comboLineStyle.ltems.Add(DashStyle.Dash) ‘ - 

comboLineStyle. Items. Add(DashStyle.QashDot) 
comboLineStyle.Items.Add(DashStyle.DasKDolDot) 
comboLineStyle.Items. Add(DashStyle.Dot) . <■ 

comboLineStyle.ltOms.'AcW(DaaftSt^l&GUStorift) : r 7 i :- 

'Alignment 

comboAlignment.ltems.Add(PenAlignment.Center) ' 

comboAlignment. Items. Add(PenAlignment.lnset) 
comboAlignment.ltems.Add(PenAlignment.Left) 
comboAlignment. Items. Add(PenAlignment. Outset) 
comboAlignment. ltems:Add(P6nAlignment.Right) 

End Sub 

Private Sub radioColor_CheckedChanged(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles radioColor.CheckedChanged 
txtColor. Enabled = radioColor.Checked 
btnSetColor.Enabied = radioColor.Checked 
comboBrush.Enabled = radioBrush.Checked 
End Sub 

' Thu tuc nay thu thap tat ca thdng tin do ngUdi sti dung chon va sti dung cac 
' thong tin nay de tao mot doi tUong Pen. 

■* Private Sub RedrawPicture(ByVal sender As System.Object, ByVal e As 
System.EventArgs) _ 

Handles MyBase.Activated, comboShape.SelectedlndexChanged, _ 
updownWidth.ValueChanged, txtColor.TextChanged, _ 
comboAlignment.SelectedlndexChanged, _ 
comboStartCap.SelectedlndexChanged, _ 
comboEndCap.SelectedlndexChanged, _ 



comboDashCap.SelectedlndexChanged, _ 
comboLineJoin.SelectedlndexChanged; _ 
comboLineStyle.SelectedlndexChanged,, 
updownMiterLimit.ValueChanged, _ 
comboTransform.SelectedlndexChanged, 
comboBrush.SelectedlndexChanged 


' Reset Picture Box 

pbLines.CreateGraphics().CIear(pbUnas.Backpolpr) 
pbLines.RefreshQ , ,, ‘ . 

’ Bo tat ca cac bien d6i tren Pan . , : - , 

m .Pen.ResetTransform() . .. 

' Chon DashPartem de dyng neti Ghgn Lipa SjyteJA Custom 
m__Pen.DashPattern = New Ringlet) ^5.,0.25, 0"7.5 A 1 


■e ;• 


1 Mot doi tudng Pen thudngk£t vdi m$[ d6i.MbOp QqtprhoAc Brush. 
If radioColor.Checked Then ' . 


A.*? 


m_Pen.Color = m_penColor 
Else 

Select Case comboBrushText 

Case “Solid* . u ... .. 

’ Tuong W nhu gdn Color choPpn * 

m„penBrush = New Solidf rush(m_penColor) 

Case “Hatch* ... . 

* Dinh nghia mot HatchBrush se sit dong, ta sCt dgng Plaid 
m_penBrush = New HatchBrush(HatchStyle. Plaid, m_ppnColor) 
Case “Texture" 


' Si/ dung mot hinh inh lam Brush 
m_penBrush = New TextureBrush( _ 

New Bitmapf.AWaterl_ilies.jpg"), WrapMo.de.Tile) 


Case "Gradient" 


1 Co the sd dung cac Gradient Brush khac 6 day 
m_penBrush = New LinearGradientBrush( _ 

New Point(0, 0), _ 

New Point(pbLines.Width, pbLines.Height), _ 
Color.AliceBlue, Color.DarkBlue) 

End Select 

m_Pen.Brush = m_penBrush 
End If 
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’ Gan cac gia tri do ngudi stir dpng cfrpn vdo diituqng Pen 
' Be rpng cua Pen, tlnh being pixel 
m_Pen. Width = updownWidth.Vdlue ' l 

‘ DashStyle quyit djnh kiiu cua dudng tiring 

m_Pen.DashStyle = CType(cornboLrneStyle,Selectedltem, DashStyle) 

' MiterLimit quyit djnh khi ndo cdccanh d gdc di/g'c cit. Mac nhien la 10.0 
m_Pen.MiterLimit = updownMitertimit. Value 
' StartCap quyit djnh kiSu cua diu bit diu cua dudng thing 
m_Pen.StartCap = CType(comboStartCap.Selectedltem, LineCap) 

’ EndCap quyet djnh kiiu da did kit thuc cua dudng thing 
m_Pen.EndCap - GTy^ffeomfeoElltftCap.Selectedltem, LineCap) 

' DashCap quySt djnh ktiu cua hai diu cua dudng gach tren dudng thing 
m^Pen.DashCap = CType(comboDashCap. Selected Item, DashCap) 

’ Line Join quyet djnh kiiu §tao ctiahai dudng thing 
m_Pen.LineJoin = CType(comboLineJoin.Selectedltem, LineJoin) 

m_Pen.Alignment = CType(comboAlignment.Selectedltem, PenAlignment) 

' Transform dUdc suf dung cho mQt si tinh ndng cao cip. Vi dp, tao Pen giong but ve 
Select Case comboTransform.Text 
Case “None' 1 

m_Pen.ResetTransform() , 

Case "Scale" 

' ScaleTransform thay dii be rdng vd chieu cao cua Pen 
m_Pen.ScaleTransform(0.5, 2) 

Case "Rotate" 

' RotateTransform xoay Brush theo mdt gdc tinh bang do 
m_Pen.RotateT ransform(45) 

Case "Translate" 

' TranslateTransform dtch Brush 
m_Pen.TranslateTransform(2, 4) 

End Select 

graphic = pbLines.CreateGraphicsQ 

If Me.comboShape.Text = “Lines" Then 
’ Ve ba dudng cd ban 
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' Ve theo cac thdng so dupe chon 
graphic.DrawLine(m_Pen, 35, 35, pbLines.Width - 35, 35) 
graphic.DrawLine(m_Pen, 35, 80, 35, pbLines.Height - 35) 
graphic.DrawLine(m_Pen, 90, 90, pbLines.Width - 35, _ 
pbLines.Height - 35) 

' Ve vdi pen mdu den 

graphic.DrawLine(m_BiackThinPen, 35, 35, pbLines.Width - 35, 35) 
graphic.DrawLine(m_BlackThinPen, 35, 80, 35, pbLines.Height -35) 
graphic.DrawLine(m_BlackThinPen, 90, 90, pbLines.Width - 35, _ 
pbLines.Height - 35) 

Elself Me.comboShape.Text = "Intersecting Lines" Then 
' Ve mot ditdng kSt hop 

' Ve mdt ditdng phitc tap sut dpng mot m&ng cAc Point. 

' Vdi mang nAy ta chi co hai diu cua dUdng ve. 

Dim ptArray{5) As PointF 

ptArray(O) = New PointF(35, 35) 

ptArray(l) = New PointF(70, pbLines.Height - 75) 

ptArray(2) = New PointF{100, 35) 

ptArray(3) = New PointF(pbLines.Width - 40, pbLines.Height \ 2) 
ptArray(4) = New PointF(pbLines.Width \ 2, pbLines.Height \ 2) 
ptArray(5) = New PointF(pbLines.Width - 25, 25) 

' Ve dUdng theo thong so Pen dupe chQn 
graphic.DrawLines(m_Pen, ptArray) 

' Ve ditdng sit dung Pen mau den 
graphic.DrawLines(m_BlackThinPen, ptArray) 

Elself Me.comboShape.Text = "Circles and Curves" Then 
’ Ve mot vong cung va mot vdng tron 

graphic.DrawEllipse(m_Pen, 25, 25, 200, 200) 
graphic.DrawArc(m_Pen, 55, 55, pbLines.Height - 55, _ 
pbLines.Height - 55, 110, 150) 


graphic.DrawEllipse(m_BlackThinPen, 25, 25, 200, 200) 
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graphic.DrawArc(m_BlackThinPen, 55, 55, pbLines.Height - 55, 
pbLines.Height - 55, 110, 150) 


End If 
End Sub 


' Lam boat hinh cho cac dtfdng ve bkng ckch ting gii fry cua DashOffset 
Private Sub timerCycle_Tick(ByVal sender As System.Qtaject, ByVale As 
System.EventArgs) Handles timerCycle.Tiek 

m_Pen.DashOffset = (m_Pen.DashOffset-t0.5F) Mad 30 
RedrawPicturefMe, New System.EventArgsO) 

End Sub 
End Class 


76. Ttfdng tac vdti. Windows Service 

Chifong trinh nky cho thffy cdch diiu khi$n m0t Windows Service da dirge 


Ccii d&t. 


T Udng tic vdi Windows Seryn.e 




| Service Name 

Display Nome - 

iStitfu* 

: Alerter 

Alerter 

Running 

_Jalg 

Application Layer Gat 

Stopped 

AppMgmt 

Application Managem Running 

■ ft '■ ;-pw.t 1 AS - f JE T 3* \ Stri pned 

lAudioSrv 

Windows Audio 

Running 

BITS 

Background Inteiligen 

Stopped 

j Browser 

Computer Browser 

Running 

icisvc 

Indexing Service 

Stopped 

iCIipSrv 

ClipBook 

Stopped 


Selected Service; |aspnet_stnte 


Start 


Refresh 

Services 


Close 

Application 


Minimize 
Application 1 


Service Status: Stopped 


Cac chufc nanq chmh: 

> ChiTcfng trinh nay liet ke tat ck vk cho phip dieu khien bat ky 
Windows Service nao da dirge cai d&t tren mdy cue bo. Bao gom ede 
chifc n&ng Start, Stop, Pause vk Continue. Ngoai ra, chircfng trinh cbn 
bieu diln edeh tao mot trinh dieu khiin Service giong nhir SQL Server 
Service Manager. Chdc n&ng n&y suf dung ckc control Notify Icon vk 
ContextMenu. 
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Project: Tuong tac voi Windows Service 
frmMain.vb 

Option Strict On 

* Phii cd thorn chieu den " System.ServiceProcess.dll" 

' Nhi'n chuot phii vao References trong Solution Explorer de them tham chiS'u 
Imports System.ServiceProcess 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Bien de lUu Service dUdc chon 
Dim m_SelectedService As ServiceController 
’ Bien kfu ten cua Service dupe chQn 

Dim m_SelectedServiceName As String = "No Service Selected" 

’ Bdi vi nut X cua form dUOc ding dS thu nhd form (Minimize), dS tr&nh viec dong 
' td nut X ta sii dung biSn cd dS thdng bio cho Cing dung bid't li ta sCr dung 
' Button "Close Application" de thoat Clng dung. 

Dim mJsCloseButtonPushed As Boolean = False 

Friend WithEvents btnStop As System.Windows.Forms.Button 
Friend WithEvents btnContinue As System.Windows.Forms.Button 
Friend WithEvents btnPause As System.Windows.Forms.Button 
Friend WithEvents sbrServiceStatus As System.Windows.Forms.StatusBar 
Friend WithEvents btnStart As System.Windows.Forms.Button 
Friend WithEvents grdServices As System.Windows.Forms.DataGrid 
Friend WithEvents txtSelectedService As System.Windows.Forms.TextBox 
Friend WithEvents tmrCheckStatus As System.Windows.Forms.Timer 
Friend WithEvents btnRefreshServices As System.Windows.Forms.Button 
'Friend WithEvents cmnuServiceStatus As System.Windows.Forms.ContextMenu 
Friend WithEvents nicoSvcMgrApp As System.Windows.Forms.Notifylcon 
Friend WithEvents miServiceName As System.Windows.Forms.Menultem 
Friend WithEvents miLineBreakl As System.Windows.Forms.Menultem 
Friend WithEvents miStart As System.Windows.Forms.Menultem 
Friend WithEvents miPause As System.Windows.Forms.Menultem 
Friend WithEvents miContinue As System.Windows.Forms.Menultem 
Friend WithEvents miStop As System.Windows.Forms.Menultem 
Friend WithEvents miLineBreak2 As System.Windows.Forms.Menultem 
Friend WithEvents miSelectService As System.Windows.Forms.Menultem 
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Friend WithEvents btnCIoseApp As System.Windows.Forms.Button 
Friend WithEvents btnMinimizeApp As System.Windows.Forms^Button 
Friend WithEvents IbISelectedService As System.Windows.Forms.Label 
Friend WithEvents mnuExitApp As System.Windows.Forms.Menultem 


Code phat sinh form dt/dc bd qua 

' Thu tuc nky dung dS thoit Cfng dyng khi nhSn nut"Close Application" 

Private Sub btnCloseApp_Click(ByVai sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCIoseApp.Click " ; r 

mJsCloseButtonPushed = True 

Me.Close() ; 7 '] i'C ' 

End Sub j '' ... "^ . 

' Thu tyc niy ra l$nh service 1ii‘p tyc hoyt dQng (Cobtmu^eir 
' Chu y: xii ty cho ci Button v&Mpnutiem y' : 

Private Sub 



UpdateSefyicerStatUS^} 

End Sub 
’ Minimize 

Private Sub.btnMt^imj2b'#i^J|tlibK^y^ ‘. ByVal 

System. EventArgs) Handles btnM into tee A^piCHefc 
Me.WindowState = For mWindowS tate. Minim ized 

End Sub ; . : ’fvCC 


\-<y • w -j£ A $ ■ .&•. f •.' *f % >•, = ' :»** 

] cQa.$dfi^' ! Mnd^r' : V* >■ • '• 

,N '4->. * Jr * '*V*' V* A 'y .- .. /... " ./c ' 


e As 


' Ra linh cho service t$m dtfng (Pause) > : . 

Private Sub btnPause_Cllck(ByVal sender As System .Object, ByVal e As 
System.EventArgs) Handles btnPause.Ciick, miPause.Ciick 
m_SelectedService.Pause() 

UpdateServiceStatusO 
End Sub 


' Ra lenh cho service dClng hin (Stop) 

Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handies btnStop.Click, miStop.Click 
m_SelectedService.Stop() 

UpdateServiceStatusO 
End Sub 
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* Ra lenh cho service hoat ddng (Start) 

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnStart.Click, miStart.Click 
m_SelectedService.Start() 

UpdateServiceStatusO 
End Sub 

1 Thu tyc nay sti dgng d£ tim cac Service da dugc cii dit, vi ip cho DataGrid 
' cip nhat thdng tin mdi nhat. 

Private Sub btnRefreshServices_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnRefreshServices.Click 
grdServices.DataSource = GetServicesTableQ 
grdServices.Refresh() 

End Sub 

’ Thu tyc n&y bio dim li Menuttem diu tiin li ten cCta Service difQc chQn 
Private Sub cmnuServiceStatus_Popup(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles cmnuServiceStatus.Popup 

Me.cmnuServiceStatus.Menultems(0).Text = Me.m_SelectedServiceName 
End Sub 

’ XCt ly cho si/ kien Closing (khi nhin nut X) 

Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As 
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing 
If Not m JsCloseButtonPushed Then 

Me.WindowState = FormWindowState. Minimized 
e.Cancel = True 
End If 
Enb Sub 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

grdServices.PreferredColumnWidth = grdServices.Width \ 4 
' Li'y cac Windows Service va hien thj chung trin DataGrid 
grdServices.DataSource = GetServicesTable() 
grdServices. Refresh<) 

' Cho timer hoat ddng de no c$p nhat thdngtin theo thdi gian 
tmrCheekStatus.Enabled = True 


End Sub 
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' Xac dinh Service do ngi/di stir dgng chon vd gan nd vdo bid'n Service dUOc chon 
Private Sub grdServices_MouseDown(ByVal sender As Object, ByVal e As 
System.Windows.Forms.MouseEventArgs) Handles grdServices.MouseDown 

' Tao mot biS'n HitTestlnfo de xac dmh dong dupe chQn 
Dim hit As System.Windows.Forms.DataGrid.HitTestlnfo = _ 
grdServices.HitTest(e.X, e.Y) 

' Tim service di/a trSn dong diipc ch<?n 
If hit.Row >= 0 Then 

Me.grdServices.Select(hit.Row) 

m_SelectedServiceName = Me.grdServlces.ltem(hit.Row; 0).ToString() 
Refresh SelectedServiceQ 
UpdateServiceStatusO 
End If 
End Sub 

’ Hi&n thj cufa s<5 chlnh khi ngitdi set dgng chQ Service trong ContextMenu 
Private Sub miSelectService_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles miSelectService.Click 
Me.WindowState = Form WindowState.Normal 
End Sub 

1 Hien thj cita so chinh khi ngitdi sit dgng nhdp dup vdo Notifylcon 
Private Sub nicoSvcMgrApp_DoubleClick(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles nicoSvcMgrApp.Doubleclick 
Me.WindowState = FormWindowState.Normal 
End Sub 

' Thu tgc ndy c$p nhat thong tin sau mdi 1/2 gidy 

Private Sub tmrCheckStatus_Tick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles tmrCheckStatus.Tick 
RefreshSelectedServiceO 

UpdateServiceStatusO 
End Sub 

Private Sub mnuExitApp_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuExitApp.Click 
Application.Exit() 

End Sub 
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* Ham nay tao mot DataTable de kiu ti't ca cac Windows Service trSn may t(nh 
Private Function CreateDataTable() As DataTable 

Dim myTable As New DataTablefWindowsServiceTable") 

Dim myColumn As DataColumn 
Dim typeString As Type = “".GetTypeQ 

’ Tao cac cdt cdn thid't 

myTable.Columns.Add("Service Name", typeString) 
myTable.Columns.Addf Display Name", typeString) 
myTable.Columns.Addf Status", typeString) 

Return myTable 

End Function * 


’ Ham nay tra ve mot DataTable da chita thdng tin tat ci ckc Service 
Private Function GetServicesTable() As DataTable 
Dim myTable As DataTable 
Dim myServicesArrayQ As ServiceController 
Dim myService As ServiceController 
Dim myRow As DataRow 

myTable = CreateDataTable() 

’ Lay mot ming chtla tat ca Service da cki dit tren may tinh eye b$ 
myServicesArray = ServiceController.GetServices() 

’ Cho thdng tin ctia cac Windows Service vko DataTable 
For Each myService In myServicesArray 
myRow = myTable. NewRowQ 

myRow.ItemfService Name") = myService.ServiceName 
myRow.ltem(“Display Name") = myService.DisplayName 
myRow.ltem(“Status") = myService.Status.ToStringO 

myTable.Rows. Add(myRow) 

Next 


1 Tra ve bing da co dd lieu 
Return myTable 
End Function 
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Private Sub RefreshSelectedService() 

Dim installedServices() As ServiceController 
Dim tmpService As ServiceController 
Dim isServicelnstalled As Boolean = False 
Dim i As Integer = 0 

Me.tmrCheckStatus. Enabled = False 

' Ldy danh s£ch cua c&c service dang cd 
installedServices = ServiceController.GetServicesO 

For Each tmpService In installedServices 

If tmpService.ServiceName = m_SelectedServiceName Then 
isServicelnstalled = True 
m_S elec ted Service ;= tmpService 
End If 

Next tmpService 

Me.tmrCheckStatus. Enabled = True 
End Sub 

' Thu tuc n&y c$p nh$t l$i tr$ng th&i cpa cic control, ngo$i trif DataGrid 
Private Sub UpdateServiceStatus() 

Me.tmrCheckStatus.Enabled = False 

If Not (m_SelectedService Is Nothing) Then 
RefreshSelectedService() 

Select Case m_SelectedService.Status 
Case ServiceControllerStatus.Stopped 
Me.btnContinue.Enabled = False 
Me.btnPause. Enabled = False 
Me.btnStart. Enabled = True 
Me. btnStop. Enabled = False 
Me.miContinue.Enabled = False 
Me.miPause.Enabled = False 
Me.miStart.Enabled = True 
Me.miStop.Enabled = False 
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Case ServiceControllerStatus.Running 
Me.btnContinue.Enabled = False 
If m_SelectedService.CanPauseAndContinue Then 
Me. btnPause. Enabled = True 
End If 

Me.btnStart. Enabled = False 
Me.btnStop.Enabled = True 
Me.miContinue.Enabled = False 
If m_SelectedService.CanPauseAndContinue Then 
Me.miPause.Enabled = True 
End If 

Me.miStart.Enabled = False 
Me.miStop.Enabled = True 

Case ServiceControllerStatus.Paused 

If m_SelectedService.CanPauseAndContinue Then 
Me.btnContinue.Enabled = True 
End If 

Me.btnPause.Enabled = False 
Me.btnStart.Enabled = False 
Me.btnStop. Enabled = True 

If m_SelectedService.CanPauseAndContinue Then 
Me.miContinue.Enabled = True 
End If 

Me.miPause.Enabled = False 
Me.miStart.Enabled = False 
Me.miStop.Enabled = True 
Case Else 

' TrUdng hpp ndy xiy ra khi m$t thao \kc dang tht/c hien. Trong 
' tn/dng hgp ndy khdng cho ngUdi s£f dyng Idm gi ci 
Me.btnContinue.Enabled = False 
Me.btnPause.Enabled = False 
Me.btnStart.Enabled = False 
Me.btnStop. Enabled = False 
Me.miContinue.Enabled = False 
Me.miPause.Enabled = False 
Me.miStart.Enabled = False 
Me.miStop.Enabled = False 
End Select 
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1 Xu at thong tin trang thai ra Status Bar 
Me.sbrServiceStatus.Text = "Service Status: " + _ 
m_SelectedService.Status.ToStringO 

Else 

’ Service khdng ch$y dt/dc ' 

Me. btnContinue. Enabled = False 
Me.btnPause.Enabled = False 
Me.btnStart. Enabled = False 
Me.btnStop.Enabled = False 
Me.miContinue.Enabled = False 
Me.miPause.Enabled = False 
Me.miStart.Enabled = False 
Me.miStop.Enabled = False 
End If 

’ Dua tSn cua service di/gc chQn v&o TextBox 
Me.txtS elected Service.Text = m_SelectedServiceName 
Me.tmrCheckStatus. Enabled = True 
End Sub 
- End Class 


77. Xtf ly hinh anh vdri GDI+ 


Chitting trinh nay cho biet c&ch xuf ly cac hinh anh b&ng each suf dung 
GDI+. 


I Sue Mode 

‘ 

^ StreJcHmw 

Save Ae. | - r AutoSire Carted mage 

f** ThumbnJ 

Rotate Left | Rotate Right | 


Zoow In | Zoom CkX | fit | 

’ Croppbs .j 

x [o Y.Io— w|— n|— ; 

Shoo Bon | Crop | | j 
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Cac chufc nanq chinh: 

> Chon, m<3r vh hien thi hinh dnh v&o mot PictureBox. 

> Gdn thuoc tlnh SizeMode cua PictureBox. 

> Phong to vk thu nh6, vk dinh klch thudc hinh dnh vita b&ng 
PictureBox. 

> Quay hinh dnh sang trdi, sang phai mot g6c 90°. 

> C^t hinh anh. 

> Lifu hinh anh trong PictureBox v&o mot file, c& kich thiidc binh thirtmg 
vk Thumbnail (hinh &nh nho). 


Project: Xu ly hinh anh voi GDI+ 

frmMain.vb 

Option Strict On 

Imports System.Drawing.Imaging 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code phat sinh form dupe bd qua 

Const PlCTUREBOX_WIDTH As Int32 = 608 
Const PICTUREBOX_HEIGHT As Int32 = 380 
Const THUMBNAIL_MIN_SIZE As Int32 = 64 
Private IsFitForZoomln As Boolean = False 
Private imgUndo As Image 
Private intVal As Int32 

* Chon hinh anh vk hi£n thj trong PictureBox 

Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnBrowse.Click 
With odlglmage 

.InitialDirectory = “C:\“ 

.Filter = “All Image Formats (Vbmp;*.jpg;’.jpeg;*\gif;*.tif)r & _ 
“’.bmp;‘.jpgi*.jpeg;*.gif;*.tiflBitmaps (*.bmp)l*.bmpl" & _ 

“GIFs (*.gif)l*.giflJPEGs (*.jpg)r.jpg;*.jpeglTIFs (*.tif)l*.tif“ 
.Filterlndex = 1 


End With 
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' Khi ngUdi si dung nhan Open, hien thj hinh inh trong PictureBox va 
' dddng din day du cua h)nh inh. 

If odlglmage.ShowDialogO = DialogResult.OK Then 
With piclmage 

' Gii7 nguyen kich thudc cua PictureBox 
.Width = PICTUREBOX J/VIDTH 
.Height = PICTUREBOXJHEIGHT 
Image = Image.FromFile(odlglmage.FileName) 

SizeMode = PictureBoxSizeMode.Normal 
End With 

optNormal.Checked = True 
End If 
End Sub 

' Xi ly nut Fit 

Private Sub btnFit_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnFit.Click 
grpSizeMode.Enabled = True 

With piclmage 

.Width = P!CTUREBOX_WIDTH 
.Height = PICTUREBOXJHEIGHT 
.SizeMode = PictureBoxSizeMode.Stretchl mage 
End With 

' Cap nh$t giao diin 
optStretchlmage.Checked = True 
Fit() 

End Sub 
' Xi ly nut Crop 

Private Sub btnCrop_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCrop.Click 
If IsValidCropValuesO Then 

' Khdi tao mdt bien chia mdt bin sao cua bitmap trudc khi thijc hi$n 
‘ dt de co thS undo. 
imgUndo = piclmage.Image 
btnUndo.Enabled = True 
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1 Tao mot vung h'mh chO nhat theo tQa dp do ngddi sit dung chpn 
Dim recSource As New Rectangle(Clnt(txtXCoord.Text), _ 

Clnt(txtYCoord.Text), Clnt(txtWidth.Text), Clnt(txtHeight.Text)) 

' Tao mpt Bitmap mdi dS ve h)nh inh dupe c&t. 

Dim bmpCropped As New Bitmap(Clnt(txtWidth.Text), Clnt(txtHeight.Text)) 

' Liy d6i tupng Graphics td Bitmap di ve 
Dim grBitmap As Graphics = Graphics.Fromlmage(bmpCropped) 
grBitmap.DraWlmage(0iclmage.lmage, 0, 0, recSource, GraphicsUnit.Pixel) 

‘ DUa hinh inh da dupe cit vko PictureBoX 
piclmage. Image = bmpCropped 
End If 
End Sub 

' XCi ly nut Rotate Left 

Private Sub btnRotateLeft_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnRotateLeft.Click 
’ Quay 270 dp hJdng di/o'ng vdi quay -90 dp 
piclmage. Image. RotateFlip(RotateFlipType.Rotate270FlipNone) 
piclmage.Refresh() 

End Sub 

' Xd ly nut Rotate Right 

Private Sub btnRotateRight_Click{ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnRotateRight.Click 

piclmage. Image. RotateFlip(RotateFlipType.Rotate90FlipNone) 
piclmage.Refresh() 

End Sub 

' XCf ly nut Save, hJu hlnh inh hien thj trong PictureBox vao mot file 
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSave.Click 
With sdlglmage 

.InitialDirectory = "C:\“ 

.FileName = “myimage" 

.Filter = “Bitmap (*.bmp)r.bmplGIF (*.gif)l*.gifl“ & _ 

“JPEG (*.jpg)l # .jpg;*.jpeglTlF (*.tif)IMif“ 

.Filterlndex = 3 


End With 
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If sdlglmage.ShowDialogQ = DialogResult.OK Then 
Dim strMsg As String 

Try 

If chkThumbnail.Checked Then 

1 Ll/u hinh inh li m6t Thumbnail 
With piclmage 

Dim ratio As Double = CalculateAspectRatioAndSetDimensions() 
Dim intThumbWidth As Int32 = THUMBNAIL_MIN_SIZE 
Dim intThumbHeight As Int32 = THUMBNAIL_MIN_SIZE 

Dim imgSource As Image = .Image 
Dim imgThumbnail As Image 

If .Image.Width > Image.Height Then 

intThumbWidth = Clnt(CDbl(intThumbWidth * ratio)) 
imgThumbnail = _ 

imgSource.GetThumbnaillmage(intThumbWidth, _ 
intThumbHeight, Nothing, Nothing) 

Else 

intThumbHeight = Clnt(CDbl(intThumbHeight * ratio)) 
imgThumbnail = _ 

imgSource.GetThumbnaillmage(intThumbWidth, _ 
intThumbHeight, Nothing, Nothing) 

End If 

imgThumbnail.Save(sdlglmage.Fi!eName, GetlmageFormatO) 
End With 

strMsg = "Image successfully saved as thumbnail to ‘ _ 

sdlglmage.FileName 

Else 


' Ll/u hinh inh vio file co ten nhap vao tren SaveFileDialog 
piclmage.Image.Save(sdlglmage.FileName, GetlmageFormatO) 
strMsg = “Image successfully saved to " & sdlglmage.FileName 
End If 
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MessageBox.Showflmage successfully saved to " & _ 
sdlglmage.FileName, Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon.Information) 

Catch exp As Exception 

MessageBox.ShowfThe following error occurred while trying to " & _ 
"save the image:" & exp.Message, Me.Text, _ 
MessageBoxButtons.OK, MessageBoxIcon.Error) 

End Try 
End If 
End Sub 

' XCf ly nut Show. Hien thj h'mh chCt nh$t se cat 

Private Sub btnShowBox_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnShowBox.Click 
If IsValidCropValuesQ Then 

' Goi Refresh de xoa h'mh chuf nhat cu, neu co 
picImage.RefreshQ 

' Hien thj h'mh chuf nhat dd dS thiy dupe inh se dU$c cit 
Dim recCropBox As New Rectangle{Clnt(txtXCoord.Text), _ 
Clnt(txtYCoord.Text), Clnt(txtWidth.Text), Ctnt(txtHeight.Text)) 
piclmage.CreateGraphics.DrawRectangle(Pens.Red, recCropBox) 

End If 
End Sub 

' XCt ly nut Undo 

Private Sub btnUndo_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnUndo.Click 
piclmage.Image = imgUndo 
piclmage.Refresh() 
btnUndo. Enabled = False 
End Sub 

' XCf ly nut Zoom In 

Private Sub btnZoomln_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnZoomln.Click 
If grpSizeMode Enabled Then 
piclmage.SizeMode = PictureBoxSizeMode.AutoSize 
End If 


grpSizeMode.Enabled = False 
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btnFit.Enabled = True 
IsFitForZoomln = True 

picImage.SizeMode = PictureBoxSizeMode.Stretchlmage 
Fit() 

' Tang h'mh inh len 25% 
piclmage.Width = Clnt(piclmage.Width * 1.25) 
piclmage.Height = Clnt{piclmage.Height * 1.25) 

End Sub 

' XCt ly nut Zoom Out 

Private Sub btnZoomOut_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnZoomOut.Click 
grpSizeMode.Enabled = False 
btnFit.Enabled = True 

Fit() 

piclmage.Si 2 eMode = PictureBoxSizeMode.Stretchlmage 

' Giim kich'thudc nhd hOn 25% 
piclmage.Width = Clnt(piclmage.Width /1.25) 
piclmage.Height = Clnt(piclmage.Height 1 1.25) 

End Sub 

’ Xut ly su kiSn CheckedChanged trSn nhdm c&c RadioButton 
Private Sub SizeModeRadioButtons_CheckedChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
optAutoSize.CheckedChanged, optCenterlmage.CheckedChanged, 
optNormal.CheckedChanged, optStretchlmage.CheckedChanged 
Dim opt As RadioButton = CType(sender, RadioButton) 

' MSi RadioButton It/u m6t gia tn cua enum PictureBoxSizeMode trong 
' thuoc tinh Tag cua no. 

Dim sm As PictureBoxSizeMode = CType(opt.Tag, PictureBoxSizeMode) 

If opt.Checked Then 
piclmage SizeMode = sm 
If sm = PictureBoxSizeMode.AutoSize Then 
btnFit.Enabled = False 
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Else 

btnFit.Enabled = True 
piclmage.Width = PICTUREBOXJA/IDTH 
piclmage.Height = PICTUREBOXJHEIGHT 1 
End If 
End If 
End Sub 

' Thu tyc n&y l&m cho h)nh inh vt/a vdi PictureBox. 

Private Sub Fit() 

If piclmage.Image.Width < piclmage.Width And _ " 

piclmage.Image.Height < piclmage.Height Then 
If Not IsFitForZoomln Then 

piclmage.SizeMode = PictureBoxSizeMode.Centerlmage 
End If 
End If 

CalculateAspectRatioAndSetDimensions() 

End Sub 

1 Tinh toan va tra vS ti le cac canh cua hinh anh. 

Private Function CalculateAspectRatioAndSetDimensions() As Double 
Dim ratio As Double 

If piclmage.Image.Width > piclmage.Image.Height Then 
ratio = piclmage.Image.Width / _ 
piclmage. Image. Height 

piclmage.Height = Clnt(CDbl(piclmage.Width) / ratio) 

Else 

ratio = piclmage.Image.Height / _ 
piclmage. Image. Width 

piclmage.Width = Clnt(CDbl(piclmage.Height) / ratio) 

End If 

Return ratio 
End Function 

' Gan djnh dang tudng ung khi lu'u hinh anh bang each tham chieu den Filterlndex 
' cua hop thoai SaveFileDialog. 

4 

Private Function GetlmageFormat{) As ImageFormat 
Select Case sdlglmage.Filterlndex 
Case 1 

Return ImageFormat.Bmp 
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Case 2 

Return ImageFormat.Jpeg 
Case 3 

Return ImageFormat.Gif 
Case Else 

Return ImageFormat.Tiff 
End Select 
End Function 

’ Kiem tra dU li$u nhap vdo trong cic TextBox Cropping , *■ 

Private Function IsValidCropValuesO As Boolean 
Dim objControl As Object , „ •-« 

For Each objControl In grpCropping.Controls 

If objControl.GetType.ToStrlng-ar*System.yWndOWS,Fofms.Te*t8ox‘ Then 
Dim txt As TextBox = CType(objControl, TextBox) 

Dim ValidationMsg As String = _ 

txt.Tag.ToString & * must be $ positive integer" 

With txt 

If .Name = “txtXCoord" Or .Name = ‘txtYCoord - Then 
ValidationMsg &= “ or zero." 

Else 

ValidationMsg &= V 
End If 

If .Text.Trim = Then 

MessageBox.ShowjValidationMsg, Me.Text, _ 
MessageBoxButtons.OK, _ 

MessageBoxIcon. Error) 

SelectAII() 

.Focus() 

Return False 
End If 

If Not IsNumeric(.Text.Trim) Then 

MessageBox.Show(ValidationMsg, Me.Text, _ 
MessageBoxButtons.OK, _ 

MessageBoxIcon. Error) 

SelectAIIQ 

,Focus() 

Return False 


Else 
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intVal = Cl nt(.Text/Trim) 

If txt.Name = "txtXCoord" Or txt.Name = "IxtYCoord" Then 
If intVal < 0 Then 

MessageBox.Show(ValidationMsg, Me.Text, _ 
MessageBoxButtons.OK, _ 

MessageBoxIcon. Error) 

.SelectAIIO 

.Focus{) 

Return False 
End If 

Elself intVal <= 0 Then 

MessageBox.Show(ValidationMsg, Me.Text, _ 
MessageBoxButtons.OK, _ 

MessageBoxIcon.Error) 

SelectAIIO 
FocusO 
Return False 
End If 

Catch Exp As Exception 

MessageBox.Show("Value must be a positive “ & _ 
"integer.", Me.Text, MessageBoxButtons.OK, _ 
MessageBoxIcon. Error) 

SelectAIIO 

,Focus() 

Return False 
End Try 
End If 
End With 
End If 


Next 

Return True 
End Function 


• End Class 
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78. Phan chia mpt u*ng dung 

Bi§u dien cdch phan chia chdfc ndng trong mot ufng dung. Dieu n&y cho 
phep ngudi lap trinh l&m vi£c c6 hi^u qua han bdi vi cdc chi ti^Tt dupe dht 
trong mot component v& chi c&n n&ng c£p d mpt nai. 

Form I Component Usa Control I 


Get customers via User Control - populates grid. 


igm 

CustomertD j CompanyNa 

j ContadName 

Phone 

► 

GREAL 

Great Lakes 

Joel Stevens 

(503)555-75 


HUNGC r 

HungryCoyot 

Voshi Latimef 

(503)555-88 


LAZtK 

I 

t 

_i 

John Steel 

(509)555-79 


LETSS 

Lets Slop N 

JanlneYorres 

(415)555-59 


LQNEP 

Lonesome R 

Fran'Wlson 

(503) 555-95 


OLD WO 

Old World De 

Rene Philips 

(907)555-75 


RATTC 

Rattlesnake 

Paula Wison 

(505) 555-59 


SAVEA 

Save-a-lolM 

Jose Pavarott 

(208)555-80 


SPUR 

Split Rail Bee 

Art Braumch 

(307)555-48 


THEBI 

The Big Chee 

Liz Nixon 

(503)555-36 


THECR 

The Crackei 

Liu Wong 

(406)555-58 


TRAIN 

T rail's Head 

Helvetms Na 

(206)555-82 


WHITC 

While Clover 

Karl Jabkmsk 

(206)555-41 

Get Customers! 


H 


Cac chuc nanq chfnh: 

> Boc noi dung mot file .CSV v&o mot DataTabte. 

> Xay dung mot Class Library nhu 1& mot component truy xuat dU lieu. 

> Xay dung mot User Control dua tr&n mot DataGrid. 


Solution: Phan chia mot ung dung 


Project: DataAccessComponent (Class Library) 


Customer.vb 

Option Strict On 
Imports System.IO 
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Public Class Business 

Protected m_FileName As String 

Public Property FileNameQ As String 

' Thuoc tinh FileName si) dung cho cac thu tuc iruy xud't dO liiu 
Get 

Return m_FileName 
End Get 

Set(ByVal Value As String) 
m_FileName - Value 
End Set 
End Property 

Public Function GetCustomers() As DataTabJe 

1 Ld’y cac record trong file va tri vS mdt DataTable ’ ■ 

If m_FileName = "" Then 

Throw (New ArgumentNullException("FileName“, 'No value for FileName")) 
End If 

Dim objStreamReader As StreamReader = New StreamReader(m_FileName) 

Dim strLine As String 

Dim strColumns() As String 

Dim dtCustomers As New DataTable() 

Dim drCustomer As DataRow 

dtCustomers.Columns. Add("CustomerlD“) 
dtCustomers. Columns. AddfCompanyName") 
dtCustomers.Columns. Add(“ContactName") 
dtCustomers.Columns. Add("Phone*) 

* L&y mdt ddng tit file 
strLine = objStreamReader.ReadLine 

' Vao vdng l$p neu c6 dul HSu 
Do While (Not strLine Is Nothing) 

' Tao mdt DataRow de chita mdt ddng 
drCustomer = dtCustomers.NewRow 
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‘ Li'y dtf li$u cho cac c$t, ph&n tach bang di'u ph£y 
strColumns = Split(strLine, V) 
drCustomer.ltemArray = strColumns 
' Cho DataRow vdo DataTable 
dtCustomers.Rows.Add(drCustomer) 

‘ L£y ddng ket tiep 

strLine = objStreamReader.ReadLine 
Loop 

' Tri ve ket qua 
Return dtCustomers 
End Function 

Public Sub New() 

MyBase.new() 

End Sub 

Public Sub New(8yVal FileName As String) 

MyBase.newQ 

m_FileName = FileName 
End Sub 
End Class 

Project: DataGridControl (User Control) 

DataGridControl.vb 

Option Strict On 

Public Class DataGridControl 

Inherits System.Windows.Forms.UserControl 

Friend WithEvents dgData As System.Windows.Forms.DataGrid 

1 Code phat sinh giao di$n dupe bo qua 

Protected m_FileName As String 

Public Property FileName() As String 
Get 

FileName = m_FileName 


End Get 
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Set(ByVal Value As String) 
m__FileName = Value 
End Set 
End Property 

Sub BindCustomers() 

‘ Truy xu£t trpc tiSp DataAccessComponent, thiit lip DataGrid vdi tip kit qui. 

' An chi ti&t cp thS d6i vdi ngitdi lip trinh suf dpng control niy. 

Dim dtCustomers As DataTable 

’ Tpo instance d6i tUpng DataAccess 
Dim oBusiness As DataAccessComponent.Business = _ 

New DataAccessComponent.BusinessO 

* TruySn vio ten file se md 
oBusiness.FileName = m_FileName 

‘ Lay bang da chCfa d/7 lieu 
dtCustomers = oBusiness. GetCustomers 


1 Hien thj ket qua 

dgData.SetDataBinding(dtCustomers, "“) 

End Sub 
End Class 

Project: Phan chia mot ung dung 

frmMaln.vb 

Option Strict On 
Imports System.10 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

‘ Code phat sinh form dupe bo qua 

Protected strCustomersFile As String = V./Customers.csv‘ 
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Private Sub bnLoadDataGridComponent_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles bnLoadDataGridComponentClick 
' Truy xuat tn/c Hep den DataAccessComponent, thiS't lip DataGrid vdi 1 
’ tap ket qua. An chi tie't truy xuait file. 

Dim dtCustomers As DataTable 

' Tao instance cua doi tuqng DataAccessComponent ' 

Dim oBusiness As DataAccessComponent.Business* - ^ 

New DataAccessComponent.BusinessQ 
' Truyen vao ten file • - . , 

oBusiness.FileName = strCustomersFile^ v, . , 

' Nhan ve mdt DataTable cd dd.H$u 
dtCustomers = oBusiness.GetCustomersO 
1 Hi£n thj ket qui 

dgCustomersComponent.SetDataBinding{dtCustomers, ") 

End Sub >. 

Private Sub bnLoadDataGridForm_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles bnLoadDataGridForm.Click 

’ Truy xuat file .CSV tn/c tiep, thii't lip DataGrid vdi tap kit qua Niu doc code 
' thi dS ding bii't difpc no lim gi, tuy nhiin khdng sCf dyng lai di/qc va ngddi lap 
' trinh phii biet tit ci chi Hit. 

Dim objStreamReader As StreamReader = _ 

New StreamReader(strCustomersFile) 

Dim strLine As String 
Dim strColumns() As String 

Dim dtCustomers As New DataTable() 

Dim drCustomer As DataRow 

dtCustomers. Columns. Add(“CustomerlD M ) 
dtCustomers.Columns. Add(“CompanyName") 
dtCustomers Columns Add("ContactName“) 
dtCustomers. Columns. AddfPhone') 

strLine = objStreamReader.ReadLine 
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Do While (Not strLine Is Nothing) 
drCustomer = dtCustomers.NewRow 

strColumns = Split(strl_ine, 
drCustomer.ItemArray = strColumns 
dtCustomers.Rows.Add(drCustomer) 
strLine = objStreamReader.ReadLine 
Loop 

dgCustomersForm.SetDataBinding(dtCustomers, '**') 

End Sub 

Private Sub bnLoadUserContro!_Click(ByVa! sender As System.Object, ByVal e As 
System.EventArgs) Handles bnLoadDataGridUserControl.Click 
' User Control thUc hien tat ca cdng viec, rat di sti dung. 

' truyen vao ten file de truy xuat 

dgCustomersUserControl.FileName = strCustomersFile 
* Hien thi ket qua 

dgCustomersUserControl.BindCustomers() 

End Sub 
• End Class 


79. Class Process 


Chircfng trinh nay chi mot so each de goi va giam sat cac process b&ng 
each sir dung class Process co trong namespace System.Diagnostics. 


EB Process 



-LilzJ 


CurrentProcessInfo 


Starting a Process 


Process Startlnfo 


Task Manager 


Shell Execute 


Command Line Arguments 


The total working set of the current process 
is: 21573632 

The minimum working set of the current 
process is: 204800 

The max working set of the current process is: 
1413120 

The start time of the current process is: 
9:33:50 PM 

T he processor time used by the current 
process is: 00:00:03.7353712 
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Project: Class Process 

frmMain.vb 

Option Strict On 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code phat sinh form difpc bo qua 

Private Sub CurrentProcesslnfo_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCurrentProcessInfo.Click 
' Lay thong tin ve Process hien hanh 
Dim curProc As Process = Process.GetCurrentProcessO 

Dim s As String = "The total working set of the current process is: * + _ 
curProc.WorkingSet.ToStringO + vbCrLf 

s += "The minimum working set of the current process is: " + _ 
curProc.MinWorkingSet.ToStringO + vbCrLf 
s += "The max working set of the current process is: " + _ 
curProc.MaxWorkingSet.ToString() + vbCrLf 
s += "The start time of the current process is:" + _ 
curProc.StartTime.ToLongTimeStringO + vbCrLf 
s += "The processor time used by the current process is: " + _ 
curProc.TotalProcessorTime.ToStringO + vbCrLf 

DisplayText.Text = s 
End Sub 

Private Sub btnStartProcess_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnStartProcess.Click 

' Goi mdt process bhng class Process 
Process.Startfnotepad.exe") 

End Sub 
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Private Sub btnProcessStartlnfo_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnProcessStartlnfo.Click 

' Dd'i tupng Startlnfo cho phep truyen vao cac tham sd' cho ting dung trade khi 
' chgy no. Trong trUdng hdp ndy ta thay dSi trang thai eda so 
Dim startlnfo As New ProcessStartlnfo(“notepad.exe“) 
startlnfo.WindowStyle = ProcessWindowStyle.Maximized 
Process. Start(startlnfo) 

End Sub 

Private Sub btnTaskManager_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnTaskManager.Click 

' Sd dung class Process ta co the li'y nhieu thdng tin hdn v4 process 
Dim f As New frmTaskManager() 
f.Show() 

End Sub 

Private Sub btnShellExecute_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSheltExecute.Click 

If Not System.IO.File.Existsfdemofile_shell.txf) Then 

Dim sw As New System.lO.StreamWriterC..\demofile_shell.txt") 
sw.WriteLine(“Shell Execute Demo") 
sw.CloseQ 
End If 

' Class Startlnfo cung co the sd dung de got Shell mdc nhiSn cua he dieu hanh. 
Dim startlnfo As New ProcessStartlnfof.Ademofile_shell.txt") 
startlnfo.UseShellExecute = True 
Process.Start(startlnfo) 

End Sub 

Private Sub btnCommandl_ine_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCommandLine.Click 
Ch$y Windows Explorer vdi tham s6 ddng lenh 
Dim startlnfo As New ProcessStartlnfo("explorer.exe'‘) 
startlnfo.Arguments - */n“ 

Process.Start(startlnfo) 

End Sub 
• End Class 
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frmTaskManager.vb 

Public Class frmTaskManager 

Inherits System Windows.Forms.Form 
' Code phat sinh form dUOc bd qua 

' Danh sach cac Process hiin dang chqy 
Dim ProcessList As New ArrayList() 

Private Sub btnModules_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnModules.Click 

' Lay item dang di/dc chon trong ComboBdx. Sau ddhiSn thj tit ci cac 
’ modules cua process do tret) frmModules. 

Dim ProcID As Integer 

Dim ProcessListlndex As Int32 = cboCurrentProcesses.Selectedlndex 
ProcID = Clnt(ProcessList(ProcessListlndex)) 

Dim frmMod As New frmModules() 
frmMod.RrocessID = ProcID 
frmMod.Show() 

End Sub 

Private Sub frmTaskManager_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
Try 

' Duyit qua cac, process dang chay vi cho chung vio ComboBox 
Dim Processlnfo As Process 
For Each Processlnfo In Process.GetProcessesO 
If Processlnfo.ProcessName = "EXPLORED Or _ 

Processlnfo.ProcessName = "devenv" Then 
cboCurrentProcesses.Items. Add(Processlnfo.ProcessName) 
ProcessList. Add(Processlnfo.Id) 

End If 
Next 

cboCurrentProcesses.Selectedlndex = 0 
If btnModules.Enabled = False Then 
btnModules.Enabled = True 
End If 
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Catch exc As Exception 

MessageBox.ShowfUnable to load process names:“ & vbCrLf & _ 
exc.Message & vbCrLf & ‘Please choose another process.*, _ 
"frmTaskManager“, _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon.Error) 
btnModules.Enabled = False 
End Try 
End Sub 

Private Sub cboCurrentProcesses_SelectedlndexChanged(ByVal sender As 
Object, ByVa! e As System. EventArgs) Handles 
cboCurrentProcesses.SelectedlndexChanged 
Dim ProcessID As Int32 

Try 


' Lay thong tin cua process dupe chon 
Dim ProcessListlndex As Int32 = cboCurrentProcesses.Selectedlndex 
ProcessID = Clnt(ProcessList(ProcessListlndex)) 

Dim Processlnfo As Process = _ 

Process.GetProcessByld(ProcesslD) 

' Hien thi thong tin 

txtPriority.Text = Processlnfo. BasePriority.ToStringO 
txtNumberOfThreads.Text = Processlnfo.Threads.Count.ToStringQ 
txtMaxWorkingSet.Text = Processlnfo.MaxWorkingSet.ToStringO 
txtMinWorkingSet.Text = Processlnfo.MinWorkingSet.ToString() 
txtStartTime.Text = Processlnfo.StartTime.ToLongTimeStringO 
txtTotalProcessorTime.Text = ProcessInfo.TotalProcessorTime.ToStringO 
Catch exc As Exception 
MessageBox.Show( _ 

“Unable to retrieve information for ProcessID : “ & ProcessID & _ 
vbCrLf & exc.Message, __ 

^frmTaskManager", _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon. Error) 

End Try 
End Sub 
End Class 
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frmMod ules.vb 

■ Public Class frmModules 

Inherits System.Windows.Forms.Form 
Private _processlD As Integer 

• ' Code phat sinh form duoc bo qua 

Public Property Proce$slD() As Integer 
Get 

Return (_processlD) 

End Get 

Set(ByVal Value As Integer) 

_processlD = Value 
End Set 
End Property 

Private Sub frmModules_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
Dim Processlnfo As Process = _ 

Process.GetProcessByld(ProcesslD) 

Dim modi As ProcessModuleCollection = Processlnfo.Modules 
Dim strMod As New System.Text.StringBuilder() 

Dim proMod As ProcessModule 
For Each proMod In modi 

strMod.AppendfModule Name: * + proMod.ModuleName + vbCrLf) 
Next proMod 

rchText.Text = strMod.ToString 
End Sub 


■ End Class 
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80. Doc va ghi file Text 

Chtrong trinh n&y chi cdch suf dung cdc class StreamReader va 
StreamWriter de doc va ghi v&o cdc file v&n ban. 


Dpc va ghi vao file van ban 


File Text: 


333 


"3 


Version >> 1 000-000 
Type >>0xFFFF 
src_path » I \ 

CheckDirectX >> Ok 
CheckDirectShow >> Ok. 

Username >> ntbooks 

Wm95 >> Drive=C space=[1, 530333696] > 4601 MB 


d 


File Name: |c.\stsetup log 


Create New File 


New File 


Open File 


Append To File 


Read Entire File 


Read File in Lines 


Read File in Chars 


Cac chufc nanq chinh: 

> Tao mot file vSn ban nidi, san sang dS ghi van ban vao. 

> Ghi them v&o mot file da t6n tai. 

> Doc toan bo noi dung file vdi mgt lenh. 

> Doc tfrng dbng cua file. 

> Doc titag ky tu cua file. 


Project: Doc va ghi file van ban 

frmMain.vb 

Imports System/IQ 
Public Class frmMain 
Inherits System.Windows.Forms.Form 


• ’ Code pbat sinh form dUdc bo qua 


' Chi dinh mot ten file moi va di/dng din de lull file. ■/ << 

Private Sub btnNewFileName_Click(ByVal sender As System.Object, ByVal e As ‘ " 
System.EventArgs) Handles btnNewFileName.Click 

' Su dung SaveFileDialog va dUa ten va difdng din cua file vao txtFileName 
If Me.sdlgFile.ShowDialog = DialogResult.OK Then 
Me.txtFileName.Text = sdlgFile.FileName 
End If 
End Sub 

' Chi dinh dUdng din va ten file cua mot file da ton tai. 

Private Sub btnOpenFileName_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnOpenFileName.Click 
' Tao doi titgng OpenFileDialog 
Dim myOpenFileDialog As New OpenFileDialogO 

' Gan cac thuoc tinh thich hap 
myOpenFileDialog.CheckFileExists = True 
myOpenFileDialog.DefaultExt = "txt" 
myOpenFileDialog.InitialDirectory = "C:\“ 
myOpenFileDialog.Multiselect = False 

' SCi dung hop thoai OpenFileDialog va dUa dUdng dan vi ten file vao txtFileName 
If myOpenFileDialog.ShowDialog = DialogResult.OK Then 
Me.txtFileName.Text = myOpenFileDialog. FileName 
End If 

End Sub 

' Sd dung doi tdong StreamWriter de ghi thSm van ban vao mot file da ton tai. 

' Neu file khong ton tai thi file se dupe tao. 

Private Sub btnStreamWriterAppendToFile_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles btnStreamWriterAppendToFile.Click 

' StreamWriter phai dupe dinh nghla ngoai khoi Try-Catch de co the tham 
' chieu den no trong phan Finally. 

Dim myStreamWriter As StreamWriter 

' Dat StreamWriter vao khoi Try-Catch vi co the ngUdi sit dung nhap 
1 vao ten file khong dung. 
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Try 

' Tao mot StreamWriter sti dung phUdng thdc Shared cua class File 
myStreamWriter = File. AppendText(txtFileName.Text) 

Ghi toan bo noi dung cua txtFileTexI vao StreamWriter 
myStreamWriter. Write(txtFileText.Text) 
myStreamWriter. Flush() 

Catch exc As Exception 

MsgBoxfFiie could not be opened or written to." + vbCrLf + _ 

“Please verify that the filename is correct, " + _ 

"and that you have read permissions for the desired " + _ 

"directory." + vbCrLf + vbCrLf + "Exception: " + exc.Message) 

Finally 

' Dong StreamWriter neu no da dUdc tao 
If Not myStreamWriter Is Nothing Then 
myStreamWriter. CloseQ 
End If 
End Try 
End Sub 

1 Su dung StreamWriter de tao mot file mdi vA ghi vao no noi dung trong txtFileText 
Private Sub btnStreamWriterCreateFile__Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles btnStreamWriterCreateFile.Click 

' Kiem tra va xac nh$n ngildi sCl dung co muon ghi chSng ISn 
If File.Exists(txtFileName.Text) Then 

If MsgBox(“That file exists. Would you like to overwrite it?", _ 
MsgBoxStyle.YesNo) <> MsgBoxResult.Yes Then 
' Thoat thu tuc 
Return 
End If 
End If 

Dim MyStreamWriter As StreamWriter 
Try 

myStreamWriter = File.CreateText(txtFileName.Text) 
myStreamWriter. Write(txtFileText.Text) 
myStreamWriter.FlushO 
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Catch exc As Exception 

MsgBoxfFile could not be created or written to." + vbCrLf + _ 
"Please verify that the filename is correct, “ + _ 

“and that you have write permissions for the desired " + _ 
"directory." + vbCrLf + vbCrLf + “Exception: " + exc.Message) 
Finally 

If Not myStreamWriter Is Nothing Then 
myStreamWriter.Close() 

End If * 

End Try 
End Sub 

' Sd dung StreamWriter de md mQt file va 6 qc ti)ng dong. 

Private Sub btnStringReaderReadFi!elnLines_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
blnStringReaderReadFilelnLines.Click 

Dim myStreamReader As StreamReader 
Dim mylnputString As String 
Dim rowCount As Integer = 0 

Try 

myStreamReader = File.OpenText(txtFileName.Text) 

' Xoa noi dung trong TextBox 
txtFileText.C!ear{) 


' BSf dau doc mdt dong 

mylnputString = myStreamReader.ReadLine() 

' Tii'p tuc dQC trong khi file vin cdn 
While Not mylnputString Is Nothing 

' xui t noi dung kdm vdi so thi) tU ddng 
txtFileText.Text += rowCount.ToStringO + + 

mylnputString + vbCrLf 
rowCount += 1 
' Doc ddng kel tiep 

mylnputString = myStreamReader.ReadLineQ 
End While 
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Catch exc As Exception 

' Thdng bao Idi cho ngitdi suf dyng 
MsgBoxfFile could not be opened or read.’ + vbCrLf + _ 
"Please verify that the filename is correct, ’ + _ 

"and that you have read permissions for the desired " + _ 
"directory." + vbCrLf + vbCrLf + "Exception: * + exc.Message) 
Finally 

If Not myStreamReader Is Nothing Then 
myStream Reader. Close() 

End If 
End Try 
End Sub 


' Md mdt file da ton tai vA 6 qc ndi dung ctia no vdi mdt ddng ISnh 
Private Sub btnStreamReaderReadFromFile_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
btnSireamReaderReadFromFile. Click 

Dim myStreamReader As StreamReader 

Try 

myStreamReader = File.OpenText(txtFileName.Text) 

' Doc to An bo ndi dung cua file vA xuAt ra txtFileText 
Me.txtFileText.Text = myStreamReader.ReadToEnd() 

Catch exc As Exception 

MsgBox(“File could not be opened or read." + vbCrLf + _ 

"Please verify that the filename is correct, “ + _ 

“and that you have read permissions for the desired “ + _ 

"directory." + vbCrLf + vbCrLf + "Exception:' + exc.Message) 

Finally 

. If Not myStreamReader Is Nothing Then 
myStreamReader.CloseO 
End If 
End Try 
End Sub 

' Md file vA doc titng ky ttf cua file. 

Private Sub btnStreamReaderReadlnChars_Click(ByVal sender As System.Object, 
ByVai e As System.EventArgs) Handles btnStreamReaderReadlnChars.Click 
Dim myStreamReader As StreamReader 
Dim myNextlnt As Integer 
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Try 

myStreamReader = File. OpenText(txtFileName. Text) 
txtFiteText.Clear() 

' PhUdng thUc Read{) tri vS mot s6 nguyen 
myNextlnt = myStreamReader.ReadQ 
' Phi/ctng thi/c Read() tra vS -1 khi d<?c dd’n cuoi file 
While myNextlnt <> -1 

' Chuyin s6 nguyen do thpnh ky tU Unicode va cho no vao Text Pox ■ 
txtFileText.Text += ChrW(myNextlnt) 

' Dqc gia trj kg tii'p trong Stream 
myNextlnt = myStreamReader.Read() 

' Cip nh$t Text Box d£ thay ky tU dupe them vao 
txtFileT ext.Refresh() 

' Sleep 100 mili giiy d4 ngudi sCt dpng thay dupe mSi Ian doc mot ky tp 
Sy$tem.Threading.Thread.CurrentThread.Sleep(100) 

End While 

Catch exc As Exception 

MsgBoxfFile could not be opened or read." + vbCrLf + _ 

"Please verify that the filename is correct," + _ 

"and that you have read permissions for the desired " + _ 

"directory." + vbCrLf + vbCrLf + "Exception: “ + exc.Message) 

Finally 

If Not myStreamReader Is Nothing Then 
myStreamReader.CloseO 

End If 
End Try 
End Sub 


End Class 
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81. Ttftfng tac vdi cac Performance Counter 

Chircmg trinh ndy chi each doc th6ng tin vd ghi vdo Performance Counters 
sd dung Visual Basic NET. Cdc counter ndy co th4 dufefe sti dung de theo doi 
hieu xuat nhieu phdn cua he dieu hdnh cung nhu cdc dng dung .NET. 


'Performance Counters 


Select Category: 
Select Counter 


NET CLRJit 


3 


windows service - % Time in Ji 


3 


Built-In or Custom Counter: 


Oeerenn en.t Cb uftter 


Chi c6 c&c Counter do ngdfli l&p trinh too mdi c6 th£ tiling 
hooegiam. 


Refresh Categories 


HI53E3 


Counter Value: 


(9054291 

CounterType: 


jRawFraction 

CoupterHelp 


This counter displays 
|the percentage of 
elapsed time spent in 
JIT compilation since 
the last J!T compilation 
phase. This counter is 
updated at the end of 
every JIT compilation 
phase. A JIT 

compilation phase is . 

Zi 


M 


Cac chufc nana chinh: 

> Tham chidu d4n m$t perfomance counter da t6n tai vk doc cdc gid tri 
cua nd. 

> Tao m$t perfomapee counter d4 ghi vdo vk doc thdng tin tit n6. 

> Xdc dinh m$t performance counter Id m$t edi dufac xdy dtfng sin hay do 
ngtfdi l$p trinh tao. 

Chu v khi chav chycfnq trinh nay: 

> Md solution ra. ' . " 

> Tao mot performance counter d4 cd th4 ghi thdng tin vdo: 

1. Md Server Explorer 

2. Chon Servers •> (Tdn may tinh) -> Performance Counters 

3. Nhan chuOt phdi vdo Performance Counters vd chon "Create New 
Category..." 

4. Nhap vdo ten thl loai ("Category Name"): "Custom Counters". 

5. Nhin vdo "New" de tao mdi mot Performance Counter 
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6. Nh4p v&o t&n (Name): "My First Custom Counter", kieu (Type): 
”NumberOfUem32", v& nhap m6 t& vho phan Counter Description. 

Project: Performance Counters 
frmMaln.vb 

Option Strict On e /... 

Imports System.Diagnostics 

Public Class frmMain 

Inherits System.Windows.Forrns.Form 

Private m_Couriter As PerformanceCounter 

* Code phat sinh form difpcbd qua 

' ThO tyc ndy giim gid trj cua custom counter. Chi cd cac custom counter mdi 
‘ cho phdp gan thuQc tfnh Readonly being False 

Private Sub btnDecrementCounter_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnDecrementCounter.Click 
Try 

' Gan thude tfnh Readonly bing False dS co th4 thao tac vdi counter 
m_Counter.ReadOnly = False 

' Chi giim gia trj khindo no cd gid trj > 0 

i 

If m_Counter.RawValue > 0 Then 
m_Counter. Decrement) 
sbrStatus.Text = ““ 

Else 

' Hien thj trang thai cho ngi/di suf dyng 
sbrStatus.Text = “Counter is already zero/ 

End If 

Catch exc As Exception 

sbrStatus.Text = “Could not decrement counter/ 

End Try 


End Sub 
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’ Ting gia trj cua custom counter 
Private Sub btnlncrementCounter_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnlncrementCounter.Click 
Try 

m_Counter.ReadOnly = False 
m_Counter.tncrement() 
sbrStatus Text = 

Catch 

sbrStatus.Text = “Could not increment counter.” 

End Try 
End Sub 

’ Cho phep ngUdi sit dung cip nhit lai form sau khi them mot Performance Counter 
Private Sub btnRefreshCategories_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnRefreshCategories.Click 
Me.cboCategories. Items. ClearQ 
Me.cboCounters. Items.Clear() 

Me.m__Counter = Nothing 
Me.txtBuiltlnOrCustom.Text = 

Me.txtCounterHelp.Text = 

Me.txtCounterType.Text = 

Me.txtCounterValue.Text = “ 

Me.btnDecrementCounter.Enabled = False 
Me.btnlncrementCounter.Enabled = False 
Me.cboCategories.Text = " 

Me.cboCounters.Text = “ 

’ Gpi FormjLoad 

Me.frmMain_Load(Me, New System.EventArgs()) 

End Sub 

‘ St/ kidn niy phit sinh khi ngudi sCf dt/ng thay d6i Counter Category. Thay 
' d6i cboCounter tuong Cing vdi cic counter thu6c Category do. 

Private Sub cboCategories_SelectedlndexChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
cboCategories.SelectedlndexChanged 

Dim myCategory As PerformanceCounterCategory 
Dim myCounters As New ArrayList() 

Dim myCounter As PerformanceCounter 
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Dim myCounterNames() As String 

If cboCategories.Selectedlndex <> -t Then 
' Cho tin cac Counter vao cboCounter 
Try 

' Lay cac category co the co 
myCategory = New PerformanceCounterCatego(y( 

Me cboCategories Selectedhe ■ TootnngO) 

' Lay tat ci instance cua category ' .or c ion 
myCounterNames = myCategory.GetlnstanceNames( 

' Neu khong co instance nao, lay cac counter khong co g>i t : instance 
If myCounterNames Length = 0 Then 

myCounters.AddRange(myCategory.GetCounters()) 

Else 

Dim i As Integer 

For i = 0 To myCounterNames.Length - 1 
myCounters.AddRange( _ 

myCategory. GetCounters(myCounterNames(i))) 

Nex^ 

End If 

* Xoa n6i dung trong cboCounter 
Me cboCounters Items.Clear() 

Me.cboCounters.Text = "" 

Cho cac counter vao cboCounters. SiJf dung class CounterDisplayltem 
' de bio dam la chung duoc hien thi dung, va bao dim co mdt tham 
‘ chieu den mdt counter dUQc Il/u trong item cua ComboBox 
For Each myCounter In myCounters 

Me.cboCounters.Items.Add(New CounterDisplayltem(myCounter)) 
Next 

Catch exc As Exception 

MsgBoxfUnable to list the Counters in this Category." + _ 

"Please select another Category. 11 ) 

End Try 
End If 
End Sub 






745 


• • i Tv( iuuqvi > -• 

' Sit kien nay phat sinh khi ngt/di sddpng thaydSi counter dupe chQn. 

‘ Gan counter ditoc chon cho bii’n m_Counter. 

Private Sub cboCounters_SelectedlndexChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handies cboCounters.SeiectedindexChanged 

Dim myCounterDisplay As CounterDisplayltem 
Try 

' Lay CounterDisplayltem ket vdi counter ditoc chgn 
myCounterDisplay = CType(cboCounters.Selectedltem, CounterDisplayltem) 

’ Lay doi tLfo'ng PeriormanceCounter hJu trong CounterDisplayltem 
m_Counter = myCounterDisplay.Counter 
' Hien thi thong tin ve Counter 

Me.txtCounterType.Text = m_Counter.CounterType.ToString{) 
Me.txtCounterHelp.Text = m_Counter.CounterHelp.ToString() 

Me sbrStatus.Text = "" 

' Neu la custom counter thi cho pheo sit dung cac nut thich hop 
If myCounterDisplay.IsCustom Then 

' Enable cac nut Increment va Decrement 
Me.txtBuiltlnOiCustom Text = "Custom" 

Me.btnDecrementCounter.Enabled = True 
Me.btnlncrementCounter.Enabled = True 
Else 

’ Disable cac nut Increment va Decrement 
Me.txtBuiltlnOrCustom.Text = "Built-In" 

Me.btnDecrementCounter.Enabled = False 
Me btnlncrementCounter.Enabled = False 
End If 

Catch exc As Exception 

m_Counter = Nothing 
End Try 
End Sub 

Private Sub frmMain Load(ByVal sender As System Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

Dim myCounters As PerformanceCounter 

Dim myCategory As PerformanceCounterCategory 

Dim myCategoriesO As PerformanceCounterCategory 
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’ Gan myCategories chtia tat ci cac Category co the cd 
myCategories = myCategory.GetCategories() 

Dim myCategoryNames(myCategories.Length -1) As String 
Dim i As integer = 0 1 Used as a counter 
' Duyet qua cac category va cho chung vao ming cac chuSi 
For Each myCategory In myCategories 

myCategoryNames(i) = myCategory. CategoryName 
i += 1 
Next 

’ Sap yep m&ng 

Array. Sort(myCategoryNames) 

' Cho cac gia trj trong m&ng v&o cboCategories 
Dim nameString As String 
For Each nameString In myCategoryNames 
Me.cboCategories. Items. Add(nameString) 

Next 

' Cho phep Timer 
Me.tmrUpdateUl.Interval = 500 
Me.tmrUpdateUI.Enabled = True 
End Sub 

' Cap nhat gia tri cua counter sau mdt chu ky thdi gian 
Private Sub tmrUpdateUI_Tick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles tmrUpdateUl.Tick 

' Kiem tra xem Counter c6 ton tai khdng, neu co thi lay kieu v£ gia trj 
Try 

If Not m_Counter Is Nothing Then 

Me,txtCounterValue.Text»m_Counter.NextValue().ToString() 

End If 

i .rifjWii a m i-.j*;. >..■ . 

Cafcfi exc As Exception 

Me.txtCounterValue.Text = “* 

End Try 
End Sub 


• End Class 
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CounterDisplayltem.vb 

Option Strict On 

Imports System.Diagnostics 

' Class nay dUQc sif dung dS lUu mdt counter, cung nhi/djnh nghra phUdng 
' thifc ToStringf) dS ComboBox hiin thi instance vk tin cua counter 
Public Class CounterDisplayltem 

' Lifu mot instance cua counter bin trong class 
Private m_Counter As PerformanceCounter 

' Djnh nghla constructor, truydn vko m$t PerformanceCounter 
Public Sub New(ByVal inCdunter As PerformanceCounter) 

If TypeName(inCounter) =j 'PerformanceCounter' Then 
m_Counter = inCounter 
Else 

m_Counter = Nothing 
End If 
End Sub 

1 ThuQc tinh nky cho phep Iky ra hokc lUu vao PerformanceCounter dUOc lUu boi 
' mdt doi tUOng CounterDisplayltem 
Public Property CounterQ As PerformanceCounter 
Get 

Return m_Counter 
End Get 

Set(ByVal Value As PerformanceCounter) 
m_Counter = Value 
End Set 
End Property 

' Him nky override phddng thdc ToStringf) d£ hiSn thi thong tin ve Counter d£ 

’ ngudi suf dung chon 

Public Overrides Function ToStringO As String 
If Not m_Counter Is Nothing Then 

Return m_Counter.lnstanceName + “ -" + m_Counter.CounterName 
Else 

Return " 

End If 

End Function 




748 


— Coding 1 oo h nnjno.- 


’ Thu tyc ndy tri vS True nSu counter Id custom counter, nd'u khac thi tra vS False. 
Public Readonly Property isCustom() As Boolean 
Get 

' Li/u gia tri hien hdnh cua thuoc tinh Readonly 
Dim isReadOnly As Boolean = m__Counter.Readonly 
Try 

* Vi khdng co phtfdng thdc IsCustom, do do ta dung mot meo nho 
m_Counter.Readonly = False 
m„Counter.NextValue() 

' Neu chay dUdc den day, no Id custom counter 
Return True 
Catch exc As Exception 

' Day khdng phai la mot custom couter 
Return False 
Finally 

1 Tra lai gia trj cu 

m_Counter.ReadOnly = isReadOnly 
End Try 
End Get 
End Property 
End Class 


82. Scope, Override va Overload 

Chtfcfng trinh nay cho thay c£ch truy xu&'t nhieu c£p do den chc th&nh 
ph&n cua mot class, bao gom Public, Private, Protected.... Ngohi ra, chircmg 
trinh nhy c6n chi chch md r6ng cac class ph£t sinh (thira ke) vdi c Ac tinh 
nang nhit Overloading va Overriding. 


IgS Scope. Override Overfoad 


Scope, Override va Overload 


H®E3| 


Employee lype 


jCarlos Programmer 


Name: Carlos Programmer 
Hie dale: 7/1/2002 
Salary 50000 

Social Service* ID: 12345678901 
Bonus: 500 

Annual Leave: 42 days 


Soctal Services ID 112345S7S901 


Expected Term. Dale jlv/i 





■k 
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Cac chufc nanq chinh: 

Chircdig trinh ndy gid lap mot he thong tra luong dcfn gian, cho phbp tra 
luong cho cdc nhdn vien chinh thufc (full-time), nhan vien ldm viec bdn thbi 
gian (part-time) vd nhdn vidn thbi vu (temporary). Mbi loai nhdn vien c6 cdc 
dac diem md loai khdc khbng c6. Vi du: chi nhan vien chinh thufc mbi dupe 
nghi phbp hdng n&m, vd nhan vien thbi vu c6 mot ngay ket thuc khi dupe tra 
luong. Tuy nhien tat cd cac nhdn vidn dlu c6 mot s 6 diem chung: dupe trd 
luong, c6 ten ri&ng... 

Mot so tuf khoa suf dung tronq chtfdng trinh: 

Inherits: Chi dinh class (con goi Id class co so) dl class hipn hdnh thira k£. 

Notlnheritable: Kh6ng cho phbp suf dung class nay 1dm class ccf sb. 

Mustlnherit: Khong th0 tao instance cua class ndy. Chi c6 mpt cdch suf 
dung class nay Id thira k£ nb. 

Overridable: Cho phep mot thuoc tinh hay mot phuong thufc c6 th£ dupe 
viet lai trong class thira ke. Cdc phuong thdc Public mdc nhibn Id 
NotOverridable. 

Overrides: Thay the (override) mot thudc tinh hay phuong thufc dupe dinh 
nghla trong class c0 sb. 

NotOverridable (kieu mac nhien): Khbng cho phbp override m0t phuong 
thufc hay thuoc tinh trong class thira ke. 

MustOverride: Bdt bupc class thira ke phdi override phuong thufc hay thu0c 
tinh. 

Shadows: Cho phep suf dung lai tdn cua cdc thdnh phdp cua class c0 sb, 
kieu cua cdc thdnh phan cua lbp co sb se khbng c6 tdc dung trong class thira 
ke. 

Tam anh hubng cua cdc til kh6a: 

Public: Cdc class, thu tuc, vd bi£n khai bdo vbi tir khba Public se cb quybn 
suf dung todn cue. Khbng c6 gibi han truy xuat ndo ddn cdc thdnh phin ndy. 

Protected: Cdc thdnh phin cua class dupe khai bdo vbi tir khba Protected 
chi co th£ truy xu&t dupe trong ciing class ho$c tp cdc class thira ke. 

Friend: Cdc class vd thu tuc,dupe khai bdo vbi tir khba Friend dupe truy 
xudt tir ben trong ciing chuong trinh cb khai bdo nb vd trong cimg mot 
assembly. 

Private: Cdc thdnh phdn cua class dupe khai bdo vbi tir khba Private chi cb 
thb truy xuat tir bdn trong class cb khai bao chung. 
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Shared: Che thu tuc dugc khai bho vdi tir kh6a Shared c6 th€ suf dung n6 
mh khong can tao mpt instance cua class chtfa n6. Ta c6 th£ goi mdt thu tuc 
shared thong qua tin dfiy du cua n6 (g6m tin class vh ten thu tuc: 

Em ployeeDataM anager. Write EmployeeData), hohc goi tir mot bien lh 
instance cua class d6 (edmManager.WriteEmployeeData). 

Project: Seope-Override-Overload 

Employee.vb 

Option Strict On 

, , V ; . \ J 

- ' Class niy khai bio vdi t£t kh&a Mustinherit. Nd lim cd sd cho cic class khac. 

• Public MustlnheritClass Employee 

' Cic bid'n khai bio vdi til kfrda Protected nin chung c6 th4 si! dyng dupe trong cic 
' class thila k4 td Employee. Tti khda Private se lim cho cac biin niy chi c6 th4 
' truy xua’t trong class Employee. 

' Chi co thS sCf dong Protected cho die biin c&p class, bin ngoii cac thu tyc. 

' Ta khong thS sd dyng nd cho cic biindp module, namespice hoic file . 

Protected c_HireDate As DateTime 
Protected c_Name As String 
Protected c_Salary As Decimal 
Protected c_SocialServiceslD As String 

' Constructor mac nhien. Thu tyc niy chyy khi m$t instance cOa d6i tUQng Employee 
‘ dUdc tao mi khong co tham s6. Ta cd thi sd dung nd dS gin die gia tri mic 
' nhien cho cac thuoc tinh... 

Public Sub New() 

c_HireDate = DateTime. Now. Date 
End Sub 

' Day la mot overload constructor cd tham s6. Thu tyc nay chay khi instance diloc 
' tao vdi tham so la mdt chudi. Construcotor cd tham so cho phep dCt lieu di/dc 
' truyen vio cho do1 tugng vao luc tao mot instance cua no. 

Public Sub New(ByVal Name As String) 
c_Name = Name 

c_HireDate = DateTime.Now.Date 
End Sub 
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Public Readonly Property Bonus() As Decimal 
Get 

Return ComputeBonus() 

End Get 
End Property 

Public Property HireDateQ As Date 
Get 

Return cJHireDate 
End Get 

Set(ByVal Value As Date) 

If Value <= DateTime.Now.Date Then 
c_HireDate = Value 
Else 

Throw New ArgumentException( _ 

"Hire Date cannot be later than today", “HireDate") 

End If 
End Set 
End Properly 

Public Property Name() As String 
Get 

Return c_Name 
End Get 

Set(ByVal Value As String) 
c_Name = Value 
End Set 
End Property 

' Neu muon cac class thtia ke co cac phien ban tinh luong rieng ta khai bao 
’ tCf khoa MustOverride <3e bat buoc cac class thda ke viet code cho thu tyc n&y. 

' Chu y Id khong co ddng code ndo cho thu tuc thuoc tinh nay va khong 
’ co lenh End Property 

Public MustOverride Property SalaryO As Decimal 
Public Overridable Property SocialServiceslD() As String 
Get 

Return c_SocialServiceslD 


End Get 
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Set(ByVal Value As String) 

If IsNumeric(Value) And Len(Value) = 11 Then 
c_SocialServiceslD = Value 
Else 

Throw New ArgumentException( _ 

"Social Security Number must be 11 numeric “ & _ 

"characters", "SocialServiceslD") 

End If 
End Set 

End Property 

Public MustOverride Function ComputeBonusO As Decimal 

' Hire la mot phUdng thilc overload. Co thSgoi theo ba each khac nhau. 

Public Sub Hire(ByVal Name As String) 
c_Name = Name 

End Sub 

Public Sub Hire(ByVal Name As String, ByVal HireDate As DateTime) 
c_Name = Name 
c_HireDate = HireDate 

End Sub 

Public Sub Hire(ByVal Name As String, ByVal HireDate As DateTime, ByVal 

StartingSalary As Decimal) 
c_Name = Name 
c_HireDate = HireDate 
c_Sa!ary = StartingSalary 

End Sub 
End Class 

FuHTimeEmployee.vb 

Option Strict On 

■ ' Class FullTimeEmployee thtia k& td class Employee vd do do no co tdt ca cac 

• ' thude tinh, phi/dng thife, vd cac sd kiSn md Employee co. Ngoai ra no con md 

■ ‘ rdng them bdng each them phiidng thisc ComputeAnnualLeave va override 

• ' phddng thde ComputeBonus. 




— Coding Tvcivnigues 
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Public Class FullTimeEmployee 
Inherits Employee 

' Constructor nay goi constructor m$c nhien trong class cd sd 
Public Sub New() 

MyBase.New() 

End Sub 

’ Constructor n&y goi constructor cd tham s6 cua class cd sd. 

' TruySn vdo ten Employee 

Public Sub New(ByVal Name As String) 

MyBase.New{Name) 

End Sub 

' AnnualLeave la thuoc tinh tinh theo ngdy, vd chi cd trong class FullTimeEmployee 
Public Readonly Property AnnualLeave() As Integer 
Get , ;;f . 

Return ComputeAnnualLeave() 

End Get ^ 

End Property 

"■ '■ ' 5 1 "- 

* ThO tgc tinh fupng chua (Stye vi4t code, trong, class cd sd , 

Public Overrides Property $alary() As Decimal 
Get \ 

Return c_Salary . 

End Get 

Set(ByVal Value As Decimal) 

If Value < 30000.0 Or Value > 500000.0 Then 
Throw New ArgumentOutOfRangeException( _ 

'Salary*, _ 

"Full-time employee salary must be between * & _ 

“$30,000 and $500,000“) 

Else 

c_Salary = Value 
End If 
End Set 
End Property 
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' Thu tuc md rdng class cti sd. Phifdng thtic nay khong co trong class cti sd cung 
' nhu class PartTimeEmployee. 

' Phtiong thC/c nay tlnh so ngay employee da Idm viec vdi cong ty va cho 
’ emplyee 4 ngdy phep cho mdi quy. 

Public Function ComputeAnnualLeave() As Integer 
' Gii sd trd ve mol con so 
Return 42 
End Function 

' Vi&t code thu tuc ComputeBonus cho nhdn vien full-time 
Public Overrides Function ComputeBonus() As Decimal 

' Nhdn viSn full-time dUtic hudng thtidng hdng ndm Id 1% lifting 
Return c^Salary * CType(0.01, Decimal) 

End Function 
End Class 

PartTimeEmployee.vb 

Option Strict On 

' Class ndy thCfa kd' tCf class Employee. 

Public Class PartTimeEmployee 
Inherits Employee 

' c_MinHoursPerV\/eek Id private, chi thiy (sd dyng) dUtic trong class ndy. 

Private c_MinHoursPerWeek As Double 

Public Sub New() 

MyBase.NewO 
End Sub 

Public Sub New(ByVal Name As String) 

MyBase.New(Name) 

End Sub 

' Tinh so gid tdi thieu md nhdn viin part-time phdi Idm trong m$t tuSn 
Public Property MinFloursPerWeekQ As Double 
Get 

Return c_MinFloursPerWeek 
End Get 
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Set(ByVal Value As Double) 
c_MinHoursPerWeek = Value 
End Set 
End Property 

Public Overrides Property Salary() As Decimal 
Get 

Return c_Salary 
End Get 

Set(ByVal Value As Decimal) 

If Value < 10000.0 Or Value > 30000.0 Then 
Throw New ArgumentOutOfRangeException( _ 

“Salary", "Part-time employee salary must “ & _ 

“be between $10,000 and $30,000") 

Else 

c_Salary = Value 
End If 
End Set 
End Property 

Public Overrides Function ComputeBonusQ As Decimal 
' Nhan viSn Part-time nh$n thildng 0.5% kiong hang n£m 
Return c_Salary * CType{0.005, Decimal) 

End Function 

Public Overloads Sub Hire<ByVa! Name As String, ByVal HireDate As DateTime, 
ByVal StartingSalary As Decimal, ByVal MinHoursPerWeek As Double) 
c_Name = Name 
c_HireDate = HireDate 
c_Salary = StartingSalary 
c_MinHoursPerWeek = MinHoursPerWeek 
End Sub 
End Class 

TempEmployee.vb 

■ Option Strict On 

' TempEmployee thifa ke ttf class Employee. 
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' Class nay Shadow phi/cfng thifc Hire, nghla Id pht/ong thdc Hire cua class Employee 
' khong the sCf dung dupe td d6i tUdng TempEmployee 
Public Class TempEmployee 
Inherits Employee 

Public ExpectedTermDate As DateTime 

Public Overrides Property SalaryQ As Decimal 
Get 

Return c_Salary 
End Get 

Set(ByVal Value As Decimal) 

If Value < 10000.0 Or Value > 20000.0 Then 
Throw New ArgumentOutOfRangeException( _ 

"Salary", "Temporary employee salary must" & _ 

"be between $10,000 and $20,000") 

Else 

c_Salary = Value 
End If 
End Set 
End Property 

Public Overrides Function ComputeBonusQ As Decimal 
' Nhan vidn tam thdi khdng c6 thudng 
Return 0 
End Function 

Public Shadows Sub Hire(ByVal Name As String, ByVal HireDate As DateTime, 
ByVal StartingSalary As Decimal, ByVal EmploymentEndDate As DateTime) 
c_Name = Name 
c_HireDate = HireDate 
c_Salary = StartingSalary 
ExpectedTermDate = EmploymentEndDate 
End Sub 
End Class 

EmployeeDataManager.vb 

• Option Strict On 
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' Class EmployeeDataManager co cac phUdng thifc de chuyin din vd Id'y di7 liSu cua 
' employee tit database. Bing cdch khai bao vdi tit khoa Friend, tit cd cac thdnh 
' phan cua nd co thi sCi dung ditoc trong assembly ndy. 

' Til khoa Notlnheritable nghJa la khdng cho phdp class khac thda ki nd 
Friend Notlnheritable Class EmployeeDataManager 

' WriteEmployeeData la mot hdm overload, vdi ba each g<?i khde nhau. 

' No cung Id mot hdm Shared. 

Public Shared Function WriteEmpioyeeData(ByVal Employee As 
FullTimeEmployee) As String 

' Code di ghi dd lieu vdo database 
Return ’‘Full-Time Employee data written to database." 

End Function 

Public Shared Function WriteEmployeeData(ByVal Employee As 
PartTimeEmployee) As String 

’ Code di ghi dU lieu vdo database 
Return "Part-Time Employee data written to database." 

End Function 

Public Shared Function WriteEmployeeData(ByVa! Employee As TempEmployee) 
As String 

' Code di ghi dO lieu vdo database 
Return "Temporary Employee data written to database." 

End Function 

Public Shared Function ReadEmployeeData(ByVal Employee As 
FullTimeEmployee) As String 

' Code di dQC dii liSu til database 
Return "Full-Time Employee data read from database." 

End Function 

Public Shared Function ReadEmployeeData(ByVal Employee As 
PartTimeEmployee) As String 

’ Code di d<?c dQ liSu tit database 
Return "Part-Time Employee data read from database." 

End Function 




758 


- Coding Technique;'- 


Public Shared Function ReadEmployeeData(ByVal Employee As TempEmployee) 
As String 

’ Code dS doc di7 liSu til database 
Return "Temporary Employee data read from database." 

End Function 

• End Class 

frmMain.vb 

Option Strict On 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

Private c_empFul! As FullTimeEmployee 
Private c_empPart As PartTimeEmployee 
Private c_empTemp As TempEmployee 

• ’ Code phat sinh form dupe bd qua 

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnClear.Click 
Dim ctl As Control 

cboEmployeeType.Selectedlndex = -1 
For Each ctl In Me.Controls 
If TypeOf ctl Is TextBox Then 
ctl.Text = vbNullString 
End If 
Next 
End Sub 

Private Sub btnHire_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnHire.Click 
If Not ValidateDataQ Then 
Return 
End If 

Select Case cboEmployeeType.Selectedlndex 
Case -1 


Exit Sub 
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Case 0 

HireFullTimeEmployee() 

Case 1 

HirePartTimeEmptoyee() 

Case 2 

HireTempEmployeeO 
End Select 
End Sub 

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSave.Click 
Dim strResult As String 

' Gii lap hcinh ddng lUu v&o database suf dung phddng thiic Shared 
' cua class Employ eeDataManager 
Select Case cboEmployeeType.Selectedlndex 
Case -1 
Exit Sub 
Case 0 

strResult = EmployeeDataManager.WriteEmployeeData(c_enpFull) 
Case 1 

strResult = EmployeeDataManager.WriteEmployeeData(c_empPart) 
Case 2 

strResult = EmployeeDataManager.WriteEmployeeData(c_empTemp) 
End Select 

MsgBox(strResult, MsgBoxStyle.Information, Me.Text) 

End Sub 

' Theo doi cic thay d6\ trdn cic TextBox, enable nut Hire khi du dd HSu 
Private Sub TextBoxes_TextChanged(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles txtName.TextChanged, txtHireDate.TextChanged, 
txtSalary.TextChanged, txtSocialServicesID.TextChanged, 
txtExpectedTermDate.TextChanged, cboEmployeeType.SelectedlndexChanged 
Select Case cboEmployeeType.Selectedlndex 

Case -1 

'btnHire. Enabled = False 
txtName.Enabled = False 
txtHireDate.Enabled = False 
txtSalary.Enabled = False 
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txtSocialServicesID.Enabled = False 
txtExpectedlermDate. Enabled = False 
Case 0, 1 

'btnHire. Enabled - True 
txtName.Enabled = True 
txtHireDate.Enabled = True 
txtSalary.Enabled = True 
txtSocialServicesID.Enabled = True 
txtExpectedTermDate. Enabled = False 
Case 2 

'btnHire. Enabled = True 
txtName.Enabled = True 
txtHireDate. Enabled = True 
txtSalary. Enabled = True 
txtSocialServicesID.Enabled = True 
txtExpectedTermDate.Enabled = True 
End Select 

btnHire.Enabled = _ 

txtName.Text,Trim.Length <> 0 And _ 
txtHireDate.Text.Trim.Length <> 0 And _ 
txtSalary.Text.Trim.Length <> 0 And _ 
txtSocialServicesID.Text.Trim.Length <> 0 And _ 
cboEmployeeType.Selectedlndex >= 0 

* Neu IA Temp Employee, kiim tra TextBox ExpectedTermDate 
If cboEmployeeType.Selectedlndex = 2 Then 
btnHire.Enabled = btnHire.Enabled And _ 

txtExpectedTermDate.Text,Trim.Length <> 0 

End If 

btnSave.Enabled = False 
End Sub 

Private Sub HireFullTimeEmployeeO 

c_empFull = New FullTimeEmployee() 

Try 

With c_empFull 

.Hire(txtName.Text.Trim, CType(txtHireDate.Text.Trim, DateTime),. 
CType(txtSalary.Text.Trim, Decimal)) 
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.SocialServicesID = txtSocialServicesID.Text.Trim 
txtResults.ClearQ 

txtResults.Text &= "Name: * & .Name & vbCrLf & _ 

“Hire date: " & .HireDate & vbCrLf & _ 

“Salary: “ & .Salary & vbCrLf &. __ 

"Social Services ID: “ & .SocialServicesID & vbCrLf & _ 

“Bonus:" & .Bonus & vbCrLf & _ 

“Annual Leave: " & .AnnualLeave & “ days" 

End With 

btnSave.Enabled = True 
Catch exp As Exception 

MsgBox(exp.ToString(), MsgBoxStyle.Critical, Me.Text) 

End Try 
End Sub 

Private Sub HirePartTimeEmployeeQ 
c_empPart = New PartTimeEmployeeQ 
Try 

With c_empPart 

.Hire(txtName.Text.Trim, CType(txtHireDate.Text.Trim, DateTime), 
CType(txtSalary.Text.Trim, Decimal), 20) 

SocialServicesID = txtSocialServicesID.Text.Trim 
txtResults.Clear{) 

txtResults.Text &= “Name: “ & Name & vbCrLf & _ 

"Hire date: " & HireDate & vbCrLf & _ 

“Salary: “ & .Salary & vbCrLf & __ 

"Social Services ID: " & .SocialServicesID & vbCrLf & _ 

"Bonus: " & .Bonus & vbCrLf & _ 

“Min hrs. per week: “ & MinHoursPerWeek 

End With 

btnSave.Enabled = True 
Catch exp As Exception 

MsgBox(exp.ToString(), MsgBoxStyle.Critical, Me.Text) 

End Try 


End Sub 
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Private Sub HireTempEmployeeQ 

Dim c_empTemp As New TempEmployee() 

Try 

With c_empTemp 

.Hire(txtName.Text.Trim, CType(txtHireDate.Text.Trim, DateTime), _ 
CType(txtSalary.Text.Trim, Decimal), _ 
CType(txtExpectedTermDate.Text.Trim, DateTime)) 

.SocialServicesID = txtSociafServicesID.Text.Trim 
txtResults.ClearQ 

txtResults.Text &= ‘Name: ‘ & .Name & vbCrLf & _ 

“Hire date: ‘ & .HireDate & vbCrLf & _ 

‘Salary:" & .Salary & vbCrLf & _ 

“Social Services ID: ‘ & .SocialServicesID & vbCrLf & _ 

‘Bonus: * & .Bonus & vbCrLf & _ 

‘Expected termination date:" & .ExpectedTermDate.ToShortDateString 
End With 

btnSave.Enabled = True 
Catch exp As Exception 

MsgBox(exp.ToString(), MsgBoxStyle.Critical, Me.Text) 

End Try 
End Sub 

Private Function ValidateData() As Boolean 
Dim datalnValid As Boolean = True 

If Not IsDate(txtHireDate.Text) Then 

MsgBox("Hire Date must be a date in the format MM/DD/YY.", _ 
MsgBoxStyle.Exclamation, Me.Text) 
datalnValid = False 
End If 

If txtSociatServicesID.Text.Length <> 11 Then 

MsgBox("Social Services ID must be 11 characters in length", _ 
MsgBoxStyle.Exclamation, Me.Text) 
datalnValid = False 
End If 

Return (datalnValid) 

End Function 
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Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
txtName.Text = "Carlos Programmer" 
txtHireDate.Text = "7/1/2002“ 
txtSalary.Text = “50000“ 
txtSocialServicesID.Text = "12345678901" 
txtExpectedTermDate.Text = "10/1/2002" 

■ End Sub 
• End Class 


83. Sidung Thread Pooling 


Chircrng trinh n&y chi cdch suf dung Thread Pooling trong Visual 
Basic.NET. 




Thread Pooling 


Queued Functions ) T roars Synchroncabon QbtscU j 


This demonstrates howto useThreadPool.FtegisierWaitForSirigleObject and 
synchronization objeds Mutex MammIReselEvent arid AutoResetEvent. to trigger 
functions on sepmetaTfeteadS, as opposed to having dedicated breads with blocking. 


tk fa Mutex -| pWai far Manual Event,-" j Wait for Auto Event..—| 

| Waiting | | inactive I Inactive 


Thread Nurobei I I j j Thread Number f 1 I j Thread Number I 1 j 

Beiongt To Pod? | 1 j j Belongs To Pod? | 1 Belongs T o Pool? | 1 j 



WafcRjrMtfe* { 1 

Wak Fa Manual Event j Wat /or Auto Reset Event j 

t . , r 

Release Mutex | 

■yJSdfJGsrAW Ey^ : 5w A<jm Reset F vet* 

' . * - 


Cac chtTc nana chinh: 

> Function Queuing: So sdnh viec chay ba process c6 thuf tu, suf dung cdc 
thread rieng bigt, vk suf dung ThreadPool.QueueUserWorkltem. 

> Timers: Suf dung class Threading.Timer. 

> Synchronization Object: Sur dung ThreadPool de chay cdc process c6 dgi 
cdc doi tifgfng d6ng bp h6a. 
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Project: Thread Pooling 

ProcessGroup.vb 

Option Strict On 

' Class nay gom nhom hai process thti hai trong cac tab non-threaded, threaded, 
' vd thread pool 
Public Class ProcessGroup 
' Constructor 

Public Sub New(ByVal ActiveLabel As Label, _ 

ByVal ThreadNumLabel As Label, _ 

ByVal IsPoolThreadLabel As Label) 

IblActive = ActiveLabel 
IbIThreadNum = Thread Nurn Label 
IbllsPoolThread = IsPoolThreadLabel 
' Cong them 1 vao thudc tinh Shared numberOfProcesses 
numberOfProcesses += 1 
End Sub 

Private IblActive As Label 
Private IbllsPoolThread As Label 
Private IbIThreadNum As Label 
' Cac thanh phdn Shared 
Private Shared highlntensity As Boolean 
Private Shared numberOfProcesses As Integer = 0 
Private Shared processesCompleted As Integer 
Private Shared ticksElapsed As Integer 

Shared Readonly Property GetTicksEiapsed() As Integer 
Get 

Return ticksElapsed 
End Get 
End Property 

Shared WriteOnly Property SetHighlntensity() As Boolean 
Set(ByVal Value As Boolean) 
highlntensity = Value 
End Set 
End Property 
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Public Event Completed() 

' Khdi tao cdc th&nh phan Shared 
Shared Sub PrepareToRun() 
processesCompleted = 0 
ticksElapsed = Environment.TickCount 
End Sub 

' Thu tuc n&y chay process thit hai, cap nhat cac label 
Rublic Sub Run() 

’ Cho biet dang Active 
IblActive.Text = "Active" 

IblActive.ForeColor = Color.Green 
lblActive.Refresh() 

' Cap nhit label ThreadNum. GetHashCode tra ve gia tri so duy nhat cho mdi thread. 
IbIThreadNum.Text = Threading.Thread.CurrentThread.GetHashCode()ToString 
IblThreadNum.RefreshQ 

' Cap nh$t label IsThreadPooled 

If Threading.Thread.CurrentThread.lsThreadPoolThread Then 
IbllsPoolThread.Text = "Yes" 

Else 

IbllsPoolThread.Text = "No* 

End If 

lbllsPoolThread.Refresh() 

' Neu highlntensity dUOc chQn thi loop qua TickCount trong 2 giay de sit dung 
‘ toi da CPU, n&u khdng chQn thi ddi trong 2 giiy . 

If highlntensity Then 

Dim ticks As Integer = Environment.TickCount 
While Environment.TickCount - ticks < 2000 
End While 
Else 

Threading.Thread.CurrentThread.Sleep(2000) 

End If 
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' Process da kit thuc 
IblActive.Text = “Inactive 0 
IblActive.ForeColor = Color.Red 
lblActive.Refresh() 

' Cong 1 vio thudc ti'nh shared ProcessCompleted. NSu tit ca cac process da 
' ket thuc th) phat sinh st/ kien da hoan tat. Dieu niy cin thiet khi mu6n cip 
' nhat giao dien kip thdi. 
processesCompleted += 1 

If processesCompleted = numberOfProcesses Then 
ticksElapsed = Environment.TickCount - ticksElapsed 
RaiseEvent Completed() 

End If 
End Sub 

’ Thu tuc nay la mdt callback cho Threadpool.QueueWorkltem de tranh nhim 
’ tin gida hai cich goi process ben dt/di. 

Private Sub RunPooledThread(ByVal state As Object) 

Run() 

End Sub 

' Thim mot yeu cau vao Threadpool vdi mot callback goi RunPooledThread 
Sub StartPooledThreadQ 

' Tao mot callback den thu tyc RunPooledThread 

Dim callback As New Threading.WaitCallback(AddressOf RunPooledThread) 
' DUa no vao hang dpi de chay process 
Threading.ThreadPool.QueueUserWorkltemCcallback, Nothing) 

End Sub 

' Start mot thread mdi, chay thu tyc Run 
Sub StartThread() 

Dim newThread As New Threading.Thread(AddressOf Run) 
newThread.Start() 

End Sub 


End Class 
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TimerGroup.vb 

Option Strict On 

' Class nky gom nhdm chile n&ng class Threading.Timer. Myc 6ich chlnh Ik cho 
‘ phep thu tyc OnTimer co thS biSt cap nhit label nko bdi v) ta khdng thS truySn 
‘ tham s6 vko no 
Public Class TimerGroup 
' Constructor 

Public Sub New(ByVal OutputLabel As Label, _ 

ByVal ThreadNumLabel As Label, _ 

ByVal IsPoolThreadLabel As Label) 

IblOutput = OutputLabel 
IbIThreadNum = ThreadNumLabel 
IbllsPoolThread = IsPoolThreadLabel 
End Sub 

Private IbllsPoolThread As Label 
Private IblOutput As Label 
Private IbIThreadNum As Label 
Private myTimer As Threading.Timer 

' H&m callback cho myTimer, di/oc goi bi't cut khi nao timer phat sinh si/ kien 
Private Sub OnTimer(ByVal State As Object) 

' Cap nh$t c&c label 

IblOutput.Text = Now.Hour & & Now.Minute & \“ & Now.Second 

IbIThreadNum.Text = Threading.Thread.CurrentThread.GetHashCode().ToString 
If Threading.Thread.CurrentThread.lsThreadPoolThread Then 
IbllsPoolThread.Text = "Yes“ 

Else 

IbllsPoolThread.Text = “No" 

End If 
End Sub 

' Thu tuc n&y start cho timer, bkng each tao m6t d6i ti/dng Threading. Timer vdi 
' mot callback OnTimer 

Public Sub StartTimer(ByVal period As Integer) 

1 Khdng dupe start mot timer NULL 
If IsNothing(myTimer) Then 
’ Tao mdt callback 

Dim callback As New Threading.TimerCallback(AddressOf OnTimer) 




' Start timer, truyin vio tin so thuc hien. Chu y: khdng nhim 
’ tin Threading. Timer vdi Timers. Timer 
myTimer = New Threading.Timer(callback, Nothing, 0, period) 

End If 
End Sub 

' Ket thuc timer bang each huy dd'i ti/png Threading. Timer 
Public Sub StopTimer() 
myTimer.Dispose() 
myTimer = Nothing 
End Sub 
End Class 

frmMain.vb 

Option Strict On 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

Private autoResetEventl As Threading.AutoResetEvent 
Private manualResetEventl As Threading.ManualResetEvent 
Private mutexl As Threading.Mutex 
Private processGroupl As ProcessGroup 
Private processGroup2 As ProcessGroup 
Private processGroup3 As ProcessGroup 
Private timerGroupl AsTimerGroup 
Private timerGroup2 As TimerGroup 

' Code phat sinh form dtfgc bd qua 

’ Thu tyc nay gqi ba process lien tiep, khdng sl( dung thread 
Private Sub btnNonthreaded_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnNonthreaded.Click 

' Khdng cho phep cac process khac khi chua ket thuc 
btnNonthreaded.Enabled = False 
btnThreaded.Enabled = False 
btnThreadPool.Enabled = False 
' Chuin bi cac biin shared 
ProcessGroup.PrepareToRunQ 
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' Chgy tiing process 
processGroupl .Run() 
processGroup2.Run() 
processGroup3,RunO 
End Sub 

' Thu tuc n£y giii phong Mutex, cho phSp ph£t sinh si/ ki$n OnMutexReleased 
Private Sub btnReleaseMutex_lClick(ByV&tsender As System.Object, ByVal e As 
System.EventArgs) Handles btnReleaSeMutex.Clfck 
btnReleaseMutex.Enabled * False 
btnSeiReleaseAll. Enabled = False 

mutex1.ReleaseMutex() • = : '. - : - 

End Sub 

‘ GCii tin hi$u si/ ki§n Auto Reset, cho ph£p phat sinh si/ ki$n OhAutoEventSet 
Private Sub btnSetAutoEvent_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSetAutoEvent.Click 
btnSetAutoEvent.Enabled = False 
btnSetReleaseAll. Enabled = False 

autoResetEventl .Set() 

End Sub 

' Gifi tin hidu si/ kien Manual Reset, phat sinh sd kiSn OnManualEventSet 
Private Sub btnSetManualEvent_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSetManualEvent.Click 
btnSetManualEvent.Enabled = False 
btnSetReleaseAll.Enabled = False 

manualResetEventl .Set() 

End Sub 

' Thu tuc nay giii phong Mutex va set cac st/ kien auto va manual 
Private Sub btnSetReleaseAII_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSetReleaseAll.Click 
btnReleaseMutex.Enabled = False 
btnSetManualEvent.Enabled = False 
btnSetAutoEvent.Enabled = False 
btnSetReleaseAll.Enabled = False 
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mutexl .ReleaseMutex() 
manualResetEventl .Set{) 
autoResetEventl .Set() 

End Sub 

' Start va Stop c&c Timer 

Private Sub btnStartStop_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnStartStop.Click 
If btnStartStop.Text = ‘&Start* Then 
btnStartStop.Text = “&Stop“ 
timerGroupl .StartTimer(IOOO) 
tlmerGroup2.StartTimer(2000) 

Else 

btnStartStop.Text = *&Start* 
timerGroupl .StopTimerO 
timerGroup2.StopTimer0 
End If 
End Sub 

’ Thu tyc n&y gp\ ba process trong ba thread ri§ng biSt 
Private Sub btnThreaded_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnThreaded.Click 
btnNonthreaded. Enabled = False 
btnThreaded.Enabled = False 

btnThreadPool.Enabled = False ■ • ., 

■ .■..<* , , . ; - 

ProcessGroup.PrepareToRunO 

* Chay mdi process trong thread ridng cua no 
processGroupt .StartThreadO 
processGroup2.StartThread() 
processGroup3. StartThreadO 
End Sub 

’ Thu tyc nky ySu ciu d£n ThreadPool dS chay ba process 
Private Sub btnThreadPool__Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnThreadPool.Click 
btnNonthreaded.Enabled = False 
btnThreaded. Enabled = False 
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' k KV ‘ * . = *• l 1 

ProcessGroup.PrepareToRun() 

* GCli ySu ciu dS'n ThreadPool d4 ch?y ba process 
processGrouptStartPooledThread() 
processGroup2.StartPooledThread() 
processGroup3.StartPooledThread() 

End Sub 


Private Sub btnWaitForAutoEvent_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnWaitForAutoEvent.Click 
autoResetEventi = New Threading.AutoReseiEvent(False) 

Dim callback As New Threading.WaitOrTimerCallback( _ 

AddressOf OnAutoEventSet) 

Threading.ThreadPool.RegisterWaitForSingleObject(autoResetEvent1, _ 
callback, Nothing, Threading.Timeout.Infinite, False) 

IblAutoEventStatus.Text = "Waiting" 

IblAutoEventStatus.ForeCoior = Color.Blue 

btnWaitForAutoEvent.Enabled = False 
btnSetAutoEvent.Enabled = True 

If Not btnWaitForManuaiEvent. Enabled And Not btnWaitForMutex.Enabled Then 
btnSetReleaseAll. Enabled = True 
End If 
End Sub 

Private Sub btnWaitForManualEvent_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles btnWaitForManuaiEvent.Click 
manualResetEventl = New Threading.ManualResetEvent(False) 

Dim callback As New Threading.WaitOrTimerCallbackf _ 

AddressOf OnManualEventSet) 
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Threading.ThreadPool.RegisterWaitForSingleObject(manualResetEvent1, _ 
callback, Nothing, Threading.Timeout.Infinite, True) 

IbIManualEventThreadStatus.Text = “Waiting" 
IbIManualEventThreadStatus.ForeColor = Color.Blue 

btnWaitForManualEvent.Enabled = False 
btnSetManualEvent.Enabled = True 

If Not btnWaitForMutex.Enabled And Not btnWaitForAutoEvent.Enabled Then 
btnSetReleaseAll.Enabled =True 
End It 
End Sub 

’ Thu tpc ndy tao mot mutex, vi dua mutex process v&o trying thai dpi cho den 
’ khi mutex dupe giii phdng 

Private Sub btnWaitForMutex_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnWaitForMutex.Click 
mutexl = New Threading.Mutex(True) 

’ Tpo mdt callback d€n OnMutexReleased 
Dim callback As New Threading.WaitOrTimerCallback( _ 

AddressOf OnMutexReleased) 

' OPng ky mutex de phat sinh OnManualEventSet khi giii phong. 
Threading.ThreadPool.RegisterWaitForSing!eObject(mutex1, callback, _ 
Nothing, Threading.Timeout.Infinite, True) 

IbIMutexThreadStatus.Text = "Waiting" 

IbIMutexThreadStatus.ForeColor = Color.Blue 

btnWaitForMutex.Enabled = False 
btnReleaseMutex. Enabled = True 
If Not btnWaitForManualEvent.Enabled And _ 

Not btnWaitForAutoEvent.Enabled Then 
btnSetReleaseAll.Enabled = True 
End If 
End Sub 
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Private Sub chkHighlntensity_CheckedChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles chkHighlntensity.C.heckedChanged 
ProcessGroup.SetHighlntensity = chkHighlntensity.Checked 
End Sub 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal^e As 
System.EventArgs) Handles MyBase.Load ' . 

processGroupl = New ProcessGroup(lblProcess1Active, _ 

IbIProcessIThreadNum, IbIProcessllsPoolThread) 
processGroup2 = New ProcessGroup(IblProcess2Active, _ 

lblProcess2ThreadNum, iblProcess2lsPoolThread) 
processGroup3 = New ProcessGroup(lblProcess3Active, _ 
lblProcess3ThreadNum, lblProcess3lsPoolThread) 

AddHandler processGroupl .Completed, AddressOf OnProcessesCompleted 
AddHandler processGroup2.Completed, AddressOf OnProcessesCompleted 
AddHandler processGroup3.Completed, AddressOf OnProcessesCompleted 

‘ ' i 

ProcessGroup.PrepareToRun() 

timerGroupl = New TimerGroup(lblTimer1 Output, IblTimerlThfeadNum, _ 
IbITimerl IsThreadPool) 

timerGroup2 = New TimerGroup(lblTimer20utput, lblTimer2ThreadNum, _ 
lblTimer2lsThreadPool) 

End Sub 

' Thu tuc callback khi reset event duoc set 

Private Sub OnAutoEventSet(ByVal obj As Object, ByVal TimedOut As Boojean) 
IblAutoEventStatus.Text = "Running" 

IblAutoEventStatus.ForeColor = Color.Green 

IblAutoEventThreadNum.Text = _ 
Threading.Thread.CurrentThread.GetHashCode().ToString 

If Threading.Thread.CurrentThread.lsThreadPoolThread Then 
IblAutoEventlsPoolThread.Text = “Yes" 

Else 

IblAutoEventlsPoolThread.Text = "No“ 


End If 




774 


— Coding Techniques 


' Dura thread hi$n hdnh vao trgng thai dgi 2 gi&y 
Threading.Thread.CurrentThread.Sleep(2000) 

IbiAutoEventStatus.Text = “Waiting" 

IblAutoEventStatus.ForeColor = Color.Blue 

btnSetAutoEvent.Enabled = True 

If Not btnWaitForManualEvent.Enabled And Not btnWaitForMutex.Enabled Then 
btnSetReleaseAll. Enabled = True 
End If 
End Sub 

' Callback khi manual reset event dugc set 

Private Sub OnManualEventSet(ByVal obj As Object, ByVal TimedOut As Boolean) 
IbIManualEventThreadStatus.Text = "Running' 
IblManualEventThreadStatus.ForeColor = Color.Green 

IbIManualEventThreadNum.Text = _ 

Threading.Thread.CurrentThread.GetHashCode().ToString 

If Threading.Thread.CurrentThread.lsThreadPoolThread Then 
IbIManualEventlsPoolThread.Text = “Yes" 

Else 

IbIManualEventlsPoolThread.Text = "No" 

End If 

Threading.Thread.CurrentThread.Sleep(2000) 

IbIManualEventThreadStatus.Text - "Inactive" 
IbIManualEventThreadStatus.ForeColor = Color.Red 

manualResetEventl .CIose() 

btnWaitForManualEvent.Enabled = True 


End Sub 
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' Callback khi mutex dMc giii phong 
Private Sub OnMutexReleased(ByVal obj As Object, ByVal TimedOut As Boolean) 
IblMutexThreadStatus.Text = “Running' 

IbIMutexThreadStatus.ForeColor = Color.Green 

IbIMutexThreadNum.Text = _ 

Threading.Thread.CurrentThread.GetHashCodeO ToString 

If Threading.Thread.CurrentThread.lsThreadPoolThread Then 
IbIMutexIsPoolThread.Text = "Yes" 

Else 

IbIMutexIsPoolThread.Text = "No" 

End If 

Threading.Thread.CurrentThread.Sleep(2000) 

IblMutexThreadStatus.Text = “Inactive" 

IbIMutexThreadStatus.ForeColor = Color.Red 

mutexl Close() 

btnWaitForMutex.Enabled = True 
End Sub 

' Thu tuc nky dupe ggi khi ck ba process da kk't thuc 
Private Sub OnProcessesCompletedQ 

' iky thdi gian cac process da chay vk hiSn thj trin label 
Dim secondsElapsed As Double = ProcessGroup.GetTicksElapsed /1000 
IbISecondsElapsed.Text = secondsElapsed.ToString 

btnNonthreaded.Enabled = True 
btnThreaded.Enabled = True 
btnThreadPool.Enabled = True 


' Reset ckc process de ch$y Ian khac 
ProcessGroup.PrepareToRun() 

End Sub 
End Class 
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' Callback khi mutex dupe giii phdng . f - ; 

Private Sub OnMutexReleased(ByVal obj As Object, ByVal TimedOut As Boolean) 
IbIMutexThreadStatus.Text = "Running" 

IbIMutexThreadStatus.ForeColor = Color.Green 

IbIMutexThreadNum.Text = _ * r ' 

Threading.Thread.CurrentThread.GetHashCode().ToString 

If Threading.Thread.CurrentThread.lsThreadPoolThread Then 
IbIMutexIsPoolThread.Text = "Yes" 

Else 

IbIMutexIsPoolThread.Text = “No" 

End If 

Threading.Thread.CurrentThread.Sleep(2000) 

IbIMutexThreadStatus.Text = "Inactive" 

IbIMutexThreadStatus.ForeColor = Color.Red 

mutexl CloseQ 

btnWaitForMutex.Enabled = True 
End Sub 

' Thu tyc n&y duoc goi khi ci ba process da k&t thuc 
Private Sub OnProcessesCompleted() 

' Liy thdi gian cic process da chyy v& hien thj trin label 
Dim secondsElapsed As Double = ProcessGroup.GetTicksElapsed /1000 
IblSecondsElapsed.Text = secondsElapsed.ToString 

btnNonthreaded. Enabled = True 
btnThreaded.Enabled = True 
btnThreadPooI.Enabled = True 

' Reset ckc process dS chyy Ian khdc 
ProcessGroup.PrepareToRun() 

End Sub 
End Class 
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84. Tim hieu Garbage Collector 

Chtfcfng trinh n&y chi each dieu khi£n each hoat d$ng cua Garbage 
Collector. Th6ng bao khi garbage collector goi bat ky phuong thurc Finalize 
tren cdc d6'i ttfgng da dtfcfc tao. 


Create Objects 


TestObject 

TestObject 

“TestObject 

“"TestObject 


Activity Log ‘ v 


- Creating ObjectTree 
TestObject-Gen: 0 
TestObject - Gen: 0 
“TestObject - Gen: 0 
“TestObject - Gen: 0 


, 1 , 

i^iKillSelected Qbject ;^| || 
. ^Dispose Selected Object" ; H 
ft Suppress RinalK a in Dispose . 


[EraseActivity 


Cac chufc nfinq chinh: 


> Suf dung phirong thtfc GC.Collect() d i 6p garbage collector chay. 

> Thng hi§u xutft cua garbage collector tr§n cdc ddi tirgng cu thl bang 
each suf dung phtrong thufc GC.SuppressFinalize(), 

> Cdch danh d£u m£t dfti tugng dl garbage collection theo dSi. 


Project: Garbage Collector 


GcTest.vb 

Option Explicit On 

' Xiy ddng class 64 suf dung thuf Gargage Collector 
Public Class GcTest 

' Khai bao hai bien private, m6t 64 lUu tin cua 6d\ tupng hi$n hdnh vi m$t 
' 64 chifa 6oi tugng GcTest con. 

Private m_Name As String 
Private m_Child As GcTest 
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' CPc si/ kiin phai dupe khai bao tUdng ting vdi mpt event handler 
Public Delegate Sub lnfoEventHandler(ByVal message As String) 

Public Event ObjectGcInfo As InfoEventHandler 

Public Sub New(ByVal name As String, ByVal numLevels As Integer) 

m_Name - name 

' Chi co cac dd'i tupng dupe khai bao vdi WithEvents se nhan dupe si/ kipn nay 
RaiseEvent ObjectGclnfo(m_Name + " Created") 

' Bio dkm dp s£u cua cay khong qud siu, gidi han tdi 5 
If numLevels > 5 Then 
numLevels = 5 
End If 

If numLevels > 0 Then 

m_Child = New GcTestf** + m_Name, numLevels -1) 

AddHandler m_Child.ObjectGcInfo, AddressOf myChildHandler 
End If 
End Sub 

' Trp vS w trt (c£p) hjPn hdnh cua GC 
Public Readonly Property GenerationQ As Integer 
Get 

‘ GetGeneration tra ve c£p cua d6i tupng hien hanh 
Return GC.GetGeneration(Me) 

End Get 
End Property 

Public Readonly Property Name() As String 
Get 

' Trp vS tSn cua d6i tupng hien hpnh 
Return m„Name 
End Get 


End Property 
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’ Khai bao phuong thufc Dispose 

Sub Dispose(Optionai ByVal isFinalizeSupressed As Boolean = True) 

* NSu c 6 yiu c£u SupressFinalize, bao cho Garbage Collector b& qua 
' Finalize cua dd'i ti/png n£y. Tang hieu xuit cua garbage collector. 

If isFinalizeSupressed Then 
GC.SuppressFinalize(Me) 

End If 

If Not m_Chiid Is Nothing Then 

m_Child.Dispose(isFinalizeSupressed) 
m_Child = Nothing 
End If 

RaiseEvent ObjectGclnfo(m_Name + " Disposed (“ + _ 
isFinalizeSupressed.ToString() + *)“) 

End Sub 

' Ham nPy Dispose dd'i tUpng co ten la tham s6 dupe truySn v&o. No duySt d$ quy 

' qua toan bo cay. Trik v4 True neu dd'i tUpng da dupe Dispose. 

Public Function DisposeChildNamed(ByVal name As String, _ 

ByVal isFinalizeSupressed As Boolean) As Boolean 

' KiSm tra m child 
If Not m_Child Is Nothing Then 
If m_Chi!d.Name = name Then 

m_Child.Dispose(isFinalizeSupressed) 

Return True 
Else 

' Tim do! tUpng d4 Dispose bang each duyet qua cdy 
m_Child.DisposeChildNamed(name, isFinalizeSupressed) 

End If 
Else 

' Khdng fim thsfy dd’i tUpng 
Return False 
End If 

End Function 
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' Him niy tri ve mot Array List chCfa cac dp cua tit ca doi tUpng dupe tpo 
' va con cua chung. 

Public Function GetSelfAndChildGenerations() As ArrayList 
’ Tgo mdt ArrayList dS sit dung 
Dim myArrayList As ArrayList 

' Neu tSn tai doi tUpng con , goi ham de quy dS li’y danh sich con 
If Not m_Child Is Nothing Then 
’ Ldy ArrayList tit ddl tUpng con 
myArrayList = m_Child.GetSelfAndChildGenerations() 

Else 

' Khdng co d6i tUpng con, tpo mdt ArrayList mdi 
' myArrayList = New ArrayList() 

End If 

, \ 

’ Cho tin cua ddi tUpng hien hinh vio ArrayList d vj tri dau tien 
myArrayList.lnsert(0, m_Name + " - Gen: • + Me.Generation.ToStringO) 

Return myArrayList 
End Function 

' Him nay tri vS mot ArrayList chCfa cac ten cua tit ci cac doi tUpng dupe tpo 
' va con cua chung. 

Public Function GetSelfAndChildNamesQ As ArrayList 

Dim myArrayList As ArrayList 
If Not m_Chi!d Is Nothing Then 

myArrayList = m_Child.GetSelfAndChildNamesQ 
Else 

myArrayList = New ArrayListQ 
End If 

myArrayList.lnsert{0, m_Name) 

Return myArrayList 
End Function 

' Override phUdng thUc Finalize de phat sinh thing tin 
Protected Overrides Sub FinalizeO 

' DS cho d6i tUpng cha cua doi tUpng niy biet li Finalize dupe gpi 
RaiseEvent ObjectGclnfo(m_Name + * Finalized’) 

End Sub 
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' Ham niy huy d6i tUQng co tin li tham $6 truySn vio 
Public Function KillChildNamed(ByVal name As String) As Boolean 

If Not m_Child Is Nothing Then 
If m^Child.Name = name Then 
' Huy m_Child 
m_Child = Nothing 
Return True 
Else 

m_Child.KillChiIdNamed(name) 

End If 
Else 

Return False 
End If 

End Function 

’ Cii event handler cho 6$ \UQng con 
Public Sub myChildHandler(ByVal message As String) 

RaiseEvent ObjectGclnfo(message) 

End Sub 

, ; \ 

' Override phifdng thCtc ToString di tri vS tin cua dd'i tupng 
Public Overrides Function ToStringO As String 
Return m_Name 
End Function 
End Class 

frmMain.vb 

Option Strict On 
Public Class frmMain 

Inherits System.Windows.Forms.Form 
' Khai bio mot bii'n GcTest 
Private m^TestObject As GcTest 
Private Const OBJECT_DEPTH As Integer = 3 


' Code phat sinh form dupe bd qua 
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Private Sub btnCtear_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnClear.Click 
txtActivity.Clear() 

End Sub 

' Thu tuc nay tao mot cay doi tupng chuta OBJECT_DEPTH + 1 dd'i tupng 
Private Sub btnCreateObjects_Click{ByVal sender As System.Object, ByVal'6 As 
System.EventArgs) Handles btnCreateObjects.Click 


' Chi cho phep ton t?i mdt dky tai mdt thdi diem 
If m_TestObject Is Nothing Then 

Me.AddToActivityLogC -- Creating Object Tree - ") 

' Tao dd'i tupng Test se tU dong tgo cdy d6i ti/png 
m_TestObject = New GcTest(“TestObject\ OBJECT_DEPTH) 

AddHandler m_TestObject.ObjectGclnfo, AddressOf myObjectEventHandler 

Dim myObject As Object 

For Each myObject In m_TestObject.GetSelfAndChildGenerations() 
AddToActivityLog(myObject.ToStringO) 

Next 

' Hien thi cay doi tifdng 
ShowT estObjectsj) 

Else 

MsgBoxfPlease Kill existing objects before creating new objects.", _ 
MsgBoxStyle.OKOnly, Me.Text) 

End If 
End Sub 

’ Thi 3 tuc ndy dispose doi tUdng dupe chon trong IstCreatedObjects 
Private Sub btnDisposeObject_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDisposeObject.Click 

If Me.IstCreatedObjects.Selectedltem Is Nothing Then 
Return 


End If 
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' Lay ten cua doi ttfcng duoc ch(?n 

Dim strName As String = Me.IstCreatedObjects.Selectedltem.ToStringQ 

AddToActivityLogf -- Disposing of “ + strName + "--") 

If strName = Me.m_TestObject.Name Then 

m_TestObject.Dispose(chklsFinalizeSuppressed.Checked) 
m_TestObject = Nothing 
Else 

ir^TestObject.DisposeChildNamedfstrName, _ 
chklsFinalizeSuppressed.Checked) 

End If 

ShowT estObjectsQ 
End Sub 

' Thu tyc n&y huy ddi ti/gng di/dc chon trong IstCreatedObjects 

Private Sub btnKillObject_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles btnKillObject.Click 

If Me.IstCreatedObjects.Selectedltem Is Nothing Then 
Return 
End If 

Dim strName As String = Me.IstCreatedObjects.Selectedltem.ToStringO 
Me.AddToActivityLogC -- Killing " + strName + " -- “) 

If strName = Me.m_TestObject.Name Then 
m_TestObject = Nothing 
Else 

m_TestObject.KillChildNamed(strName) 

End If 

ShowT estObjectsQ 


End Sub 
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’ Thu tyc n£y ep Garbage Collector (GC) ch$y ■ - ; - 
Private Sub btnRunGC_Click(ByVal sender As System.CfoJfeet, ByVal e As 
System.EventArgs) Handles btnRunGGCIick ■"y ? 

Me.lstCreatedObjects. Items. Clear() ; -' j: 

Me.lstCreatedObjects.Refresb() ; ' ; r? 

Me.AddToActivityLog(‘--Runrifng GGih-■) ^ 

GC.Collect() 

GC.WaitForPendingFinalizers() 

If Not m_TestObject Is Nothing Then j ,■ ■ 

Dim myObject As Object 

For Each myObject In m_TestObject,GetSelfAndChildGenerations() 
Me.AddToActivityLog(myObject.ToStringO) 

Next 
End If 

ShowT estObjectsQ 
End Sub 

Private Sub AddToActivityLog(ByVal message As String) 

Try 

Me.txtActivity.AppendText(message + vbCrLf) 
Me.txtActivity.ScrollToCaret() 

Catch ode As ObjectDisposedException 

MsgBox(message, MsgBoxStyle.OKOnly, Me.Text) 

Catch aoor As System.ArgumentOutOfRangeException 
MsgBox(message, MsgBoxStyle.OKOnly, Me.Text) 

Catch ex As Exception 

MsgBoxfException Occurred. " + ex.ToStringO, _ 
MsgBoxStyle.OKOnly, Me.Text) 

End Try 
End Sub 

’ Thu tyc nay xii ly tat ca cac si/ kien do cac doi tupng GcTest phat sinh 
Private Sub myObjectEventHandler(ByVal message As String) 

AddT oActivityLog(message) 

End Sub 
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Private Sub ShowTestObjects() 

Me. IstCreatedObjqcts. Items. Clear() 

If Not Me.m_TestObject Is Nothing Then 
Dim tmpObject As Object 

For Each tmpObject In m_TestObject.GetSelfAndChildNames() 
Me.lstCreatedObjects. Items. Add(tmpObject) 

Next 
End If 
End Sub 
End Class 


85. L4p trinh Socket 

Chufcfng trinh nky chi cdch suf dung Sockets trong Visual Basic .NET. 



Cac chUcnana chinh: 


Chuong trinh nay suf dung ckc class Socket .NET TcpListener vk TcpCIient 
vk StreamWriter de xky difng mot Chat Server cho phdp nhieu Client kdt ndi 
v&o d6ng thdi. Ta se tim hieu ba hutfng quan trong ciia lap trinh socket: 

> Trao do! gltfa Server va Client. Lfng dung Server cho phdp nhap v&o 
mdt chudi vk gufi cho tfi't ca ckc client c6 ket nd'i v&o. Bl thuf chtfc n&ng 
n&y ta phdi chay Server vk c6 it nhat mot client ket ndi v&o. 
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> Trao doi glufa Client va Client Guri van ban tit mpt client d£n tat ca 

c kc client c6n lai c6 k&t ritfi d£n server. C4n chay server vk it nhat hai 
client de thijf tlnh n&ng n&y. 

> Trao doi giufa Client va Server (Client y&u c&u v& Server tra lcfi). 
Client gift d&n server m$t y§u cdu c&n danh sftch cua tat ca ngirdi sur 
dung dang k£t ntfi vko Server, Khi Client nh$n dime trd Idi, n6 dira 
danh sdeh n&y vfto ListBox. 


Solution: Sockets 
Project. Sockets Server 

UserConnection.vb 

Option Strict On 

Imports System.Net.Sockets 
Imports System.Text 

‘ Class UserConnection gom chCfc nkng cua mdt ket noi TcpCIient cho mdt user 
Public Class UserConnection 

Const READ_BUFFER_SIZE As Integer = 255 

' Overload New di thid't l$p mdt tiSu trinh doc 
Public Sub New(ByVal client As TcpCIient) 

Me.client = client 

' Lenh nky Start tiiu trinh doc. DU lieu se dUdc liAi vko readBuffer 
Me.client.GetStream.BeginRead(readBuffer, 0, READ_BUFFER_SIZE, _ 

AddressOf StreamReceiver, Nothing) 

End Sub 

Private client As TcpCIient 

Private readBuffer(READ_BUFFER_SIZE) As Byte 
Private strName As String 

’ Thudc tinh Name dmh danh ket noi cho moi user 
Public Property Name() As String 
Get 

Return strName 
End Get 
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Set(ByVal Value As String) 
strName = Value 
End Set 
End Property 

Public Event LineReceived(ByVal sender As UserConnection, _ 

ByVal Data As String) 

' Thu tyc nay sur dung mdt Stream Writer dS giti m$t message cho user 
Public Sub SendData{ByVal Data As String) 

' SyncLock bao dam Id khong c6 tieu tr'mh khac c6 sit dyng stream nay 
' vio cung thdi diSm. 

SyncLock client.GetStream 

Dim writer As New lO.StreamWriter(client.GetStream) 
writer.Write(Data & Chr(13) & Chr(10)) 

' Bao dim li tit ci dii lieu da dUQc gCti 
writer.Flush() 

End SyncLock 
End Sub 

’ Diy li him callback cho TcpCIient.GetStream.Begin. 

Private Sub StreamReceiver(ByVai ar As lAsyncResult) 

Dim BytesRead As Integer 
Dim strMessage As String 

Try 

SyncLock client.GetStream 

’ Kit thuc viec d<pc bit ddng bd vio readButler vi lay so byte doc ditgc 
BytesRead a client.GetStream.EndRead(ar) 

End SyncLock 

1 Chuyen mang byte nhan dupe thanh message, trif di mdt ky ft/ (Chr(13)) 
strMessage - Encoding.ASCII.GetString(readBuffer, 0, BytesRead - 1) 
RaiseEvent LineReceived(Me, strMessage) 

SyncLock client.GetStream 

' Bit diu mdt hinh ddng dQc khic 

client.GetStream.BeginRead(readBuffer, 0, READ_BUFFER_SIZE, _ 

* AddressOf StreamReceiver, Nothing) 


End SyncLock 
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Catch e As Exception 
End Try 
End Sub 
End Class 

frmMatn.vb 

Option Strict On 

Imports System.Net.Sockets 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code phat sinh form dUOc bd qua 

Const PORT_NUM As Integer = 10(300 f < ' 

Private clients As New Hashtable() 

Private listener As TcpListener 

Private listenerThread As Threading.Thread 

• • .. ! ;i - Ho,.-. ; , . 

’ Thu tyc nky guri mgt messagi dSft tii^ck tike citorit c6 kit nii vio server 
Private Sub Broadcast(By Valsfi'MessageAs String) 

Dim client As Usert^ot^nieitbn 
Dim entry As DictionaryEntry 

’ Tit ck ckc phin tCf trong HashTable Ik UserConnection 
For Each entry In clients 

client = CType(entfy. Value, UserConnection) 
client.SendData(strMessage) 

Next 
End Sub 

' Thu tuc nky giii ndi dung cua TextBox Broadcast din tit ca client 
Private Sub btnBroadcast_Click<ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnBroadcast.Click 
If txtBroadcast.Text <> ** Then 

UpdateStatusfBroadcasting: “ & txtBroadcast.Text) 
Broadcast("BROADI‘ & txtBroadcast.Text) 
txtBroadcast.Text = '* 

End If 
End Sub 
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' Thu tyc niy kiSm tra m$t user da co trong HashTable hay chita. Ndu co thi giti 
‘ m$t message REFUSE, nSu chua c6 thi xac nh$n Id JOIN 
Private Stria CortnectUaer(ByVal userName As String, ByVal sender As 
UserConnecfion) 

If cRenfe.ContBtns(userName) Then 
ReptyT©Sender(*REFUS£\ sender) 

Efe# 

sender. Warn e = userName 

UpdateStatus(userName & " has joined the chat.*) 
clients.AddfuserName, sender) 

’ Gift thdng bao JOIN dd'n sender, vi thong bio cho tit ci cic client khac 
SendToClients(“CHATI" & sender.Name & * has joined the chat.*, sender) 
End If 
End Sub 

' Thu tuc nay thdng bao cho cac client khac bidt sender da rdi phdng chat 
Private Sub DisconnectUser(ByVal sender As UserConnection) 
UpdateStatus(sender.Name & * has left the chat.*) 

SendToCKents(‘CHATr & sender.Name & " has left the chat.*, sender) 
clients. Remove(sender.Name) 

End Sub 

' Thu tuc niy dupe sit dung lim tiSu trinh ling nghe background d4 cho phip 
' dye cac message din mi khdng inh hudng din giao diin ngiidi sit dyng 
Private Sub OoListen() 

Try 

’ Ling nghe cac kSt n6i mdi 
listener = New TcpListener{PORT_NUM) 
listener. Start() 

Do 

' Tyo mdt kit n6i user mdi si} dyng TcpCIient ditdc tri ve tit 
' TcpListener.AcceptTcpClient() 

Dim client As New UserConnection(listener.AcceptTcpClient) 

' Tyo mdt event handler dS cho phep UserConnection trao d6i vdi cita sS 
AddHartdler client.LineReceived, AddressOf OnLineReceived 
UpdateStatus(*New connection found: waiting for log-in") 

Loop Until False 
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Catch | \; 

End Try, ,«. 

End Sub 

' Khi cua $6 ddng, ngtfng v#c tiling nghe 

Private Sub frmMain„Ckt*>ni0(ttyV»t deader As Object. ByVai e As 
System.ComponentModelCeneelEventAfgs) Handies MyBase.Closing 
listener.Stop() 

End Sub 

' Start ti£u trktii ting nghe 

Private Sub frmMain_L oedflByVal sender A* System .Qbjept. Byyal e As 
System. EventArgs) Handtea JLoad 

listenerThread = New ThreedwgTbreediAddressQf DoUsten) 
listenerThread$tart() 

UpdateStatusfUetener eteried") 

End Sub 

‘ N6i ten tit ci gem vAg& eho user cd y£u ciu danh sdch 
Private Sub UejUeewCM^etfei^daf A$ UeerConnection) 

Dim client As OserConnection 
Dim entry Ac OMtofttiryEntry 
Dim strUserUet As String 

UpdateStatusf^b^bp * A sender.Name & ’ a list of users online.") 


strUseriist = "LfSTUSERS" 

For Each entry In clients 
client * CTypef entry. Value, UserConnection) 
strUser^fet * etrUserUst & T & client.Name 
Next 


' GCti danh sdch cho sender 
ReplyToSeoder{strUserList, sender) 
End Sub 
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' Xit ly khi UserConnection nh$n mdt ddng d£y du. Phdn tfch dQ lieu nhan dude 
Private Sub Onl_ineReceived(ByVal sender As UserConnection, ByVal data As 
String) 

Dim dataArrayO As String 

’ C&c phdn cua message ditgc phin Idch bing d£u T 
dataArray = data. SplK(Chr( 124)) 

* dataArray(O) Id l$nh 
Select Case dataArray(O) 

Case ’CONNECT* 

ConnectUser(dataArray{1), sender) 

Case ’CHAT’ 

SendChat(dataArray(1), sender) 

Case ’DISCONNECT’ 

DisconnectUser(sender) 

Case ’REQUESTUSERS* 

ListUsers(sender) 

Case Else 

UpdateStatusCUnknown message:’ & data) 

End Select 
End Sub 

* Thu tyc ndy gCli mdt tri Idi din sender 

Private Sub ReplyToSender(ByVal strMessage As String, ByVal sender As 
UserConnection) 

sender. SendData(strMessage) 

End Sub 

1 GCti mdt chat message cho t£t ci client ngo$i trCr sender 

Private Sub SendChat(ByVal message As String, ByVal sender As 

UserConnection) 

UpdateStatus(sender.Name & ’: * & message) 

SendToClients(*CHATI“ & sender.Name & ’: ’ & message, sender) 

End Sub 
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‘ Thu tpc ndy gCti m$t message dSn t£'t ci client c6 k&t n6i ngopi trCf sender 
Private SubSendToClients(8yVal strMessage As String, ByVal sender As 
UserConnection) 

Dim client AsUserConnect(on:- : >j i -r' 

Dirrt entry As DictienaryEntry y. - o 

For Each entry In clients 
client = CType(entry.Value, UserConnection) 

' Khdng gCfi cho ngddi gCti message. 

If client.Name <> sender.Name Then 
client.SendData(strMessage) 

End If 
Next 
End Sub 

‘ Them mot ddng v&o listbox Status 
Private Sub UpdateStatus(ByVal statusMessage As String) 

IstStatus. Items. Add(statusMessage) 

End Sub 
End Class 

Project: Sockets Client 

frmMain.vb 

Option Strict On 

Imports System.Net.Sockets 
Imports System.Text 
Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code phat sinh form dupe bd qua 

Const READ_BUFFER_SIZE As Integer = 255 
Const PORT_NUM As Integer = 10000 

Private client As TcpCIient 

Private readBuffer(READ_BUFFER_SlZE) As Byte 
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1 Md hop thoai Connect User vd gCii mot message yeu ciu tham gia chat 
Sub AttemptLogin() ^ 

Dim frmConnectUser As New frmConnectUser() 

i 

frmConnectUser. StartPosition = FormStartPosition.CenterParerrt 
frmConnectUser. ShowDialog(Me) 

SendDataf CONN ECU" & frmConnectUser.txtUsert_ogin.Text) 
frmConnectUser.Dispose() : - 

End Sub 

‘ Xoa ListBox User va yiu cau server guti danh sAchcAcuster r " 
Private Sub btnListUsers_Click(ByVal sendef As SyS^efrt.Obtedt, fiyVal'e As 
System.EventArgs) Handles btnListUsers.Click 
IstUsers. Items. Clear() 

SendData(*REQUESTUSERS") 

End Sub 

‘ G&i n$i dung trong textbox Sandhi*. -'•* 

Private Sub btnSend_CKck(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handies btnSend.Click 
If txtSend.Text <> Then 

DisplayTextGYou say: * & txtSend.Text & Chr(13) & Chr(10)) 
SendDaia("CHATf* & txtSend.Text) 
txtSend.Text = 

End If 
End Sub 

‘ Ghi thSm v&n bin vAo TextBox output 
Private Sub DisplayText(ByVal text As String) 
txtDisplay. AppendT ext(text) 

End Sub 

' Day Id hAm callback cho TcpCIient.GetStream.Begin 64 6 qc dO lieu 
Private Sub DoRead(ByVal ar As lAsyncResult) 

Dim BytesRead As Integer 
Dim strMessage As String 

Try 

' KSt thuc vide cJqc vA tri ve s6 byte 6 qc dupe 
BytesRead - client.GetStream.EndRead(ar) 
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If BytesRead < 1 Then 

' NSu khdng dipc dWQc byte n£o do server da dong. Disable cute so input 
MarkAsDisconnected() 1 ' » 

Exit Sub 
End If 

' Chuyen ming byte sang message, trtf hai ky b/ Chr(13) vi Chr(10) 
strMessage = Encoding.ASCHGetStrtrrg(readBuffer, 0, BytesRead - 2) 
ProcessCommands(stiMessage) * '-C. " ' 

* Startmdt tidutrkihdgc tohtfe i! ' - s 
client.GetStreamJ3egfnRead{readBuffer, 0, READ_BUFFE#T:SIZE, _ 

AddressOf DoRead, Nothing) 

Catch e As Exception 
MarkAsDisconnected() 

End Try 
End Sub 

* GCfi 6&n server mdt messge thdng bio c&t k&t n6i 
Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As 
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing 
' Chi gufi khi server con host dong 
If btnSend.Enabled = True Then 
Send Data(" DISCONNECT") 

End If 
End Sub 

' Khi ch$y chucfng trinh, thu tuc niy ket n6i vio server vi tii'n hanh log in 
Private Sub frmMain_Load(ByVai sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 

Dim frmConnectUser As New frmConnectUser() 

Try 

client = New TcpClient(‘localhost", PORT_NUM) 

client.GetStream.BeginRead(readBuffer, 0, READ_BUFFER_SIZE, _ 

AddressOf DoRead, Nothing) 

' Bao dam ciia s6 chlnh hidn thi tnfdc khi hien thi hdp thoai k£t n6i 

Me.Show() 

AttemptLoginQ 
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Catch Ex As Exception 

MsgBoxfServer is not active. Please start server and try again.', 

MsgBoxStyle.Exclamation, Me.Text) 

Me.Dispose() 

End Try 
End Sub 

' Cho danh sach cac user vio listbox 
Private Sub ListUsers(ByVal users() As String) 

Dim I As Integer vt 

For I = 1 To users.Length -1, 

IstUsers. Items. Add(users(l)) 

Next 
End Sub 

' Khi Server cit kit ndi, khdng cho gtfi cic message khac 
Private Sub MarkAsDisconnectedO 
txtSend.Readonly * T* ue 
btnSend.Enabled e False 
End Sub 

’ Xtt ly l$nh nhin tti server vi c6 hAnh d$ng thlchhdp 
Private SubProcessCommands(ByVal strMessage As String) 

Dim dataArrayQ As String 
' Cac phin cua message cAch nhau bdi d£u 
dataArray = strMessage.Split(Chr(124)) 

' dataArray(O) IA linh 
Select Case dataArray(O) 

Case ’JOIN' 

1 Server bao cho bidt IA da login 
DisptayText("Vou have joined the chat* & Chr(13) & Chr(10)) 
Case 'CHAT' 

’ Nhin message chat, hiSn thj no 
DisplayText(dataArray(1) & Chr(t3) & Chr(10)) 

Case “REFUSE" 

' Server tCl chdi dang nhAp do tin user, login vdi tin khAc 
AttemptLoginQ 




Case “LISTUSERS" 


' Server gtii danh s&ch c£c user 
ListUsers(dataArray) 

Case “BROAD" 

' Server gtii m$t message broadcast (gift cho tit ci client) 
DisplayTextfServerMessage:" & dataArrafy(i) & Chr(13) & Chr(IO)) 
End Select 
End Sub ; 

' SCt dyng Stre&mWriter.<34gtii mdt message dS'rr server 
Private Sub Send0ate(ByVai data As String) 

Dim writer As New lO.StreamWriter(client.GetStream) 
writer. Write (data & vbCr) > 
writer. Flush{) » 

End Sub 
End Class 

frmConnectUser.vb 

Option Strict On 

Public Class frmConnectUser 

Inherits System.Windows.Forms. Form 

#Region * Windows Form Designer generated code ' 

Public Sub New() 

MyBase.New() 

‘This call is required by the Windows Form Designer. 

I n itializeComponent() 

’Add any initialization after the lnitializeComponent() call 
End Sub 

‘Form overrides dispose to clean up the component list. 

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) 

If disposing Then 

If Not (components Is Nothing) Then 
components.Dispose{) 

End If. 

End If 

MyBase.Dispose(disposing) 

End Sub 
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Required by the Windows Form Designer ;i f 

Private components As System.CkjmponentModel.KSorttemOr ' 

NOTE: The following procedure is. feqoiredbfthe WindowsFo*m Designer 
It can be modified using4hO WindowsForm Designers 
Do not modify it using the code editor. 

Friend WithEvents btnLogin As System.Windows.Forms.BLrtton 
Friend WithEvents txtUserLogin As System.Wimiows.Forms.TextBox 
Friend WithEvents IbllnstoucAione As System.Wkxiow3.FormeXat>el 
<System Diag nos tics. DebuggerStepThnaughO> Private Sub tnitializeComponent() 
Me.btnLogin = New System Windcnes.Fofms.B^jttord) 

Me.txtUserLogm = New System. Windows.Forms.TextBoxf) 

Me. Ibllnstructions = New System. Window$.Forms.Label() 

Me. SuspendLayout() 

btnLogin 

Me.btnLogin.DialogResult = System.Windows.Forms.DialogResult.Cancel 
Me. btnLogin. Location = New System.Drawing.Point(75, 150) 

Me. btnLogin .Name = ‘btnLogin* 

Me.btnL 0 gin.Si 2 e * New System.Drawing.Size(141,46) 

Me. btnLogin. Tab Index = 0 
Me.btnLogin.Text = "&Login" 

1 

txtUserLogin 

Me.txtUserLogin.Location s New System.Drawing.Point(18, 103) 

Me.txtUserLogin.Name = "txtUserLogin* 

Me.txtUserLogin.Size = New System.Drawing.Size(262, 20) 
Me.txtUserLogin.Tablndex = 1 
Me.txtUserLogin.Text ="“ 

‘Ibllnstructions 

Me.Ibllnstructions.Font = New System.Drawing.FontfMicrosoft Sans Serif*, 
9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 
CType(0, Byte)) 

Me.Ibllnstructions.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), 
CType(0, Byte), CType(192, Byte)) 
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Me. Ibllnstructions. Location = New System.Drawing.Poiwl( 141* 

Me.Ibllnstructions.Name = "Ibllnstructions" ' 1 

Me.Ibllnstructions.Size = New System.Drawing.Size(282, 75} 

Me.Ibllnstructions.Tablndex = 2 
Me.lbllnstructions.Text = "Please enter a unique name to log into the chatutitlty. 
If login name already e" & _ 

"xists you will be returned to this dialog to attempt another name." 

frmConnectUser 

Me.AcceptButton = Me. btn Login 
Me.AccessibleDescription = “Connect User Form" 

Me.AccessibleName = "Connect User Form" 

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) 

Me.CancelButton = Me.btnLogin 

Me.ClientSize = New System.Drawing.Size(317, 211) 

Me. Controls. AddRange(New System.Windows.Forms.ControlQ 
{Me.Ibflnstructions, Me.txtUserLogin, Me.btnLogin}) 

Me.FormBorderStyle = 

System. Windows.Forms.FormBorderStyle.FixedToolWindow 
Me.MaximizeBox = False 
Me.MinimizeBox = False 
Me. Name = "frmConnectUser" 

Me.Text = "Connect User’ 

Me.ResumeLayout(False) 

End Sub 
#End Region 
End Class 

86. So sanh cac control dung tren Web Forms va 
Windows Forms 

Chifcrng trinh n&y cho thay cdch ket dflr li§u v& truy xu£t d£n th6ng tin 
difctc chon tren cac control cho ph6p chon mot gi£ tri (single-select) v4 chon 
nhi^u gii tri.(mutil-select). Suf dung c&c control c6 c6ng dung gin nhif nhau 
tr§n Web Forms v& Windows Forms, tr&n Windows Forms sur dung cdc 
control ComboBox vh CheckedListBox, tr£n Web Forms suf dung c£c control 
DropDownList v£ CheckBoxList. 






> K&t dor lipu vdi DataSet 'v& Array List. 

> SOr dung mpt phircmg thdc Shared cua Class Library ho trp d£ th£m mot 

chon lira phu cho m$t control cd k£t dur li$u, chon lira n&y rat hay dupe 
sur dung trong umg dung thirc t£: "All _" ho&c "Any_ 

> Truy xu&'t thdng tin cua item dupe chon (tr&n control chi cho chon mot 
gid tri) ho&c cua cdc item diroc chon (tr£n control cho phdp chon nhi£u 
giA tri). 

Chu y: 

> Chuong trlnh ni-iy suf dung database Northwind cua SQL Server cue bo 
ho£c MSDE. 

> Solution n&y c6 ba project: Helper, Simple Windows Forms Controls, 
SimpleWebControls. Nhip dup chuot vko file setup.vbs d& c&i dat vh 
ch6p project SimpleWebControls vao IIS. 


Solution: So sanh DataBinding giua Web Forms va Windows Forms 
Project: Helper 


Hetper.vb 

Option Strict On 
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Public Class Ul 

* Him niy thim mot chon Ida khac v&o dong diu tiSn cua DataTable. 

Shared Function AddOption(ByVal ds As DataSet, ByVal strDisplayField As String, 
ByVal strValueField As String, ByRef strNewOptionText As String, ByVal 
strNewOptionValue As String) As DataSet 
Dim dt As DataTable 

Dim drNew As DataRow - 

dt = ds.Tables(O) 

drNew = dt.NewRow() 
drNew(strDisplayField) = StrNewOptionText 
drNew(strValueField) = strNewOptionValue 
dt.Rows.lnsertAt(drNew, 0) 

dt.AcceptChanges() . .. 

■ ■ y . • tr.'f e 

Return ds 
End Function 

' Him nay them mdt ch<?n Itja vao d4u cua mot ArrayList 

Shared Function AddOption(ByVal arl As ArrayList, By Vat ctajNawdption As Object) 
As ArrayList . , , 

arl;lnsert(0, objNewOption) ' ■ 

Return art 

End Function , 

End Class 

Product.vb 

Option Strict On 

’ Class Product sCt dung cho kSt dQ li$u vho m$t ComboBox. 

' Cac thudc tinh phii lit Readonly d4 c6 thi kSt vio ComboBox 
Public Class Product 
Dim _ID As Integer 
Dim _Name As String 

Sub New{ByVal intID As Integer, ByVal strName As String) 

_ID = intID 
_Name = strName 
End Sub 
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Public Readonly Property ID() As Integer 
Get ■ ' 

Return _ID 
End Get 

End Property 1 


Public Readonly Property Name() As String 
Get 

Return _Name 
End Get 

End Property ■ 1 ‘ ' 

End Class : " ;l '‘ '' 





Project: Simple Windows Forms Controls 


Window* r.jnn 


ComboBttf QwMjflw 


□ GudbvindttMtoti. 

"2 Louaana Piety Hot Peppet Sauce 

: Pat. 

□ SSfcMSaoel,. ,f u 

.: LotSbna Hot Spiced Okia 

Pav 

□ GuitoGunmtochsn 

. MaremupDred Apples 

. Pet» 

□ &M|#tKMidkdhtid 

p Matcatpene Fabioi 

Qut 

Li Hum 

*WawUcu 

. Qut 

P Inlagd Si 

: Mishi Kobe Niku 

Rac 

[ ■ IpchCottoe 

] Mozzateia da Ctovarm 

Ra\ 

irff Jack'i NewEngland Clam Chowdet 

.... Notd-Ott Matieshetnn 

Rhc 

I Kortw 

Northwoods Danbetry Sauce 

Roc 

r LakkaBcodn 

NiMuCa Nufi-Nougat-Deme 

Roc 

j Laughing Lun^jiKli bgn 

Original Piankiuttei ghine Softe 

Reis 

vBoHlHIIIIHM 

Outback Laget 

Sas 

1J 

| 

2 } 


Show Chackad Itemt ~| 

Lack's New England QamChowdei (4U Longite To)u (74). MaxJaku (49). 


frmMain.vb 

Option Strict On 

• Imports System.Data.SqlClient 
Imports System.Text 
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• Public Class frmMain 

Inherits System.Windows.Forms.Form 

Protected Const CONNECTION_ERROR_MSG As String = _ 

"To run this sample, you must have SQL or MSDE." 

Protected Const MSDE_CONNECTION_STRING As String = _ 
"Server=(local)\NetSDK;" & _ 

"DataBase=Northwind;“ & _ 

"Integrated Security=SSPI‘ 

Protected Const SQL_CONNECTION_STRING As String = _ 

"Server=localhost;“ & _ 

"DataBase=Northwind;“ & _ 

“Integrated Security=SSPI“ 

Private arlProducts As ArrayList 

Private dsProducts As DataSet 

Private FormFlasLoaded As Boolean = False 

Private sdrProducts As SqlDataReader 

Private strConn As String t 

■ ' Code phM sinh form dupe bd qua 

Private Sub btnBindComboBox_Click(ByVa! sender As System.Object, ByVal e As 
System. EventArgs) Flandles btnBindComboBox.Click 
IblSelected.Text = ““ i ‘ 

. i 

If optDataReader.Checked Then 
BindComboBoxUsingDataReader() 

Else 

BindComboBoxUsingData^etQ 
End If ■ 

End Sub 

' HiSn thj tat ca cac item duqc chon tren CheckedListBox 

Private Sub btnShowChecked_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnShowCheckedltems.Click 


Dim sb As New StringBuilderQ 
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' DataRowView la kieu cua cAc ddi tupng dupe lUu trong CheckedltemCollection 
' trong thuoc ttnh Checkedltems 
Dim drwvltem As DataRowView 

For Each drwvltem In clstProducts.Checkedltems 
sb.Append(drwvltem(“Name')) 
sb.Append(" (“) 
sbAppend(drwvltem('lD")) 
sb.Appendf), ") 

Next 

txtChecked.Text = sb.ToString 
End Sub 


' Hien thj index, vAn bin, vA giA trj cua item dupodfiph trong ComboBox 
Private Sub btnShowSelectedltem_Click(ByVal sendelf Xs System.Object, ByVal e 
As System.EventArgs) Handles btnShov^electedttemiClick 
With cboProducts r - . 

IbISelected.Text = ‘You selected option * & .Selectedlndex.ToString & _ 

\ Its value is 11 & .SelectedValue.ToString & “ and its " & _ 

“text is — & .Text & 

End With 
End Sub 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles MyBase.Load 
FormHasLoaded = True 
BindComboBoxUsingDataSetQ 
BindCheckedListBoxUsingDataSet() 

End Sub 

Private Sub AddltemToDataSource(ByRef arl As ArrayList) 

With arl 

.Add(New Helper.Product(sdrProducts.Getlnt32(0), _ 
sdrProducts(“ProductName").ToString)) 

End With 
End Sub 
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Private Sub BindCheckedListBoxUsingDataSet() 

With clstProducts 

DisplayMember = “Name" 

ValueMember = "ID" 

If Trim(txtNewOption.Text) <> "" Then 

DataSource = Helper.UI.AddOption(dsProducts, .DisplayMember, 
.ValueMember, txtNewOption.Text, "0‘).Tables(0) 

Else 

.DataSource = dsProducts.Tables(O) 

End If 
End With 
End Sub 


Private Sub BindComboBoxUsingDataReader() 
strConn = SQL_CONNECTION_STRING 

Dim strSQL As String = _ 

“SELECT ProductID, ProductName " & _ 

"FROM Products “ & _ 

"ORDER BY ProductName" 

Dim scnnNorthwind fKs New SqlConnection(strConn) 

Dim scmd As New SqlCommand(strSQL, scnnNorthwind) 

arlProducts = New ArrayList() ■ 

Dim frmStatusMessage As New frmStatus() • ‘ " 

Try 

frmStatusMessage.Show("Connecting to SQL Server to load Products ‘ & 
"using a DataReader") 

* Dai 1 giiy <3$ ngu&i $uf dgng th$y cAc thdng bao 
System.Threading.Thread.Sleep(1000) 


scnnNorthwind.OpenO 

sdrProducts = scmd.ExecuteReader(CommandBehavior.CloseConnection) 




804 


- Coding Tothtiiqui'c -- 


‘ Duyet qua DataReader. PhUdng thtic Read • tra ve True neu cdn ddng 
' khac dS doc 
While sdrProducts.Read 

AddltemToDataSource(arlProducts) 

End While 

With cboProducts 
ValueMember = *ID“ 

.DisplayMember = “Name" 

If Trim(txtNewOption.Text) <> M Then 

DataSource = Helper.Ul.AddOption(arlProducts, _ 

New Helper. Product(0, txtNewOption.Text)) 

Else 

.DataSource = arlProducts 
End If 
End With 

sdrProducts.CloseO 

frmStatusMessage.Close() 

Catch expSql As SqtException 

MsgBox(expSql.ToString, MsgBoxStyle.Critical, Me.Text) 

End Try 

End Sub ■ ■ \ 

Private Sub BindComboBpxUsingDataSel<) 
strConn = SQL_CONNECTION_STRING 

Dim strSQL As String = _ 

"SELECT ProductID As ID, ProductName As Name “ & _ 

“FROM Products ' & _ 

“ORDER BY ProductName" 

Dim scnnNorthwind As New SqlConnection(strConn) 

Dim scmd As New Sq!Command(strSQL, scnnNorthwind) 

Dim sda As New SqlDataAdapter(scmd) 
dsProducts = New DataSet() 


Dim frmStatusMessage As New frmStatusQ 
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frmStatusMessage.ShowfConnecting to SQL Server to load Products “ & _ 
"using a DataSet 11 ) 

Dim IsConnecting As Boolean = True 
While IsConnecting 
Try 

sda.Fill(dsProducts) 

IsConnecting = False 
System.Threading.Thread.Sleep(1000) 
frmStatusMessage.Close() 

Catch expSql As SqlException 

MessageBox.Show(expSql.ToString, Me.Text, _ 

MessageBoxButtons.OK, MessageBoxIcon. Error) 

End Try 
End While 

With cboP rod ucts 

.DisplayMember = "Name* 

ValueMember = "ID“ * . ' ’ 

' Khdng giSng vdi DropDownUst WebControl, ta phii truy xuitddn collection 
‘ Tables cua.DataSet d4 kSi dtf U$u, cho dO chlcd mdt DataTable trong DataSet. 
It Trim(txtNewOption.text) <» then 
.DataSource = Helper.ULAddOption(dsProducts, .DisplayMember, _ 
ValueMember, txtNewOpt ion .Text, , 0“).Tables(0) 

Else 

, DataSource ? dsProdMCts.Tables(O) 

End If 
End With 
End Sub 
End Class 1 

I 

Project: SimpleWebControls 
mairt.aspx 

<%@Page Language="vb" AutoEventWireup="false" Codebehind="main.aspx.vb , ‘ 
lnherits=‘SimpleWebControls.Main M %> 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN“> 
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<HTML> 

■ <HEAD> 

<title>Web and Windows Forms</title> 

<meta content='Microsoft Visual Studia.NET 7>0* nam£jfc*GENERATOR‘> 
<meta content=*Visual Basic 7.0' name=“CODE_LANGUAGE*> 

<meta contents'JavaScript* names’ vs_defaultClien!Script*> 

<meta content='http://schemas.microsoft.com/intellisense/ie5' 
name=*vsJargetSchema*> 

• </HEAD> . 

<body> 

<form id=*frmMain* method=*post* runat=“$erver*> 

<HR width=*100%* SIZE=*1’> 

<table> : l ',e 

<t r> , , . - .:•„ ; 

<td>Fill DropDownList using:</td> 

<#r> 

</table> 

<asp:radiobuttonlist id='optlDataSource* runat=“server“ 
RepeatDirection=“Horizontal“> 

<asp:Listltem Values'DataSet* Se»ected=*True“^DataSet</asp:Listltern> 
<asp:Listltem Value="DataReader“>DataReader</asp:Listltem> 
</asp:radiobuttonlist> 

<P>New Option: 

i _... t . 

<asp:textbox id=“txtNewOption* runat=*seiyer’>AII 
Products</asp:textbox>&nbsp;(leave 

blank to not add an option)</P> 

<Pxasp:button id=“btnBindDropDownLiSt“ runat=*server" Text=*Bind 
DropDownList'‘x/asp:button>&nbsp; 

<asp:button id=*btnShowSelectedltem‘ runat=“server* Text=*Show 
Selected item'x/asp:buttonx/P> 

<Pxasp:dropdownlist id='cboProducts' 
runat=''server , 'x/asp:dropdownlistx/P> 

<Pxasp:label id="lblSelected' runat='server*x/asp:labelx/P> 

<P> 

<HR width='100% u SIZE=“1“> 

<asp:CheckBoxList id='clstProducts* runat=*server* 
RepeatDirection=“Horizontal" RepeatColumns="4"x/asp:CheckBoxList> 
<Px/P> 

<P> 

<asp:Button id=“btnShowCheckedltems" runat='server'‘ Texts'Show 
Checked ltems'x/asp:Buttonx/P> 
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<P> 

<asp:Label id=‘lblChecked“ runat="server“></asp:Label></P> 

</form> 

</body> 

■ </HTML> 

main.aspx.vb 

Option Strict On 
Imports System . Data .Sq 1C lie nt 
• Imports System.Text 

Public Class Main 

Inherits System.Web.Ul.Page 

Protected WithEvents IbITitle, IbIChecked, IbISelected As Label 

Protected WithEvents cboProducts As DropDownList 

Protected WithEvents txtNewOption As TextBox 

Protected WithEvents btnBindDropDownList, btnShowSelectedltem, 

btnShowCheckedltems As Button 

Protected WithEvents clstProducts As CheckBoxList 

Protected WithEvents optIDataSource As RadioButtonList 

#Region “ Web Form Designer Generated Code " 

'This call is required by the Web Form Designer. 

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponentQ 
End Sub 

Private Sub Page_!nit(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.lnit 

'CODEGEN: This method call is required by the Web Form Designer 

'Do not modify it using the code editor. 

lnitializeComponent() 

End Sub 

#End Region 

Private arlProducts As ArrayList 
Private dsProducts As DataSet 
Private sdrProducts As SqiDataReader 
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Private strConn As String 

Protected Const MSDE_CONNECTION_STRING As String =_ 
"Server=(local)\NetSDK;‘ & _ 

“DataBase=Northwind;' & __ 

“Integrated Security=faise;user id=sa;password=“ 

Protected Const SQL_CONNECTION_STRING As String = _ 
fl Server=localhost;“ & _ 

“DataBase=Northwind;“ & _ 

‘Integrated Security=false;user id=sa;password=“ 

Private Sub btnBindDropDownl_ist_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnBindDropDownList.Ciick 
IbISelected.Text = “ 

If optlDataSource.Selectedlndex = 0 Then 
BindDropDowListl)singDataSet() 

Else 

BindDropDowListUsingDataReader() 

End If 
End Sub 

* Hien thi danh sach cdc item dU0c chQn trong CheckBoxList 
Private Sub btnShowChecked_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnShowCheckedltems.Click 
Dim item As Listltem 
Dim sb As New StringBuilder() 

For Each item In clstProducts.Items 
If item.Selected Then 
sb.Append(item.Text) 
sb.Appendf (‘) 
sb. Append (item. Value) 
sb.Append( M ), “) 

End If 
Next 

IblChecked.Text = sb.ToString 


End Sub 




— Coding Technique* 


809 


' Hien thj index, vim bin, vi gii tri cua item dddc chon tr&n DropDownList 
Private Sub btnShowSelectedltem_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnShowSelectedltem.Click 
With cboProducts 

IbISelected.Text = “You selected option " & Selected Index.ToString & _ 

V Its value is “ & .Selectedltem.Value & " and its " & _ 

‘text is "" & .Selectedltem.Text & 

End With 
End Sub 

Private Sub PageJ_oad(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
If Not Page.IsPostBack Then 
BindDropDowListUsingDataSet() 

BindCheGkBoxttetUsingDataSetO 
End If 
End Sub 

Private Sub AddltemToDataSource(ByRef arl As Array List) 

With arl 

.Add(New Helper.Product($drProducts.Getlnt32(0), _ 
sdrProducts(‘ProductNarrie").ToString)) 

End With 
End Sub 

Private Sub BindCheckBoxListUsingDataSet() 

With clstProducts 

.DataTextField = “Name" 

.DataValueField = “ID" 

If Trim(txtNewOption.Text) <> ““ Then 

.DataSource = Helper.UI.AddOption{dsProducts, .DataTextField, _ 
.DataValueField, txtNewOption.Text, "0") 

Else 

.DataSource = dsProducts 
End If 

.DataBindO 
End With 
End Sub 
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Private Sub BindDropDowListUsingDataReader() 

strConn = SQL_CONNECTION_STRING 

Dim strSQL As String = _ 

'SELECT ProductID, ProductName " & _ 

“FROM Products" 

Dim scnnNorthwind As New SqlConnection(strConn) 

Dim scmd As New SqlComrrrand(strSQL, ScnnNorthwind) 
arlProducts = New ArrayList() 

scnnNorthwind. OpenO 

sdrProducts = scmd.ExecuteReader(CommandBehavior.CloseConnection) 

While sdrProducts.Read 

AddltemToDataSource(arlProducts) 

End While 

With cboProducts 

.DataValueField = “ID* 

.DataTextField = "Name" 

If Trim(txtNewOption.Text) o ““ Then 

DataSource = Helper.Ui.AddOption(arlProducts, _ 

New Helper.Product(0, txtNewOptiop.Text)) 

Else 

.DataSource = arlProducts 
End If 

' Ta phii goi DataBind() khi sCt dpng' cdc WebControl 
.Data Bind 0 
End With 

sdrProducts.Close{) 


End Sub 
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Private Sub BindDropDowListUsingDataSet() 
strConn = SQL_CONNECTION_STRING 
Dim strSQL As String = _ 

"SELECT ProducttD As ID, ProductName As Name “ & _ 

"FROM Products " & _ 

"ORDER BY ProductName" 

Dim scnnNorthwind As New SqlConnection(strConn) 

Dim scmd As New SqlCommand(strSQL, scnnNorthwind) 

Dim sda As New SqlDataAdapter(scmd) 

dsProducts = New DataSetQ 

sda.Fill(dsProducts) 

With cboProducts 

DataTextField = "Name" 

.DataValueField = “ID" 

‘ Khong c&n truy xuSt dSn biing eg thS khi DataSet chi chtla mot bang 
If Trim(txtNewOption.Text) <> "" Then 

.DataSource = Helper.UI.AddOption(dsProducts, .DataTextField, _ 
.DataValueField, IxtNewdption.Text, "0") 

Else 

DataSource - dsProducts 
End If 

' Phii ggi phuong thClc DataBindQ 
.DataBind() 

End With 
End Sub 
End Class 




87. Stf dung cong COM 


Chitting trinh nay chi cdch difeu khiehi cdng COM trong .NET. Bdi vi .NET 
Framework khong h6 trd dieu khi£n true tigp Comm Port, do dd ta sd dung 
mot class khac c6 ho trcr goi cdc h&m Win32 API true ti£pd£ di&ukhien nd. 



Cac chjjfc n5na chfnh: 

> Ki£m tra mdt c&ig comm c6 s&n s&ng d£ suf dung. 

> Suf dung Comm Port d£ trao d 6i vdi modem. 

> Suf dung ede h&m Win32 API d£ diiu khiln vi$e trao d6i vdi Comm Port 
(mdy tinh can cd mpt modem). 


Project: Comm Port 


Rs232.vb 

• Option Strict On 

■ Imports System.Runtime.InteropServices 
Imports System.Text 
- Imports System.Threading 
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’ Class n&y cung c£p mqi thCf c£n thii't d£ trao doi vdi Comm Port 
Public Class Rs232 

’ Khai bao c£c bi£n class v£ khdi tao gi£ trj 
Private mhRS As Integer = -1 ' Handle cOa Com Port 

Private miPort As Integer = 1 ' M&c nhiSn IS COM1 

Private mrTimeout As Integer = 70 ’ Timeout tinh bang mili giiy 
Private miBaudRate As Integer = 9600 
Private meParity As DataParity = 0 
Private meStopBit As DataStopBit = 0 
Private miDataBit As Integer = 8 

Private miBufferSize As Integer = 512 ' Kich thilfoc Buffer m$c nhiSn let 512 byte 

Private mabtRxBuf As ByteQ ' Buffer nhan 

Private meMode As Mode ' Che dd ISm viec ctia class 

Private mbWaitOnRead As Boolean 

Private mbWaitOnWrite As Boolean 

Private mbWriteErr As Boolean 

Private muOverlapped As OVERLAPPED 

Private muOverlappedW As OVERLAPPED 

Private muOverlappedE As OVERLAPPED 

Private mabtTmpTxBuf As Byte() ' buffer t$m sti dung bdi Async Tx 

Private moThreadTx As Thread 

Private moThreadRx As Thread 

Private miTmpBytes2Read As Integer 

Private meMask As EventMasks 

#Region "Enums" 

Public Enum DataParity 
Parity_None = 0 
ParitLOdd 
Parity_Even 
Parity_Mark 
End Enum 

Public Enum DataStopBit 
StopBit_1 = 1 
StopBit_2 
End Enum 
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Private Enum PurgeBuffers 
RXAbort = &H2 
RXCiear = &H8 
TxAbort = &H1 
TxClear = &H4 

End Enum . . 

Private Enum Lines ... 

SetRts = 3 
ClearRts = 4 
SetDtr = 5 
ClearDtr = 6 

1 1 ': K - s t* ' '• . J * 

ResetDev = 7 ■ , ' 

. ■ ■ .-o<A 

SetBreak = 8 

ClearBreak = 9 , 

End Enum 

. *■ , ^ / » 

' Enum nAy cung dp cAc giA tri tr^ng thAi cup Modem , St? dgng Flag() chophAp 
1 sCf dung phAp toAn bit cue cAc giA trj 
<Flags()> Public Enum ModemStatusBits 
ClearToSendOn = &H10 
DataSetReadyOn = &H20 
RinglndicatorOn = &H40 
CarrierDetect = &H80 
End Enum 

' Che do I Am viec 
Public Enum Mode 
NonOverlapped 
Overlapped 
End Enum 

<Flags()> Public Enum EventMasks 
RxChar = &H1 
RXFIag = &H2 
TxBufferEmpty = &H4 
ClearToSend = &H8 
DataSetReady = &H10 
ReceiveLine = &H20 
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Break = &H40 
StatusError = &H80 

Ring = &H100 > 

End Enum rt- 

#End Region 

#Region‘Structures" • 

1 Cac ciu true niy sCf dyng bdi cac him Windows API n 
<StructLayout(LayoutKind.Sequential, Pack:=1)> Private Structure DCB 
Public DCBIength As Integer -V - r 

Public BaudRate As Integer 

Public Bitsl As ftteger ; v 

Public wReserved As Inti 6 
Public XonLim As Inti6 .. ... 

Public XoffUm As Inti 6 
Public ByteSize As Byte 
Public Parity As Byte : v 

Public StopBits As Byte - 
Public XonChar As Byte ^ \ f -w .•« , . ' > 

Public XoffChar AsBytq . -jv q. ir . ,v ; . 

Public ErrorChar As Byte ^ 

Public EofChar As Byte v . 

Public EvtChar As Byte 

Public wReserved2 As Int16 t - -a 

End Structure i : 

<StructLayout(LayoutKind.Sequential, Pack:=1)> Private Structure 
COMMTIMEOUTS 

Public ReadlntervalTimeout As Integer 
Public ReadTotalTimeoutMultiplier As Integer 
Public ReadTotalTimeoutConstant As Integer 
Public WriteTotalTimeoutMultiplier As Integer 
Public WriteTotalTimeoutConstant As Integer 
End Structure 

<Structlayout(LayoutKind.Sequential, Pack:=1)> Private Structure COMMCONFIG 
Public dwSize As Integer 
Public wVersion As Inti 6 
Public wReserved As Inti 6 
Public debx As DCB 
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Public dwProviderSubType As Integer 
Public dwProviderOffset As Integer 
Public dwProviderSize As Integer 
Public wcProviderData As Byte 
End Structure 

<StructLayout(LayoutKind. Sequential, Pack:=1)> Public Structure OVERLAPPED 
Public Internal As Integer ■ 

Public InternalHigh As Integer -■ 

Public Offset As Integer *'■ ; i 

Public OffsetHigh As Integer "‘-iV■/? \ • * 

Public hEvent As Integer ■ .'■( ,:** v 1 

End Structure ^ . 

• fn.", • 

#End Region 1 

#Region'Exceptions’ 

’ Class n&y djnh nghla mdt Exception sS phdt sinh khi NACK difpc pMit sinh 
Public Class CIOChannelExceptlqn ■ Inherits ApplicatidnException 
Sub New(ByVal Message As String) ~ ' 

MyBase.New(Message) * e -- ;; ■ 1 

End Sub r ; 

Sub New(ByVal Message As String, ByVal InnetException As Exception) 
MyBase.New(Message, InnerException) 

End Sub 

End Class f '■ ' 

‘ Djnh nghla timeout exception 

Public Class lOTimeoutException : Inherits ClOChannelException 
Sub New(ByVal Message As String) 

MyBase.New(Message) 1 

End Sub 

Sub New(ByVal Message As String, ByVal InnerException As Exception) 
MyBase.New(Message, InnerException) 

End Sub 
End Class 


#End Region 
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#Region “Events'* 

' C6c sii kiSn n£y cho phep chiicing trtnh stidyng oiass n&ydS tiidng tac vdi cac 
' sU kien cua Comm Port 

Public Event DataReceived(ByVal Source As Rs232, ByVal DataBuffer() As Byte) 
Public Event TxCompleted(ByVal Source As Rs232) 

Public Event CommEvent(ByVal Source As Rs232, ByVftl MaskAs EventMasks) 
#End Region ’ y.c 

t/ 

#Region “Constants’ 

Private Const PURGE_RXABORT As Integer ^ &H2 
Private Const PURGE_RXCLEAR As integer - a : 

Private Const PURGE_TXABORT As integer^ £M1 , 

Private Const PURGE_TXCIEAR As Integer s &H4 

Private Const GENERIC_READ As integer = &H80000000 

Private Const GENERIC_WRITE As Integer = &H40000000 

Private Const OPEN_EXISTING As Irtteger = 3 

Private Const INVALID_HANDLE_VALUE As Integer = -1 

Private Const IO_BUFFER_SIZE As Integer = 1024 

Private Const FILE_FLAG_OVERLAPPED As Integer = &H40000000 

Private Const ERROR_IO_PENDING As Integer = 997 

Private Const WAIT_OBJECT_0 As Integer - 0 

Private Const ERROR JOJNCOMPLETE As Integer = 996 

Private Const WAIT_TIMEOUT As Integer = &H102& 

Private Const INFINITE As Integer = &HFFFFFFFF 
#End Region 

#Region "Properties'* 

* Thuoc tinh de nhan ho£c quy dinh BaudRate 
Public Property BaudRate() As Integer 
Get 

Return miBaudRate 
End Get 

Set(ByVal Value As Integer) 
miBaudRate = Value 
End Set 
End Property 
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' Thude ti'nh d£ nhan hodc quy djnh BufferSize 
Public Property BufferSize{) As Integer 
Get 

Return miBufferSize 
End Get 

Set(ByVal Value As Integer) 
miBufferSize = Value 
End Set 
End Property 


' ThuQc tinh d$ nh^nhodc quy dfnhDM&BH r ' *■ 
Public Property DataBitQ As IM^ger j v r ' 

Get ’ *\ ■ 

Return miDataBit - 1 ‘ '* • 

End Get 

Set(ByVal Value As Integer) •• •••• ' ^ ^ A . > 

miDataBit = Value ‘ ■/ - 

End Set ■ 11 s 

End Property ^ ; 

l Thude tinh chi ghi, dung d£ set hoSc reset DTR 
Public WriteOnly Property Dtr() As Boolean 
Set(ByVal Value As Boolean) 

If Not mhRS = -1 Then 
If Value Then 

EscapeCommFunction(mhRS, Lines.SetDtr) 
Else 

EscapeCommFunction(mhRS, Lines.ClearDtr) 
End If 
End If 
End Set 
End Property 


' Thude tinh chi dqc, tra ve mdt m&ng cac byte dQ HSu d£n 
Overridable Readonly Property lnputStream() As Byte() 
Get 

Return mabtRxBuf 
End Get 
End Property 
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' Tri ve chudi cac byte dd lieu den 

Overridable Readonly Property InputStreamStringQ As String 
Get 

Dim oEncoder As New System.Text.ASCHEncodingO 

Return oEncoder.GetString(Me.lnputStream) 

End Get 
End Property 

’ Tra v4 tr?ng thai (Open) cua Comm Port 
Readonly Property lsOpen() As Boolean 
Get 

Return CBool(mhRS <> -1) 

End Get 
End Property 

' Tri v4 trang thai cua modem 

Public Readonly Property ModemStatusQ As ModemStatusBits 
Get 

lfmhRS = -1 Then 

Throw New ApplicationException(‘Please initialize and open ‘ + __ 
■port before using this method") 

Else 

' Truy xu£t tr$ng thai cua modem 
Dim IpModemStatus As Integer 

If Not GetCorr»mModemStatus(mhRS, IpModemStatus) Then 
Throw New ApplicationException(“Unable to get modem status') 
Else 

Return CType(lpModemStatus, ModemStatusBits) 

End If 

End If 
End Get 
End Property 

’ Thudc tinh nay nh$n hodc quy dinh Parity 
Public Property ParityQ As DataParity 
Get 

Return meParity 
End Get 
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Set(ByVal Value As DataParity) 
meParity = Value 
End Set 
End Property 

' Thudc tinh ndy nh$n hodc quy djnh Port 
Public Property Port() As Integer 
Get 

Return miPort 
End Get 

Set(ByVal Value As Integer) 
miPort = Value 
End Set 
End Property 

’ Set hodc reset RTS 

Public WriteOnly Property Rts() As Boolean r 
Set(ByVal Value As Boolean) < 

If Not mhRS = -1 Then 
If Value Then 

EscapeCommRunction^iQhRS, Unes.SetRts) 
Else i 

EscapeCommFunction(mhRS, Lines.ClearRts) 
End if 
End If 
End Set • 

End Property _ 

' Thudc tinh nhin hoic quy djnh StopBit 
Public Property StopBit() As DataStopBit 
Get 

Return meStopBit 
End Get 

Set(ByVal Value As DataStopBit) 
meStopBit = Value 
End Set 


End Property 
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’ Tra vS chuSi cac byte dU li$u 66n 

Overrtdable Readonly Property InputStreamStringO As String 
Get 

Dim oEncoder As New System.Text.ASCIIEncodingO 

Return oEncoder.GetString(Me.lnputStream) 

End Get 
End Property 

' Tri vS tr$ng thAi (Open) cOa Comm Port 
Readonly Property IsOpfenO As Boolean 
Get 

Return CBoot(mhRS <>-1) 

End Get 
End Property 

' Tri v6 trgng th£i cua modem 

Public Readonly Property ModemStatusO As ModemStatusBits 
Get 

If mhRS - -1 Then 

Throw New ApplicationExceptionfPlease initialize and open tt + _ 
■port before using this method") 

Else 

* Truy xuA't trgng thAi cua modem 
Dim IpModemStatus As integer 

If Not GetCorpmModemStatus(mhRS, IpModemStatus) Then 
Throw New ApplicationExceptionCUnable to get modem status") 
Else 

Return CType(ipModemStatus, ModemStatusBits) 

End If 

End If 
End Get 
End Property 

’ Thuoc tfnh nay nh$n hoAc quy djnh Parity 
Public Property Parity() As DataParity 
Get 

Return meParity 
End Get 
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Set(ByVal Value As DataParity) 
meParity = Value 
End Set 
End Property 

' Thuoc tinh ndy nhin hodc quy djnh Port 
Public Property Port() As Integer 
Get 

Return miPort 
End Get 

Set(ByVal Value As integer) • 

miPort = Value 
End Set 
End Property 

' Set hodc reset RTS 

Public WriteOnly Property Rts() As Boolean f 
Set(ByVal Value As Boolean) < 0 e 

If Not mhRS = -1 Then 
If Value Then 

E scape Com m Fimcfion(v»hRS, Lines :SetRts) 
Else •••: 

EscapeCommFunction(mhRS, Lines,ClearRts) 
End If 
End If 

End Set ■ ■ u 
End Property 

' Thudc tinh nh$n hodc quy djnh StopBit 
Public Property StopBit() As DataStopBit 
Get 

Return meStopBit 
End Get 

Set(ByVal Value As DataStopBit) 
meStopBit = Value 
End Set 


End Property 
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' Timeout 

Public Overridable Property Timeout() As Integer 
Get 

Return miTimeout 
End Get 

Set(ByVal Value As Integer) 

miTimeout = Clnt(llf(Value = 0, 500, ValuP)) 
pSetlimeoutO 
End Set 
End Property 

Public Property WorkingMode() As Mode 
Get 

Return meMode 
End Get 

Set(ByVal Value As Mode) 
meMode = Value 
End Set 
End Property 

#End Region 

#Region “Win32API‘ 

‘ C£c h£m sau id c&c h&m Win32 API c£n thiet de thtjc hi$n trao dSi vdi c6ng COM 
<Dlllmport( , kernel32.dll‘)> Private Shared Function BuildCommDCB( _ 

ByVal IpDef As String, ByRef IpDCB As DCB) As Integer 
End Function 

<Dlllmport("kernel32.dll*)> Private Shared Function ClearCommError( _ 

ByVal hFile As Integer, ByVal IpErrors As Integer, _ 

ByVal I As Integer) As Integer 
End Function 

<Dllimport("kernel32.dlt“)> Private Shared Function CloseHandle( _ 

ByVal hObject As Integer) As Integer 
End Function 
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<Dlllmport('kernel32.dll‘)> Private Shared Function CreateEvent( _ 

ByVal IpEventAttributes As integer, ByVal bManualReset As Integer, _ 
ByVal blnitialState As Integer, _ 

<MarshalAs(UnmanagedType.LPStr)> ByVal IpName As String) As Integer 
End Function 

<Dlllmport(*kernel32.dU")> Private Shared Function CreateFile( _ 
<MarshalAs(UnmanagedType.LPStr)> ByVal IpFileName As String, _ 

ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, _ 
ByVal IpSecurityAttributes As Integer, _ 

ByVal dwCreationDisposition As Integer, _ 

ByVal dwFlagsAndAttributes As Integer, _ 

ByVal hTemplateFile As Integer) As Integer 
End Function 

<Dlllmport(“kernel32.dll“)> Private Shared Function EscapeCommFunction( _ 
ByVal hFile As Integer, ByVal ifunc As Long) As Boolean 
End Function 

<Dlllmport( ,, kernel32.dll‘)> Private Shared Function FormatMessage( _ 

ByVal dwFlags As Integer, ByVal IpSource As Integer, _ 

ByVal dwMessageld As Integer, ByVal dwLanguageld As Integer, _ 
<MarshalAs(UnmanagedType.LPStr)> ByVal IpBuffer As String, _ 

ByVal nSize As Integer, ByVal Arguments As Integer) As Integer 
End Function 

Private Declare Function FormatMessage Lib “kernel32* Alias _ 
"FormatMessageA" (ByVal dwFlags As Integer, ByVal IpSource As Integer, _ 
ByVal dwMessageld As Integer, ByVal dwLanguageld As Integer, _ 

4s Ssri/Ty&vjkter, Sf'Vat/As/rtfag&f, _ 

ByVal Arguments As Integer) As Integer 

<Dlllmport(“kernel32.dir)> Public Shared Function GetCommModemStatus( _ 
ByVal hFile As Integer, ByRef IpModemStatus As Integer) As Boolean 
End Function 

<Dlllmport{*kemel32.dll“)> Private Shared Function GetCo mm State ( _ 

ByVal hCommDev As Integer, ByRef IpDCB As DCB) As Integer 
End Function 





<Dlllmportfkernel32.dir')> Private Shared Fundfran GetComrhTirneduts( _ 
ByVal hFile As Integer, ByRef IpComrnTimeouts As GOMMTIMEOUTS) As 
Integer 
End Function 

<Dlllmport(“kernel32.dll*)> Private Shared Function GetLastEnorQ As Integer 
End Function ■ , 

<Dlllmport(“kernel32.dir)> Private Shared Function GetOverlappedResult( _ 
ByVal hFile As Integer, ByRef IpOverlapped As OVERLAPPED, _ 

ByRef IpNumberOfBytesTransferred As Integer, _ 

ByVal bWait As Integer) As Integer 
End Function 

<Dlllmport( M kernel32.dH u )> Private Shared Function PurgeComm(_ 

ByVal hFile As Integer, ByVal dwFlags As Integer) As Integer 
End Function 

<Dlllmport(“kernel32.dir)> Private Shared Function ReadFile( _ 

ByVal hFile As Integer, ByVal Buffer As Byte(), _ 

ByVal nNumberOfBytesToRead As Integer, _ 

ByRef IpNumberOfBytesRead As Integer, _ 

ByRef IpOverlapped As OVERLAPPED) As Integer 
End Function 

<Dlllmport{“kernel32.dll“)> Private Shared Function SetCommTimeouts( _ 
ByVal hFile As Integer, ByRef IpCommTimeouts As COMMTIMEOUTS) As 
Integer 
End Function 

<Dlllmport("kernel32,dir)> Private Shared Function SetCommState( _ 

ByVal hCommDev As Integer, ByRef IpDCB As DCB) As Integer 
End Function 

<DlllmportCkernel32.dir)> Private Shared Function SetupComm( _ 

ByVal hFile As Integer, ByVal dwInQueue As Integer, _ 

ByVal dwOutQueue As Integer) As Integer 
End Function 
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<Dlllmport(‘kernel32.dir)> Private Shared Function SetCommMask( _ 
ByVal hFile As Integer, ByVal IpEvtMask As Integer) As integer 
End Function 

<Dlllmport('kernel32.dir)> Private Shared Function WaitCommEvent( _ 
ByVal hFile As Integer, ByRef Mask As EventMaSks, _ * - 
ByRef IpOverlap As OVERLAPPED) As Integer 
End Function 

■ ' .v. . i , ‘ < ' v 

<Dlllmport(“kernel32.dll“)> Private Shsrdti Function WaitFOrSIngfeObjectf _ 
ByVal hHandle As Integer, ByVal dwMillisecohdsAsfntegeOAs Integer 
End Function ..e# ■ ’•/ 

<Dlllmport(' , kernel32.dll*)> Private Shared Function WriteFite( _ 

ByVal hFile As integer, ByVat Buffer As 6yit#0, (1 « “ ‘ 

ByVal nNumberOtBytesToWrite As 1ntegei> _ 

ByRef IpNumberOfBytesWritten As Integer, _ 

ByRef IpOverlapped As OVERLAPPED) As Integer 
End Function !' :. • & 18 : 

r 

#End Region •• ••• P' • '• 

#Region “Methods" 1 


' Thu tuc n&y thi/c hien c3qc khdng <S6ng bQ, thu tyc nky khdng sCt dung tnjc 
‘ tid'p nhi/ng dUQc sCf dyng cho class. 

Public Sub _R() 

Dim iRet As Integer = Read(miTmpBytes2Read) 

End Sub 

‘ GCfi ra cong COM 
Public Sub _W() 

Write(mabtTmpTxBuf) 

End Sub 
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' Thu tuc nay sCf dung mdt thread khac d4 dgc tif ctfng COM. No phat 
' sinh RxCompleted khi dpc xong. N6 dgc m$t s6' nguydn 
Public Overloads Sub AsyncRead(ByVai Bytes2Read As Integer) 

If meMode <> Mode.Overlapped Then Throw New ApplicationException( _ 
“Async Methods allowed only when WorkingModd^Overlapped’) 
miTmpBytesSRead = Bytes2Read 
moThreadTx = New ThreacKAddressOf _R) 
moT h readTx. Start() 

End Sub 

' Thu tyc n&y sfi dyng mdt tiiu trkih khic di ghj r& c&rig COM. N6 phdt sinh 
‘ TxCompleted khi hoAn tit. N6 ghi m$t min^ oic Byte ; 

Public Overloads Sub AsyncWrite(ByVal Buffer() Afe Qytd) v 

If meMode <> Mode.Overlapped Then ThroW New AppHcatiohExc©pfion( _ 
“Async Methods allowed only when WorkingMode=Ove dapped*) J 
If mbWaitOnWrite = True Then Throw New Applicationfcxception( _ 

"Unable to send message because of pending transmission.’) 
mabtTmpTxBuf = Buffer 
moThreadTx = New Thread(AddressOf _W) 
moThreadTx.Start() 

End Sub 

* Ghi mdt chuii ra cSng COM 

Public Overloads Sub AsyncWrite{ByVal Buffer As String) 

Dim oEncoder As New System.Text.ASCIIEncodingO 
Dim aByte() As Byte = oEncoder.GetBytes(Buffer) 

Me.AsyncWrite(aByte) 

End Sub 

' Kiem tra Modem co ho$t ddng khong 

Public Function CheckLineStatus(ByVal Line As ModemStatusBits) As Boolean 
Return Convert.ToBoolean(ModemStatus And Line) 

End Function 
’ Xoa noi dung cua buffer 
Public Sub ClearlnputBuffer() 

If Not mhRS = -1 Then 

PurgeComm(mhRS, PURGE_RXCLEAR) 

End If 
End Sub 
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' Dong cdng COM 
Public Sub Close() 

If mhRS <> -1 Then 
CloseHandle(mhRS) 

mhRS = -1 ^ i ... . .; 

End ,f • , • -T , , r 

End Sub ,, ; 

' Md va khdi tao Comm Port 

Public Overloads Sub Open() ^ 

Dim uDcb As DCB, iRc As Integer 
' Quy djnh chddo lam vi$c ( . 

Dim iMode As Integer = Convert.Tolnt32(Hf(meM^de = Mode.Overlapped, 
FILE_FLAG_OVERLAPPED, 0)) ...... 

' Khdi tao cong COM , • - ( ■ 

If miPort > 0 Then 
Try 

' Tao mit Stream Handle trin cdng COM 
mhRS = CreateFileCCOM* & miPort.ToString, _ 

GENERIC_READ Or GENERIC_WRITE, 0, 0, _ 

OPEN_EXISTING, iMode, 0) 

If mhRS <> -1 Then 

* Xoa ti t ci cic Idi tryydn thing 
Dim IpErrCode As Integer 
iRc = ClearCommErron(mhRS, IpErrCode, 0&) 

1 X6a cac buffer nhip/xudt 

iRc = PurgeComm(mhRS, PurgeBuffers.RXClear Or _ 
PurgeBuffers.TxClear) 

' Lay thing so cua cdng COM 
iRc = GetCommState(mhRS, uDcb) 

' Cip nhit thing sd cdng COM 
Dim sParity As String = “NOEM" 
sParity = sParity. Substring(meParity, 1) 

' Quy djnh DCB 

Dim sDCBState As String = String.Format( _ 

"baud={0} parity={1} data={2} stop={3}“, _ 
nfiiBaudRate, sParity, miDataBit, Clnt(meStopBit)) 
iRc = BuildCommDCB(sDCBState, uDcb) 
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iRc = SetCommStatefmhRS, uDcb) 

If iRc = 0 Then •, >, , , 

Dim sErrTxt As String = p€rr2TextfGetLastErrQr()) 
Throw New CIOChannelExceptionf _ 

"Unable to set COM stateO" & sErrTxt) 

End If . v'-r • ■; ; •« ; '■ ‘ } - ■ 

' Thi&t lip cic buffer 

iRc = SetupCOmm(mhRS, mjBufferSize, miBufferSize) 

' Quy djnh timeout 
pSetTimedutQ 

Else " * •\-; i '/ *. i 

‘ Phit sinh l3i khdi t$o 
Throw New CIOCharmelException( _ 

‘Unable to open COM" & miPort.ToString) 

End if : ? 0 ' 1 >. ./> • 

Catch Ex As Exception 

Throw New ClOChennelException(Ex. Message, Ex) 

End Try : ; ; 

Else 

' Khdng thf md 

Throw New AppiicationException(“COM Port not defined, “ + 
"use Port property to set it before invoking InitPort") 

End If 
End Sub 

‘ Overload thu tyc Open, cho phSp sCt dung tham s6’ 

Public Overloads Sub Open(ByVal Port As Integer, _ 

ByVal BaudRate As Integer, ByVal DataBit As Integer, _ 

ByVal Parity As DataParity, ByVal StopBit As DataStopBit, _ 
ByVal BufferSize As Integer) 

Me.Port = Port 

Me.BaudRate = BaudRate 

Me.DataBit *= DataBit 

Me.Parity = Parity 

Me.StopBit = StopBit 

Me.BufferSize = BufferSize 

Open() 

End Sub 
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' ChuySn cac ma loi API thinh vin bin 
Private Function pErr2Text(ByVal ICode As Integer) As String 
Dim sRtrnCode As New StringBuHder(256) ■ ■ } 

Dim IRet As Integer 

I Ret = FofmatMessage(&H1000, 0, ICode, 0, sRtrnCode, 256,0) 
If IRet >0 Then . %■ • <v' > v ' 

Return sRtrnCode.ToString .*.V. ■' 5 * ‘w u<r..2- 

Else ■ >' '• jO'tvV Jr ' r v.“s<. • 

Return “Error not found.' 

End If ‘ 



End Function . • 

: •' . -V. . 

Private Sub pHandleOverlappedRea<J(ByVa! l§ytes2Read As Integer) 

Dim iReadChars, iflc, iRes, iLastErr As tnteger 
muOverlapped.hEvent = CreaieEvent(Nothing, 1, 0, Nothing) 

If muOverlapped.hEvent = 0 Then 
' Khdng thS tQo,event 
Throw New ApplicationExceptk>n( _ 

"Error creating event for overlapped read.") 

Else 

' Dqc thao chS 66 overlapped 
If mbWaitOnRead = False Then 
ReDim mabtRxBuf(Bytes2Read -1) 
iRc = ReadFile(mhRS, mabtRxBuf, Bytes2Read, _ 
iReadChars, muOverlapped) 

If iRc = 0 Then 

iLastErr = GetLastErrorQ 
If iLastErr <> ERROR_IO_PENDING Then 
Throw New ArgumentException("Overlapped Read Error:" & 
pErr2Text(iLastErr)) 

Else 

' Set Flag 

mbWaitOnRead = True 
End If 


Else 
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' ViSc dgc hoan tit 

RaiseEvent DataReceived(Me, mabtRxBuf) - 
End If ‘ 

End If 
End If 

* Dpi cho thao t&c dQC ho&n tit 
If mbWaitOnRead Then 

IRes = WaitForSingleObject(muO/erlappedhEveht 1 fttlTimeout) 

Select Case iRes ■ ■ 

Case WAIT_OBJECT_0 

If GetOverlappedResult(mhRS, muOverlapped, _ 

IReadChars, 0) s^Thenf^ 1 .. ’ 

/ 1 ..\Zb.' r \ y <•»«v • "trv - v. ' 

iLastErr = GetLastErrofQ r > 

If {LastErr * EF*ROFUOJNGOMPLETE Then 
Throw New ApplicatlonException( _ 

' />’ a $»atf Wpfa&ton indbiAplete - ) 

Else * 

Throw Npw ApplicationException( _ 
v^BspJopefatlon errOr * & ILastErr.ToString) 

End If 

Els* ' * 

* Thao Me da hoin tit 

Ra&eEvent DataReceived(Me, mabtRxBuf) 
mbWaitOnRead = False 
End If 

Case WAIT.TIMEOUT 

Throw New IOTimeoutException( a Timeout error") 

Case Else 

Throw New ApplicationExceptionfOverlapped read error") 

End Select 
End If 
End Sub 

Private Function pHandleOveriappedWrite(ByVal BufferQ As Byte) As Boolean 

Dim i Bytes Written, iRc, iLastErr, iRes As Integer, bErr As Boolean 
muOverlappedW.hEvent = CreateEvent(Nothing, 1,0, Nothing) 
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If muOverlappedW.hEvent = 0 Then 
Throw New AppiicationException( _ 

"Error creating event for overlapped write. - ) 

Else 

’ Overlap write 

PurgeComm(mhRS, PURGE_RXCLEAR Or PURGE__TXCLEAR) 
mbWaitOnRead = True 

iRc = WriteFilefmhRS, Buffer, Bufferd-ength, _ 
iBytesWritten, muOverlappedW) 

If iRc = 0 Then 
iLastErr = GetLastErrorQ 
If iLastErr <> ERRORJO_PENDING Then 
Throw New ArgumentExceptionCOverlapped Read Error:" & _ 

pErr2Text(iLastErr)) • ' 

Else •. ■ 

' Dpi ■ jV -.- . •. . -V ■ 

iRes = WaitForSingleObjectfnfuOvertappedW.hEvent, INFINITE) 
Select Case iRes 

Case WAIT_OBJECT_0 .V, 

If GetOverlappedResultfmhFtS, muQverlappedW, _ 
iBytesWritten, 0) = 0 Then 

bErr = True * 

Else 

mbWaitOnRead = False 
RaiseEvent TxCompleted(Me) 

End If 
End Select 
End If 
Else 

bErr = False 
End If 
End If 

CloseHandle(muOverlappedW.hEvent) 

Return bErr 
End Function 
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' Quy djnh timeout cho cong COM 
Private Sub pSetTimeout() 

Dim uCtm As COMMTIMEOUTS 

If mhRS = -1 Then 
Exit Sub 
Else 

With uCtm 

.ReadlntervalTimeout = 0 
.ReadTotalTimeoutMultiplier - 0 
ReadTotalTimeoutConstant = miTimeout 
.WriteTotalTimeoutMultiplier = 10 
.WriteTotalTimeoutConstant = 100 
End With 

SetCommTimeouts(mhRS, uCtm) ■ . ' 

End If 
End Sub 

' H&m n&y tra ve mot s6' nguySn cho biet s6 byte doc dUdc tdcSng COM! 

' N6 chip nhan mdt tham sS' chi djnh so byte can dQC. 

Public Function Read(ByVal Bytes2Read As Integer) As Integer 
Dim iReadChars, iRc As Integer 

’ NSu Bytes2Read khdng dupe ch! djnh thi sti dyng Buftersize 
If Bytes2Read = 0 Then Bytes2Read = miBufferSize 
If mhRS = -1 Then 
Throw New ApplicationExceptionf _ 

"Please initialize and open port before using this method") 

Else 

’ Liy cac Byte til cSng COM 
Try 

If meMode = Mode.Overlapped Then 
pHandleOverlappedRead(Bytes2Read) 

Else 

ReDim mabtRxBuf(Bytes2Read -1) 

iRc = ReadFile(mhRS, mabtRxBuf, Bytes2Read, iReadChars, Nothing) 
If iRc = 0 Then 

Throw New ApplicationException( _ 

■ReadFile error" & iRc.ToString) 
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Else 

' Xil ly timeout ho$c tri vi c&c ky UJ (Jqc dUQc 
If iReadChars < Bytes2Read Then 

Throw New lOTimeoutExceptionfTimeout error”) 

Else 

mbWaitOnRead = True 
Return (iReadChars) 

End If 

End If ■,- 

End If C ? 

Catch Ex As Exception . Jv . > > 

Throw New AppHcationExceptioft('Read Error; * & ExMessage. Ex) 
End Try / 7 

End If i 

End Function 

* Gufi mdt ming cic byte ra c6ng COM 
Public Overloads Sub Write(ByVal Buffer As Byte()) 

Dim iBytesWritten, iRp As Integer ., 

If mhRS =-1 Then 

Throw New ApplicalionEfceptipn( _. f .i v s 

’ Please initialize and open port before using this method") 

Else 

' GCii dCt lieu ra cSng COM . 

Try . ", 

If meMode = Mode.Overlapped Then 
‘ Overlap write 

If pHandleOver)appedWrite(Buffer) Then 
Throw New ApplicationException( _ 

“Error in overlapped write*) 

End If 

Else 


' Xoa cac I/O buffer 

PurgeComm(mhRS, PURGE_RXCLEAR Or PURGE_TXCLEAR) 
iRc = WriteFile(mhRS, Buffer, Buffer.Length, _ 
iBytesWritten, Nothing) 
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If iRc = 0 Then 

Throw New ApplicationException( _ 

‘Write Error - Bytes Written " & _ 
iBytesWritten.ToString & “ of" & _ 
Buffer.Length.ToString) 

End If 
End If 

Catch Ex As Exception 
Throw 
End Try 
End If 
End Sub 

* Giti mdt chuSi ra cong COM 
Public Overloads Sub Write(ByVal Buffer As String) 

Dim oEncoder As New System.Text.ASCIIEncodingO 
Dim aByte() As Byte = oEncoder.GetBytes(Buffer) 
Me.Write(aByte) 

End Sub 
#End Region 
End Class 

frmMain.vb 

Option Strict On 
Imports System.Text 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Khai bao cac bien edn thief 
Private m_CommPort As New Rs232() 

Private m JsModemFound As Boolean = False 
Private m_ModemPort As Integer = 0 


* Code phat sinh form dddc bd qua 





834 


- Coding Technique - 


’ Kiem tra cac c6ng COM co trSn mAy tinh bhng cAch md cAc c6ng tiJ 1 den 4. 
Private Sub btnCheckForPorts_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCheckForPorts.Click 

' Kiem tra vA dAnh dd'u vAo ListBox 
Dim i As Integer 
For i = 1 To 4 

WriteMessagefTesting COM" + i.ToStringO) 

If IsPortAvailable(i) Then 

Me.clstPorts.SetltemChecked(i -1, True) 

Else 

Me.clstPorts.SetltemChecked(i -1, False) 

End If 
Next 

' Cho phAp sCt dyng nut"Find Modems" 

Me. btnCheckModems. Enabled = True 
End Sub 

' Gtjfi ISnh AT din bit ky c6ng COM nAo dang hogt ddng. Neu co tri Idi thi 
' mdt modem co thi sti dung dupe phAt hien trSn c6ng COM do. 

Private Sub btnCheckModems_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCheckModems.Click 
Dim i As Integer 
For i = 0 To 3 

If Me.clstPorts.GetltemChecked(i) Then 
If lsPortAvailable(i + 1) Then 

' Kiem tra xem cSng COM co tri Idi ISnh AT 
If lsPortAModem(i + 1) Then 
Me.mJsModemFound = True 
Me.m_ModemPort = i + 1 
' Hiin thi thong bAo 

WriteMessagefPort “ + (i + 1).ToString{) + _ 

“ is a responsive modem.") 

Else 

WriteMessage(“Port" + (i + 1).ToString() + _ 

“ is not a responsive modem.") 

End If 
End If 
End If 


Next 
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' NSu Dm thi'y mot modem, cho phip svf dying cic nut khic 
If Me.m JsModemFound Then 

Me.txtSelectedModem.Text = "Using Modem on COM* + _ 
Me.m_ModemPort.ToString() 

Me.txtUserCommand. Enabled = True 
Me. btnSendATCommand. Enabled = True 
Me.btnSendUserCommand.EnablejJ .= True, , 

End If (i . 

End Sub - 

’ X6a npi dung TextBox . .o . -V-v J v 1 '- .> 

Private Sub btnClear_Click<ByValsender AsSystem.Object, ByVal e As 
System.EveetArgs) Handies t^nCfear.Ctiok /) /I d 
Me.txtStatus.Clear() >._■ 

End Sub 

% 

' Giii l$nh AT ra modem std nhin tri fdr t& modem, n6 phy thupc vio timer 
' thi/c hiSn vtyciSQCi i.«.« 

Private Sub btnSendATComm$nd_Click(&yVatsend6t As System.Object, ByVal e 
As System EventArgs) Handles btnSendATCommand.Click 

Try 

‘ Cho ph6p Timer hoat d$ng , . 

Me.tmrReadCammPort. Enabled = True 
’ Thi/c hi$n md port 

m_CommPort.Open(m_ModemPort, 115200, 8, _ 
Rs232.DataParity,Parity_None, _ 

Rs232.DataStopBit.StopBit_1,4096) 

• Gtti l$nh AT ra c6ng COM 

m_CommPort.Write(Encoding.ASCH.GetBytes{"AT" & Chr{13))) 

’ Dpi thdi gian du Hu dS modem tri Idi vi timer phat sinh si/ kien Tick 
System.Threading.Thread. Sleep(200) 

Application.DoEventsO 
m_CommPort.Close() 

Catch ex As Exception 

MessageBox.ShowfUnable to communicate with Modem”) 
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Finally 

' Khong cho timer hoat dong 
Me. tmrReadComm Port. Enabled = False 
End Try 
End Sub 

' GCfi ISnh cO ngitdi sit dyng ra modem vi hh$n tri Idi tit no. 

Private Sub btnSendUserCommand_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles btnSendUserCommand.Click 
Try 

Me.tmrReadCommPort.Enabled = True 
m_CommPort.Open(m_ModemPort, 1 15200, 8 , _ 

Rs232.DataParity.Parity_None, 1 

Rs232.DataStopBit.StopBit_1,4096) 

' GCfi l$nh ra c6ng COM 

m_CommPort.Writd(Encoding.ASCII.GetBytes( _ 

Me.txtUserCommand.Text & Chr(13))) 
System. Th reading. Thread. Sleep(2dO) 

Application. DoEvents() 
m_CommPort.Close() 

Catch ex As Exception 

MessageBox.ShowfUnable to communicate with Modem") 

Finally 

Me.tmrReadCommPort.Enabted = False 
End Try 
End Sub 

' Ph&t sinh khi din chu ky cua Timer. No ghi til ci dQ lieu co trong buffer 
' cua Comm Port ra TextBox. 

Private Sub tmrReadCommPort„Tick(ByVa! sender As System.Object, ByVal e As 
System.EventArgs) Handles tmrReadCommPort.Tick 
Try 

' khi co dCt lieu, dgc tifng byte vi xuit no ra 
While (m_CommPort.Read(1) <> -1) 

WriteMessage(Chr(m_CommPort.lnputStream(0)), False) 

End While 
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Catch exc As Exception 
' Khdng cd g) dS dqc 
End Try 
End Sub 


1 Ki4m tra cSng cd gin modem. 

Private Function lsPortAModem(ByVal port As Integer) As Boolean 
Try 

m_CommPort.0pen(p0rt, ti 5200, 8, Rs232.DataParity.Parity_None, 
Rs232.DataStopBit.StopBit_1, 4096) 
m_CommPort.Write(Encoding.ASCII.GetBytes("AT" & Chr(13))) 
System.Threading.Thread.Sleep(200) 

Application. DoEvents() 

' Nhin thdng tin tri vi til Comm Port 
Try 

Dim b As Byte 

' C6 doc mdt byte. NS'u doc diigc th) gii sir cdng d6 c6 modem. 

' X6a buffer tri/dc khi thoat 
m_CommPort.Read(1) 
m_CommPort.ClearlnputBuffer() 
m_CommPort.Close() 

Return True 
Catch exc As Exception 

' Khdng doc dupe gi til Comm Port 
m_CommPort.Close() 

Return False 
End Try 

Catch exc As Exception 

' Khdng thS md port ho$c gifi dt7 lidu ra no 
Me.clstPorts.SetltemChecked(port -1, Fatse) 

MsgBoxfCould not open port.", MsgBoxStyle.OKOnly, Me.Text) 
Return False 
End Try 


End Function 
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" KiSm tra mot Port co sin sang khong 

Private Function lsPortAvailab!e(ByVal ComPort As Integer) As Boolean 
Try 

m_CommPort.Open(ComPort, 115200, 8, Rs232.DataParity.Parity_None, 
Rs232.DataStopBit.StopBit_1,4096) 

' NS'u c6 th£ chpy den d&y th) cSng COM sin s&ng 
m_CommPort.C!oseO 
Return True 
Catch 

' NSu chay d£n diy th) md cSng COM khdng thdnh cdng 
Return False 
End Try 
End Function 

’ Ghi m$t chudi ra TextBox txtStatus 
Private Sub WriteMessage(ByVal message As String) 

Me. txtStatus. Text += message + vbCrLf 
End Sub 


’ Ghi m$t chudi ra TextBox txtStatus vit chuySnqua ddng mdi ■ 

Private Sub WriteMessage(ByVal message As String, ByVat linefeed As Boolean) 
Me. txtStatus.Text+= message 

If linefeed Then ^ .- / 

Me. txtStatus.Text+= vbCrLf 
End If 
End Sub 
End Class 

88, Sd dung Event Log 

Chufcmg trinh n&y chi c£ch tircfng t4c vdi Event Log. 


1^ Event Log " 



Write to the Event Log 


Read from the Event Log 

Create and Delete Logs 
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Cac chufc nanq chinh: 

> Event Log c6 th£ d£ ddng duac suf dung bdi nhi&u tfng dung khdc nhau 
de lifu cdc I6i ufng dung, cdc khuyd'n cdo, vd cdc thdng tin chung. Sii 
dung class EventLog chtfa trong namespace System. Diagnostics, ta c6 
the dd dang ghi vdo hodc doc thdng tin tir Event Log cua may tinh cue 
b6 hodc cua mdy tlnh d xa. Trong chufdng trinh ndy ta s§ thdy edeh doc, 
ghi vdo cdc Log dd c6 cflng nhuf edeh tao mdi vd x6a ede Log. 

Project: Su diing Event Log 
frmMaln.vb 

• Option Strict On 

■ Public Class frmMain 

Inherits System.Windows.Forms.Form 

Private entryType As EventLogEntryType = EventLogEntryType.Error 
' Khi ghi vko Event Log cin truySn vko tin may tinh va phki c6 quySn ghi vko. 

Private machineName As String = Environment.MachineName 
Private logType As String = 

Dim frmWrite As New frmWrite() 

Dim frmRead As New frmReadQ 

Dim frmCreateDelete As New frmCreateDelete() 

■ ' Code phat sinh form dupe bd qua 

Private Sub btnWrite_Click(ByVa! sender As System.Object, ByVal e As 
System.EventArgs) Handles btnWrite.Click 

If frmWrite Is Nothing OrElse frmWrite.IsDisposed Then 
frmWrite = New frmWrite() 

End If 

frmWrite. Show() 
frmWrite.BringToFront(} 

End Sub 

Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnRead.Click 

If frmRead Is Nothing OrElse frmRead.IsDisposed Then 
frmRead = New frmRead() 

End If 
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frmRead.Show() 
frmRead.BringToFrontQ 
End Sub 

Private Sub btnCreateDelete_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btriCreateDelete.Click 

If frmCreateDelete Is Nothing OrElse frmCreateDelete.lsDisposed Then 
frmCreateDelete = New frmCreateDelete() 

End If 

frmCreateDelete.Show() 
frmCreateDelete.BringToFrontO 
End Sub 
■ End Class 

frmWrite.vb 

Imports System.Security 
Public Class frmWrite 

Inherits System.Windows.Forms.Form 

Private entryType As System.Diagnostics.EventLogEntryType = 
EventLogEntryType. Information 

1 Code phat sinh form dupe bd qua 

Private Sub cmdWriteEntry_Click(ByVa! sender As System.Object, ByVal e As 
System.EventArgs) _ 

Handles btnWriteEntry.Click 

Try 

If IsNumeric(txtEventlD.Text) Then 


’ Tham s6‘ dau tien la tin cua Log se ghi vdo, tham s6 thd hai let tSn 
' may tlnh, tham s6 thd ba Id nguon cua sp ki$n (thudng Id idn cua 
* dng dpng) 

Dim ev As New EventLogfApplication", _ 

System.Environment.MachineName, _ 

“Su dung Event Log") 

ev.WriteEntry(txtEntry.Text, entryType, Clnt(txtEventlD.Text)) 
ev.Close() 
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MessageBox.Show("Entry written to the event log’, _ 

‘frmWrite’, _ 

MessageBoxButtons.OK, _ • 

MessageBoxIcon. Information) 

Else 

1 EventID khdng phii l£ sd 

MessageBox.Show(‘Value entered into EventID textbox must be numeric’,. 
“Event ID Entry Error", _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon.Exclamation) 

End If 

Catch secEx As SecurityException 

MessageBox.Show(“Error writing to the event log: this may be due to a lack’ & 
“of appropriate permissions." & vbCrLf & secEx.Message, _ 

“Lack of Permissions", _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon. Error) 

Catch ex As Exception 

MessageBox.Show(’Error accessing logs on the local machine." & _ 
vbCrLf & ex.Message, _ 

‘Error accessing logs ", _ 

MessageBoxButtons.OK, „ 

M es sage Box Icon. E rro r) 

End Try 
End Sub 

Private Sub rdo_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ 
Handles rdoError.Click, rdolnfo.Click, rdoWarning.Click 
Dim rdo As RadioButton = CType(sender, RadioButton) 

Selept Case rdo. Name 
Case "rdoError" 

entryType = EventLogEntryType.Error 
Case "rdoWarning" 

entryType = EventLogEntryType. Warning 
Case "rdolnfo" 

entryType = EventLogEntryType.Information 
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Case Else 

Debug.Assert(False, “User selected an event log type that 1 & _ 

“ is not currently handled") 

End Select • 

End Sub 
End Class 

frmRead.vb 

Imports System.Security 

• v 

Public Class frmRead 

Inherits System.Windows.Forms.Form 

' LUu ten cua Log mA ngUdi sCf dpng mu6n xem 
Private logType As String = “" 

• ’ Code phAt sinh form dupe bd qua 

Private Sub cmdViewLogEntries_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnViewLogEntries.Click 
Try 

Const ENTRIES_TO_DISPLAY As Integer = 10 

Dim ev As New EventLog(logType, System.Environment.MachineName, _ 

“Su dung EventLog") 

Dim entry As EventLogEntry 

rchEventLogOutput.Text = "Event log entries (maximum of 10)," & _ 

" newest to oldest* & vbCrLf & vbCrLf 

Dim LastLogToShow As Integer = ev.Entries.Count - ENTRIES_TO_DISPLAY 
If LastLogToShow < 0 Then 
LastLogToShow = 0 
End If 

’ Hien thi 10 record cuoi cung cua log dupe chpn 
Dim i As Integer 

For i = ev.Entries.Count -1 To LastLogToShow Step -1 
Dim CurrentEntry As EventLogEntry = ev.Entries(i) 

rchEventLogOutput.Text &= "Event ID ; “ & _ 

CurrentEntry,EventID & vbCrLf 
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rchEventLogOutput.Text &= “Entry Type : " & _ 
CtwrentEntry.EntryType.ToStringO & vbCrLf 
rchEventLogOutput.Text &= “Message : “ & _ 

CurrentEntry.Message & vbCrLf & vbCrLf 

Next 

* C6 th4 duy$t qua tit ca record trong log sCt dung vdng lip for nhif sau 

' For Each entry In ev. Entries 

•Next 

Catch secEx As SecurityException 

MessageBox.Show(“Error reading an event log: this may be due to a lack of 
appropriate permissions.” & vbCrLf & secEx.Message, _ 

“Lack of Permissions”, _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon.Error) 

Catch ex As Exception 

MessageBox.ShowfError accessing logs on the local machine." & vbCrLf & 
ex.Message, __ 

"Error accessing logs/, _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon. Error) 

End Try 
End Sub 

Private Sub lstEntryType_SelectedlndexChanged(ByVal sender As Object, ByVal e 
As System.EventArgs) _ 

Handles IstEntryType.SelectedlndexChanged 
‘ Li/u log dupe chon 

logType = CType(lstEntryType.ltems(lstEntryType.Selectedlndex()), String) 

End Sub 

Private Sub frmReadJ_oad(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
Try 

Dim CurrentLog As EventLog 

For Each CurrentLog In EventLog.GetEventLogs() 

IstEntryType. Items. Add(CurrentLog.LogDisplayName) 

Next 

IstEntryType.Selectedlndex = 0 
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Catch secEx As SecurityException 

MessageBox.ShowfError reading an event log: this may be due to a lack of 
appropriate permissions." & vbCrLf & secEx.Message, _ 

"Lack of Permissions", _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon.Error) 

Catch ex As Exception 

MessageBox.ShowfError accessing logs on the local machine. 11 & _ 
vbCrLf & ex.Message, _ 

“Error accessing logs.", _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon.Error) 

End Try 
End Sub 
• End Class 

frmCreateDelete.vb 

Public Class frmCreateDelete 

Inherits System.Windows.Forms.Form 

' code phat sinh form dupe bd qua 

Private Sub cmdCreateLog_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCreateLog.Click 
Dim ev As New EventLogQ 
Try 

' Kiem tra xem co tSn t$i log mu6n t$o 
If Not ev.Exists(txtLogNameToCreate.Text) Then 
If ev.SourceExistsfSu dung EventLog*) Then 
ev.DeleteEventSource(“Syu dung EventLog") 

End If 

ev.CreateEventSourcefSu dung EventLog", txtLogNameToCreate.Text) 
Else 

MessageBox.Show("Log & txtLogNameToCreate.Text + _ 

* already exists.", _ 

"Log Exists", _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon.Exclamation) 

End If 
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Catch ex As Exception 

MessageBox.ShowfUnable to Create Event Log, the message was: " & 
ex.Message & " This may be due to a lack of appropriate permissions.', _ 

"An Exception was thrown", _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon. Exclamation) 

Finally 

' D6ng Log 
ev.CloseQ 
End Try 

' Ta cung c6 th£ tao mot Event Log nhu sau: 

' Dim ev2 As New EventLogftxtLogNameToCreate. Text, _ 

1 System.Environment.MachineName, _ 

' '*Su dung EventLog") 

' ev2. WriteEntry(”test message") 

' ev2.Close() 

End Sub 

Private Sub cmdDeleteLog_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDeleteLog.Click 
Dim ev As New System.Diagnostics.EventLogO 
Try 

If ev.Exists(txtLogNameToDelete.Text) Then 
' Ggi phuong thOc xoa log 
ev.Delete(txtLogNameToDelete.Text) 

Else 

MessageBox.ShowfLog " + txtLogNameToDelete.Text + _ 

“ does not exist, therefore it cannot be deleted._ 

"Log Does not Exist", _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon. Error) 

End If 

Catch ex As Exception 

MessageBox.ShowCUnable to delete event log, the message was: " & _ 
ex.Message & “ this may be due to a lack of appropriate permissions.", 
"An Exception was thrown", _ 

MessageBoxButtons.OK, _ 

MessageBoxIcon. Exclamation) 
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Finally 
ev.CloseQ 
End Try 
End Sub 

End Class 


89. SijT dung Win32 API 


Chirong trinh n&y cho biet cdch stir dung cdc hAm Win32 API trong 
VB.NET. 


| jg Win32 API BHa g] 


Active Procette* [ ShowWindowj Active Window APfCabj 
This shows ovariet/ofWin32 ARCnHs: 

iNurrtet of Ftee Bytes: 474165248 ^ 


Drive 


Drive; |C 

GetDiskFieeSpace I 


GetOiskFreeSpaceEx 


GetD rive Type 


Diectcxy 


|c WiyOnecloiy 

Cieete Dvectcuy 


Mouse -- • 

-j |-Cathg'vetidtion« 

i ! 

Swap Mouse Button* 

i ( <• Dedae 


| j C OUJmpoit 

Reset Moute Buttons 



j ? C Unicode 


** | r ANSI 

" Mtsc . 

. C Auto 

Get OS Veioon 

i Beep 

t i 

Htonate 


Cac chufc nanq chinh: 

> Active Processes: Liet k£ t£t cA cAc Windows process. Suf dung mpt 
h&m Win32 callback EnumWindows b&ng cdch suf dung mot doi ttfdng 
uy quyen (delegate). 

> Active Windows: Liet ke tat cA cdc Windows dang chay, suf dung 
Dlllmport. 

> Show Window: Nhap v4o tifa di cua Windows ho£Lc t£n class, vA dem 
cufa so d6 l&n tr£n. 

> API Calls: Suf dung cdc ham API: GetDiskFreeSpace, 
GetDiskFreeSpaceEx, GetDriveType, Create Directory, 
SwapMouseButton, IsPwrHibernateAilowed, SetSuspendState, va 
Beep. 
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Project: Win32 API 

Win32API.vb 

Option Strict On 

Imports System.Runtime.InteropServices 
Imports System.Text 

' Class chita cac hkng s6' vk hkm Windows 32 API 
Public Class Win32APi 

<StructLayout(LayoutKind.Sequential)> _ 

Public Structure OSVersionlnto 

Public OSVersionlnfoSize As Integer 
Public majorVersion As Integer 
Public minorVersion As Integer 
Public buildNumber As Integer. 

Public platformld As Integer 

<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)> _ 
Public versionstring As String 
End Structure 

<StructLayout(LayoutKind.Sequential)> _ 

Public Structure SECURITY_ATTRIBUTES 
Public nLength As Integer 
Public IpSecurityDescriptor As Integer 
Public blnheritHandle As Integer 
End Structure 

Public Const GWL_EXSTYLE As Integer = (-20) 

Public Const GW_OWNER As Integer = 4 

Public Const SW_RESTORE As Integer = 9 

Public Const SW_SHOW As Integer = 5 

Public Const WS_EX_TOOLWINDOW As Integer = &H80 

Public Const WS__EX_APPWINDOW As Integer = &H40000 

Public Declare Function CreateDirectory Lib "kernei32" _ 

Alias “CreateDirectoryA“ (ByVal IpPathName As String, _ 
ByVal IpSecurityAttributes _ 

As SECURITY.ATTRIBUTES) As Boolean 
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Public Delegate Function EnumWindowsCallback(ByVai hWnd As Integer, _ 

ByVal IParam As Integer) As Boolean 

Public Declare Function EnumWindows Lib "user32.dH“ _ 

Alias “EnumWindows" (ByVal callback As EnumWindowsCallback, _ 

ByVal IParam As Integer) As Integer 

<DIHmport(“user32.dll\ EntryPoint:="EnumWindows“, SetLastError:=True, _ 
CharSet:=CharSet.Ansi, ExactSpelling:=True, _ 
CallingConvention:=CallingConvention.StdCall)> _ 

Public Shared Function EnumWindowsDlllmport(ByVal callback As 
EnumWindowsCallback, ByVal IParam As Integer) As Integer 
End Function 

Public Declare Auto Function FindWindow Lib "user32.dll“ _ 

Alias "FindWindow" (ByVal IpCIassName As String, _ 

ByVallpWindowName As String) As Integer 

Public Declare Auto Function FindWindowAny Lib “user32.dll" _ 

Alias “FindWindow" (ByVal IpCIassName As tnteger, _ 

ByVal IpWindowName As Integer) As Integer 

Public Declare Auto Function FindWindowNullClassName Lib "user32.dll" _ 
Alias “FindWindow" (ByVal IpCIassName As Integer, _ 

ByVal IpWindowName As String) As Integer 

Public Declare Auto Function FindWindowNullWindowCaption Lib "user32.dll" 
Alias “FindWindow" (ByVal IpCIassName As String, _ 

ByVal IpWindowName As Integer) As Integer 

Public Declare Function GetClassName Lib "user32.dll" _ 

Alias "GetClassNameA" (ByVal hwnd As Integer, _ 

ByVal IpCIassName As StringBuilder, _ 

ByVal cch As Integer) As Integer 

Public Declare Function GetDiskFreeSpace Lib "kernel32‘ _ 

Alias "GetDiskFreeSpaceA" (ByVal IpRootPathName As String, _ 

ByRef IpSectorsPerCluster As Integer, _ 

ByRef IpBytesPerSector As Integer, _ 
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ByRef IpNumberOfFreeCiusters As Integer, _ 

ByRef IpTotalNumberOfClusters As Integer) As Integer 

Public Declare Function GetDiskFreeSpaceEx Lib "kernel32" _ 

Alias "GetDiskFreeSpaceExA" (ByVal IpRootPathName As String, _ 

ByRef IpFreeBytesAvailableToCaller As Integer, _ 

ByRef lpTotalNumberOfBytes As Integer, _ 

ByRef IpTotalNumberOfFreeBytes As Ulnt32) As Integer 

Pubtio^Qet&reFunctlon GetD^vaType Lib "kerne!32" _ 

Alias *GetDriveTypeA“ (ByVal nDrive As String) As Integer 

Public Declare "iirser^.dlj* _ 

Alias As'lftfege^ As Integer 

Declare Ansi FunctioiiGetVer&ionEx Lib "kernel32.djl“ _ 

Alias "GetVersioiiExA“ (ByRef osvi As OSVersionlnfo) As Boolean 

Public Declare Ftinction GetWindow Lib "user32.dH“ _ 

Alias "GetWindow' (ByVal hwnd As Integer, _ 

ByVal wCmd As Integer) As Integer 

Public Declare Function GetWindowLong Lib "user32.dll" _ 

Alias “GetWindowLongA" (ByVal hwnd As Integer, _ 

ByVal nlndex As Integer) As Integer 

Public Declare Sub GetWindowText Lib "user32.dll" _ 

Alias "GetWindowTextA" (ByVal hWnd As Integer, _ 

ByVal IpString As StringBuilder, _ 

ByVal nMaxCount As Integer) 

Public Declare Function Islconic Lib “user32.dll" _ 

Alias ‘Islconic" (ByVal hwnd As Integer) As Boolean 

Public Declare Function IsPwrHibernateAllowed Lib "Powrprof.dll" _ 

Alias “IsPwrHibernateAllowed" () As Integer 

Public Declare Function IsWindowVisible Lib "user32.dll" _ 

Alias "IsWindowVisible" (ByVal hwnd As Integer) As Boolean 
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Public Declare Function SetForegroundWindow Lib "user32.dll" _ 

Alias "SetForegroundWindow" (ByVal hwnd As Integer) As Integer 

Public Declare Function SetSuspendState Lib "Powrprof.dll" _ 

Alias "SetSuspendState" (ByVal Hibernate As Integer, _ 

ByVal ForceCritical As Integer, _ 

ByVal DisableWakeEvent As Integer) As integer 

Public Declare Function ShowWindow Lib "user32.dir _ 

Alias "ShowWindow* (ByVal hwp|d As IntegerByVal nCmdShow As Integer) As 

Integer . ^ 

Declare Function SwapMouso^utLop Lib '^e^.dll" i; . , ,. 

Alias "SwapMouseBulton* (ByVal bSwap As Integer) Aa lrOeger 

End Class ■ r ... j, . 

CallingVariations.vb 

Option Strict On ' v • 

Imports System.Runtime.InteropServices 

' Class nay chtia cac kieu goi khic nhau cua him Beep 

Public Class CallingVariations 

' Khai bao 

Public Declare Function DeclareBeep Lib “kernel32" Alias “Beep" _ 

(ByVal dwFreq As Integer, ByVal dwDoration As Integer) As Integer 

' DLLImport 

<Dlllmport( ,, kernel32.dir, EntryPoint:="Beep’)> _ 

Public Shared Function DLLImportBeep(ByVal dwFreq As Integer, _ 

ByVal dwDuration As Integer) As Integer 

End Function 

' Chi dinh Unicode 

Public Declare Unicode Function UnicodeBeep Lib "kernel32“ Alias “Beep" _ 
(ByVal dwFreq As Integer, ByVal dwDuration As Integer) As Integer 
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' Chi djnh Ansi 

Public Declare Ansi Function ANSIBeep Lib ,, kemel32f Alias ‘Beep’ _ 

(ByVal dwFreq As Integer, ByVal dwDuration As ; Integer) As Integer 

' Chi djnh Auto > 

Public Declare Auto Function AutoBeepLib , k©rnel32‘‘ Alias “Beep" _ 

, (ByVal dwFreq As Integer, ByVal dwDuration As Integer) As Integer 

’ Sti dpng Exact Spatting 
’ Mac nhiSn ia False, nSu FALSE m6t ky ttf A n6i sau ANSI v£ W n6i sau Unicode 
<Dlllmport(“kem0l32.dlJExactSpeHing:=True, CfoarSet:=CharSet.Ansi)> _ 

Public Shared Function ExactSpellingBeep(ByVal dwFreq As Integer, _ 

ByVal dwDuration As Integer) As Integer 
End Function 

End Class 

frmMain.vb 

Option Strict On 

Imports System 

Imports System.Text 

Imports System.Runtime.InteropServices 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

Const STRING_BUFFER_LENGTH As Integer = 255 

’ Code phat sinh form duoc bo qua 

#Region "API Calls" 

1 Goi ham Beep voi nhieu cdch goi khac nhau 

Private Sub btnBeep_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnBeep.Click 
If rbDeclare.Checked Then 

CallingVariations.DeclareBeep(1000, 1000) 

Elself rbDLLImport.Checked Then 
CallingVariations.DLLImportBeep(1000, 1000) 
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Elself rbANSI.Checked Then 

CallingVariations.ANSIBeep(1000, 1000) 

Elself rbUnicode.Checked Then 
CallingVariations.UnicodeBeep(1000, 1000) 

Elself rbAuto.Checked Then 

CallingVariations.AutoBeep(1000, 1000) 

End If 
End Sub 

' Tao mdt thu mpc nSu c6 th£, vit C$p nh$t thdng bio 

Private Sub btnCreateDirectoiy_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnCreateDirectory.Click 

Dim security As New Wln32API.SECURITY_ATTRIBUTES() 

If Win32API.CreateDirectory(txtDirectory.Text, security) Then 
txtFunctionOutput.Text = "Directory created." 

Else 

txtFunctionOutput.Text = "Directory not created." 

End If 
End Sub 

' Liy s6 cluster cdn trd'ng trSn dia, sd dyng h&m API GetDiskFreeSpace 
Private Sub btnGetFreeSpace_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnGetFreeSpace.Click 
Dim rootPathName As String 
Dim sectorsPerCluster As Integer 
Dim bytesPerSector As Integer 
Dim numberOfFreeCiusters As Integer 
Dim totalNumberOfClusters As Integer 

rootPathName = txtDriveLetter.Text + "A* 

Win32API.GetDiskFreeSpace(rootPathName, sectorsPerCluster, _ 
bytesPerSecfor, _ 

numberOfFreeCiusters, totalNumberOfClusters) 

txtFunctionOutput.Text = "Number of Free Clusters:" & _ 
numberOfFreeCiusters.ToStringO 
End Sub 
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' L&y so byte con trd'ng trSn dJa , sCt dying API GeiDiskFreeSpaceEx 
Private Sub btnGetDiskFreeSpaceExJ3liCk(Byyal sender As System.Object, ByVal 
e As System.EventArgs) Handles WnGetDiskFreaSpaceEx. Click 
Dim rootPathName As String 
Dim freeBytesToCaller As Integer 
Dim totalNumberOfBytes Integer 
Dim totalNumberOfFreeBytes As Ulnt32 ...... 

rootPathName = txtDriveletter.Text + ‘A*, 

Win32API.GetDiskFreeSpaceEx(rootPathName, freeBytesToCaller, _ 
totalNumberOfBytes, _ 
totalNumberOfFreeBytes) 

txtFunctionOutput.Text = “Number of Free Bytes: " & _ 
totalNumberOfFreeBytes.ToStringO 
End Sub 

' Lay thong tin kieu 6 dfa, sCt dyng API GetDriveType 

Private Sub btnGetDriveType_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnGetDriveType.Click 
Dim rootPathName As String 
rootPathName = txtDriveLetter.Text + ":V 

Select Case Win32API.GetDriveType(rootPathName) 

Case 2 

txtFunctionOutput.Text = "Drive type: Removable - 
Case 3 

txtFunctionOutput.Text = “Drive type: Fixed" 

Case Is = 4 

txtFunctionOutput.Text = “Drive type: Remote" 

Case Is = 5 

txtFunctionOutput.Text = “Drive type: Cd-Rom" 

Case Is = 6 

txtFunctionOutput.Text = "Drive type: Ram disk" 

Case Else 

txtFunctionOutput.Text = "Drive type: Unrecognized’ 

End Select 


End Sub 




854 


— Coding Techniques - 

' Liy phiin bin cua hi di4u hinh 

Private Sub btnGetOSVersion_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnGetOSVersiOn.Click 
Dim versionlnfo As New Win32API.OSVersionlnfo() 

versionlnfo.OSVersionlnfoSize = Marshal.SizeOf(versiontnfo) 
Win32API.GetVersionEx(versionlnfo) 

txtFunctionOutput.Text = "Build Number is:" & _ 

versionlnfo.buildNumber.ToStringO & Chr(13) & Chr(10) 
txtFunctionOutput.Text += "Major Version Number is:" & _ 
versionlnfo.majorVersion.ToStringO 

End Sub 

/ 

' Ham niy cho may tlnh tgm ngi/ng n&u c6\h$ 

Private Sub btnHibernate_Cltak(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnHibernate.Click 
If Win32API.IsPwrHibernateAllowed() <> 0 Then 
Win32API.SetSuspendState(1, 0, 0) ‘ 

Else 

txtFunctionOutput.Text = "Youf computer doesn't support hibernation. " & _ 
"This may be due to system settings or simply a computer bios that does not 
support hibernation." 

End If 
End Sub 

* Quy djnh fai cic nut ctia chuQt theo ban diu 

Private Sub btnResetMouseButton_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnResetMous6Button.Click 
Win32AP!.SwapMouseButton(0) 

End Sub 


’ Chuyen chute ning cic nut chuot 

Private Sub btnSwapMouseButton_Click(ByVal sender As System.Object, ByVal e 
** As System.EventArgs) Handles btnSwapMouseButton.Click 
Win32API.SwapMouseButton{1) 

End Sub 


#End Region 
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' Xoa ndi dung va cho cac process dang hoyt dQng vao ListView 
Private Sub btnRefreshActiveProcesses_Click{ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles btnRefreshActiveProcesses.Click 
IvwProcessList. Items.Clear() 

Win32 API. EnumWindows(New Win32Api.EnumWindowsCallback(AddressOf _ 
FillActiveProcessList), 0) 

End Sub 

’ Xoa ListView va cho cac ctfa so dang hoat dong vao ListView 
Private Sub btnRefreshActiveWindows_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles btnRefreshActiveWindows.Click 
IbActiveWindows. Items. C!ear() 

Win32API.EnumWindowsDlllmport(New _ 

Win32API.EnumWindowsCallback(AddressOf _ 

FillActiveWindowsList), 0) 

End Sub 

' Thu tyc nky t)m mdt ctia si cd tt/a dS nh$p vko vk dUa n6 ISn trin 
Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnShow.Click 
Dim hWnd As Integer 

If txtWindowCaption.Text = " And txtClassName.Text = " Then 
' Tim bit ky cufa s6 nko c6 sin 
hWnd = Wirt32APl.FindWindowAny(0, 0) 

Elself txtWindowCaption.Text = “ And txtClassName.Text <> Then 
' Tim ctfa s6 theo tin class 

hWnd = Win32API.FindWindowNullWindowCaption(txtClassName Text, 0) 
Elself txtWindowCaption.Text <> ** And txtClassName.Text = Then 
' Tim ctfa si theo tin cua tiiu d4 

hWnd = Win32API.FindWindowNullClassName(0, txtWindowCaption.Text) 
Else 

' Tim ctia si theo ck tin class vk tin tiiu dS 
hWnd = Win32API.FindWindow(txtClassName.Text, txtWindowCaption.Text) 
End If 
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' Neu khdng tim thay, FindWindow tr£ v4 0. 

If hWnd = 0 Then 

MsgBox{"Specified window is not running.*, _ 

MsgBoxStyle.Exclamation, Me.Text) 

Else 

‘ Dtfa cita s6 len trdn 

Win32API.SetForegroundWindow(hWnd) 

If Win32API.Islconic(hWnd) Then 

Win32API.ShowWindow(hWnd, Win32API.SW_RESTORE) 

Else 

Win32API.ShowWindow(hWnd, Win32API.SW_SHOW) 

End If 
End If 
End Sub 

' Kiim tra cAc TextBox tin class v& t§n ti&u dS vd c$p nh$t label IblFunclionCalled 
Private Sub ChangeFunctionCalledLabel() 

If txtWindowCaption.Text = “* And bdClassName.Text = “ Then 
IbIFunctionCalled.Text = _ 

‘FindWindow (ClassName As Integer, WindowName As Integer) will be called." 
Elself txtWindowCaption.Text = ** And txtClassName.Text <> "" Then 
IbIFunctionCalled.Text = _ 

‘FindWindow (ClassName As String, WindowName As Integer) will be called." 
Elself txtWindowCaption.Text <> “ And txtClassName.Text = "" Then 
IbIFunctionCalled.Text = _ 

‘FindWindow (ClassName As Integer, WindowName As String) will be called." 
Else 

IbIFunctionCalled.Text = _ 

‘FindWindow (ClassName As String, WindowName As String) will be called.* 
End If 
End Sub 

' Hdm n&y ddQc ggi (cho m6i process dang ho$t d$ng) bdi EnumWindows 
Function FillActiveProcessList(ByVal hWnd As Integer, ByVal IParam As Integer) 
As Boolean 

Dim windowText As New StringBuilder(STRING„BUFFER_LENGTH) 

Dim ClassName As New StringBuilder(STRlNG_BUFFERJ_ENGTH) 
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' Lay ten tiiu de vi tin class. 

Win32API.GetWindowText(hWnd, windowText, STRING_BUFFER_LENGTH) 
Win3?API.GetClassName(hWnd, className, STRING_BUFFER_LENGTH) 

' Cho process vAo ListView Processes 

Dim processltem As New ListViewltem(windowText.ToString, 0) 
processltem. Subitems. Add{className.ToString) 
process Item. Subitems. Add(hWnd.ToString) 
IvwProcessList.ltems.Add(processltem) 

Return True 
End Function 

Function FillActiveWindowsList(ByVal hWnd As Integer, ByVal IParam As Integer) 
As Boolean 

Dim windowText AsNe%y,StringBuilder(STRING_BUFFERJ_ENGTH) 

' LA'y Window Caption. 

Win32API.GetWindowTexi(hWnd, windowText, STRING_BUFFER_LENGTH) 

' Chi cho cac cCfa sd vAo danhsAch Windows , 

If ProcesslsActiveWindbw(hWnd) Then 
IbActiveWindows.items.Add(windowText) 

End If 

Return True 
End Function 

' Kidm tra m$t prpcess. c6 phii IA mit cufa sd dang hoat ding 
Function ProcesslsActiveWindow(ByVal hWnd As Integer) As Boolean 
Dim windowText As New StringBuilder(STRING_BUFFER_LENGTH) 

Dim windowlsOwned As Boolean 
* Dim windowStyle As Integer 

' Liy Windows Caption, thing tin, vA kieu ciia so 

Win32API,GetWirtdowText(hWnd, windowText, STRING_BUFFER_LENGTH) 
windowlsOwned = Win32API.GetWindow(hWnd, Win32API.GW_OWNER) <> 0 
windowStyle = Win32API.GetWindowLong{hWnd, Win32API.GWL_EXSTYLE) 
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' Khdng cho phep cac process khdng phai Id CLia so 
If Not Win32API.IsWindowVisible(hWnd) Then 
Return False 
End If 


1 Ciia so phai co tieu de 
If windowText.ToString.Equals('“) Then 
Return False 
End If 


’ Khdng co cda s6 cha 
If Win32AP!.GetParent(hWnd) <> 0 Then 
Return False 
End If 

' Khdng chip nh$n ToolTip 

If (windowStyle And Win32API.WS_EX_T60LWIND0W) <> 0 And Not _ 
windowlsOwned Then 
Return False 
End If 

If (windowStyle And Win32API,WS_EX_APPWINDOW) = 0 And _ 
windowlsOwned Then 
Return False 
End If 

Return True 
End Function 

' Khi thay doi txtClassName, cap nh$t IblFunctionCalled 

Private Sub txtClassName_TextChanged(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles txtClassName.TextChanged 
ChangeFunctionCalledLabel() 

End Sub 

' Khi thay d6i txtWindowCaption, cip nhat IblFunctionCalled 
Private Sub txtWmdowCaption_TextChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles txtWindowCaption.TextChanged 
ChangeFunctionCalledl_abel{) 

End Sub 
• End Class 




859 


■ Coding IVehniqm-r -- 

90. M$t so" loti diem cua Visual Basic .NET 


Chuong trinh ndy bieu dien m$t s6 loi di£m chlnh cua VB.NET. 



> Suf dung doi tirqng StringBuider, cung cdp cdc khd ndng hi§u qua de xd 
ly cdc chuoi. 

> Cdc ham thao tdc vdi file, bao gdm doc vd ghi vdo file, sao chdp, di 
chuyen vd x6a file, va truy xuat cdc thupc tmh cua file. 

> B^t loi va theo doi, sur dung cac doi tuong Debug va Trace, t6t hon so 
vdi VB 6. 

> Cau true bdt loi Try...Catch...Finally...End Try, dung de thay the cho On 
Error Goto va linh dong hem chi ddn nay. 

> Thda k£, bao gom cd cdc thu tuc overload, override cac phurong thiifc cua 
class ccf sd trong class thCra ke... (xem project: 82. Scope-Override- 
Overload) 

> Lam viec vdi tieu trinh (threading). 

> Khd ndng cua Windows Form, k£ cd anchoring vd docking, d£ ddng vdi 
thuf to tab, vd ede khd nftng do hoa mdi. 


Project: Diem manh cua VB.NET 



frmMain.vb 

Option Strict On 
Imports System.Text 
Imports System.IO 
Imports System.Threading 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code ph&t sinh form dupe bd qua 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
IstFileFunction.Selectedlndex = 0 
IstDebugFunction.Selectedlndex = 0 
txtSBAppend.Text = “My string' 

IstExceptionHandJing.Selected Index = 0 
End Sub 

Private Sub btnOpenDemoForm_Ciick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnOpenDemoform.Click ' 

' Tao m$t instance mdi 
Dim frm As New frmControls() 

' HiSn thj theo chS d$ hdp thopi 
frm.ShowDialog() 

End Sub 

Private Sub btnShowGraphics_Click(ByVal sender As System,Object, ByVal e As 
System.EventArgs) Handles btnShowGraphics.Click 
Dim frmG As New frmGraphics() 
frmG.ShowDialog() 

End Sub 

Private Sub btnStringBuilderFunction_Click(ByVa! sender As System.Object, ByVal 
e As System.EventArgs) Handles btnStringBuilderFunction.Click 

Dim strSBOrig As String = txtSBOrig.Text.Trim 

Dim strConcatenated As String 

Dim strSBAppend As String = txtSBAppend.Text.Trim 

Dim intStrlterations As Integer = Clnt(txtStrlterations.Text) 
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Dim intSBIterations As Integer = Clnt(txtSBIterations.Text) 

Dim sb As New StringBuilder(strSBAppend.Length * intSBIterations) 

Dim tmr As New TimeCheck() 

Dim i As Integer •-" 

Try ■ 

txtStrResults.Text = vbNullString 

txtSBResults.Text = vbNullString • ? 

Cursor.Current = System.Windows.Forms.Cursors.WaitCursor 

’ Nd'i chudi theo kiSu VB6 
tmr.Begin() 

strConcatenated = strSBOrig 
For i = 1 To intStrlterations 
strConcatenated = strConcatenated & strSBAppend 
Next 

tmr.End() 

txtStrResults.Text = tmr. Millisecorfds.ToStringO 

' S& dgng StringBuilder 
tmr.Begin() 

. \ * t ' K ‘ 't* 

For i = 1 To intSBIterations 
sb.Append(strSBAppend) 

Next 

tmr.End() 

txtSBResults.Text = tmr.Millisdconds.TbStringO 
Catch exp As Exception 

MsgBox(exp.ToString(), MSgBoxStyle.OKOnly Or MsgBoxStyle.Critical, _ 
Me.Text) 

Finally 

Cursor.Current = System.Windows.Forms.Cursors.Default 
End Try 
End Sub 

* Chi chip nh$n si trong TextBox 

Private Sub txtStrlterations_KeyPress(ByVal sender As Object, ByVal e As 
System.Windows.Forms.KeyPressEventArgs) Handles txtStrlterations.KeyPress 
Dim Keystroke As Char 
Dim chrNullCharacter As Char = Chr{0) 
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Keystroke = e.KeyChar 
Select Case Keystroke 

£ase “0"c To "9"c, CChar(vbBack), CChar(vbCr) 

‘ So W 0 den 9, backspace, return th) khdng l£m gi ci 
Case Else 

' Bo tat ca cac phim khac 
Keystroke = chrNullCharacter 

End Select ' 

If Keystroke = chrNullCharacter Then 
e.Handled = True 

Else i 

e.Handled = False 

End If . : ; 

End Sub , 

Private Sub lstFileFunction_SelectedlndexChanged(ByVal sender As 
System.Object, ByVal e As Systena.EventArgs) Handles 
IstFileFunction.SelectedlndexChanged 
Select Case IstFileFunction.Selectedlndex 
Case 0 ’ Dqc mdt file 

btnFileFunction.Text = *&Read file* 

Case 1 ‘ Ghi v£o mQt file 

btnFileFunction.Text = "&Write file" 

Case 2 ' Kich thudc cua mdt file 

btnFileFunction.Text = "&Get file size" 

Case 3 ' Thong tin File Version 

btnFileFunction.Text = "&Get file version" 

Case 4 ' Ten file tam 

btnFileFunction.Text = "&Get temp file name" 

End Select 
End Sub 

Private Sub btnFileFunction_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnFileFunction.Click 

' Cac class trong namespace System. IO cho phep dgc va ghi vao cac file 
' cung nhu c&c stream khac, nhucac memory stream, network stream... 

Dim strFile As String = \.\DemoText.txt" 

Dim strFileWrite As String = “..\DemoText_Write.txt" 
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Select Case IstFileFunction.Selectedlndex 
Case 0 ’ Dqc mQt file ' , - - 

Dim srFile As New StreamReader(strFile) 
txtFileResult.Taxt = srFile.ReadToEnd() 
srFile.Close() 

Case! ‘Ghi vdomQl file ' • 

Dim swFile As StreamWriter = File.CreateText(strFileWrite) 
swFile.WriteLine("The quick brown fox jumped over the lazy dogs.*) 
swFile. Flush() 
swFile. Close() 

Dim sr As New StreamReader(strFileWrite) 
txtFileResult.Text = sr.ReadToEnd() 
sr.Close() 

Case 2 * Ktch thtfdc file 

Dim fiFile As New Filelnfo(strFileWrite) 
txtFileResult.Text = “Size of* & _ 

strFileWrite.Substring(lnStr{7", strFileWrite)) 
fiFile.Length.ToString + " bytes.* 

Case 3 ' File version info 

Dim env As System.Environment 

strFile = env.SystemDirectory & "\Notepad.exe" 

Dim viVersionlnfo As FileVersionlnfo = _ 

FileVersionlnfo.GetVersionlnfo(strFile) 
txtFileResult.Text = "Version of “ & strFile 
viVersionlnfo.FileVersion & vbCrLf 
txtFileResult.Text &= “Description of “ & strFile 
viVersionlnfo.FileDescription 
Case 4 ' Ten file tam 

txtFileResult.Text = "Temp file name: " & Path.GetTempFileName 
End Select 

End Sub 

Private Sub lstExceptionHandling_SelectedlndexChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handies 
IstExceptionHandling.SelectedlndexChanged 

Select Case IstExceptionHandling.Selectedlndex 
Case 0 

btnExceptionHandlingFunction.Text = "&Basic Exception Handling" 




864 


— Coding Technique- -- 


Case 1 

btnExceptionHandlingFunction.Text = “&Focused Exception Handling“ 

End Select 
End Sub 

Private Sub btnExceptionHandllngFunction_Click(ByVal sender As System.Object, 
ByVal e As System.EyentArgs) Handles btnExceptionHandlingFunction.Click 
Select Case IstExceptionHandling.Selectedlndex 
Case 0 ' Basic 
BasicException() 

Case 1 ' Focused 

ExceptionReadingFromFileQ 
End Select 
End Sub 

Private Sub BasicException() j : 

' Exception Handling thay thS cho On Error. Exception handling m$nh hdn vi 
' linh ddng hdn nhiSu so vdi On Errori 

Dim dblNuml As Double = 5 
Dim dblNum2 As Double = 0 
Dim intResult As Integer 
Try ■ ■ 

intResult = Clnt(dblNum1 /dblNum2) 

Catch exp As Exception 
' Thong bao l5i g$p phii 
' exp co the thay bang tin hpp IS khac 
txtExceptionHandlingResult.Text = exp.Message 
End Try 
End Sub 

Private Sub ExceptionReadingFromFile() 

Try 

' C6 md mot file trong mdt thif muc khdng tSn tai 
Dim sw As New StreamWriterfcAl 2345678asdf\baddirectory.txt") 

Catch dirNotFoundEX As DirectoryNotFoundException 
' Bit cu the mot exception 
txtExceptionHandlingResult.Text = ‘Message: " & _u 

dirNotFoundEX.Message & vbCrLf & vbCrLf 
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txtExceptionHandlingResult.Text A= "Stack Trace:" & _ 
dirNotFoundEX.StackT race 

Catch exp As Exception 
' Bit cac l6i khic 

MsgBox(exp.ToString{), MsgBoxStyle.OKOnly Or MsgBoxStyle.Critical, _ 
Me.Text) 

End Try 
End Sub 

' SCf dung class Debug n&u mudn xui't trong phien bin Debug cua chUdng trinh. 

' Suf dung class Trace oSu mudn xui't trong ci hai phien bin Debug va Release. 
Private Sub lstDebugFunction_SelectedlndexChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
IstDebugFunction.SelectedlndexChanged 
Select Case IstDebugFunction.Selectedlndex 
Case 0 ' Debug: 

IstDebugFunction.Selectedlndex = 1 
Case 1 * Debyg: Ghi ra cCfa sd Console (Ouput) 

btnDebugFunction.Text = "&Debug: Write to Console" 

Case 2 ' Debug: Ghivio File 
btnDebugFunction.Text = "ADebug: Write to File" 

Case 3 ' Debug: Ghi vio Event Log 

btnDebugFunction.Text = 'ADebug: VVrite to Event Log" 

Case4 

IstDebugFunction.Selectedlndex = 5 
Case 5 ’ Trace: Ghi ra Console (Output) 
btnDebugFunction.Text = "ATrace: Write tp Console" 

Case 6 ' Trace: Ghi vio File 

btnDebugFunction.Text = "ATrace: Write to File" 

Case 7 ' Trace: Ghi vio Event Log 

btnDebugFunction.Text = "ATrace: Write to Event Log" 

End Select 
End Sub 

Private Sub btnDebugFunction_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnDebugFunction.Click 
Dim strDebug As String = txtDebuglnfo.Text 
Debug.IndentQ 
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Select Case IstDebugFunction.Selectedlndex 
Case 0 ' Debug: 

Case 1 ' Debug: Ghi vao ctia s6 Console (Ouput) 

Debug. WriteLine(strDebug) 

Debug.Flush() 

sbrPanel2.Text = "Wrote debug output to console" 

Case 2 ' Debug: Ghi vho file 
' Tao mot file de lUu 

Dim strFile As String = "C:\DebugOutput.txt" 

Dim stmFile As Stream = File.Create(strFile) 

' Si) dung Listener 

Dim twTextListener As New TextWriterTraceListener(stmFile) 
With Debug.Listeners 
.ClearQ 

. Add(twTextListener) 

End With 

' Ghi vho file 
Debug. Write(strDebug) 

Debug.Flush() 

sbrPanel2.Text = "Wrote debug output to" & strFile 
Case 3 * Debug: Ghi v&o Event Log 

' Tao mdt debug listener cho event fog 
Dim logdebugListener As New _ 

EventLogTraceListener("ContrastVBNETwrthVB6“) 
With Debug.Listeners - 

.Clear() 

Add(logdebugListener) 

End With 

Debug. Write(strDebug) 

Debug.FlushO 

sbrPanel2.Text = "Wrote debug output to Event Log" 

Case 4 ' Trace: 

Case 5 ' Trace: Ghi ra console (Ouput) 

With Trace.Listeners 
Clear() 

.Add(New TextWriterTraceListener(Console.Out)) 

End With 





— Coding Tori) mque* — 


867 


Trace.WriteLinefTesting Trace to Console.') 

Console.WriteLine(strDebug) 

Console. WriteLinefNote that the debug/trace strings cpe indented for ease 
of reading.') 

Console.WriteLine('Option: Debug.|qdent()*) 

T race. W rite Line('Donetesting TracatoConsofe.’) 

Trace. Flush() 

sbrPanel2.Text * ’Wrote trace output to console' - 
Case 6 ‘ Trace: Ghivk^fUe > 

Dim strhle-As String » ‘C:\TraceOutput.txt* 

Dim stmFile As Strain = File.Create(strfile) 

Dim twTextListener As NewTextWriterTraceListener(stmFile) 

With T race. Listeners 
.ClearQ 

. Add(twT extListerte r) 

End With 

T race.Write(strDebug) 

Trace.Flush() 

sbrPanel2.Text = 'Wrote trace output to “ & strFile 
Case 7 ' Trace: Ghi vko Event Log 
Dim logTraceListener As New _ 

EventLogTraceListener{"ContrastVBNETwithVB6“) 

With Trace.Listeners 
.Clear() 

.Add(logTraceListener) 

End With 

T race.Write(strDebug) 

Trace.Flush() 

sbrPanel2.Text = "Wrote trace output to Event Log" 

End Select 
Debug.Unindent() 

End Sub 

Private Sub btnThreadFunction_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnThreadFunction.Click 

' Tao mdt tiSu tr'mh 64 chgy m6t thu tyc, nghla Ik trong luc thread ho$t 
’ d$ng ta vin co th4 Ikm vikc khac. 

Dim newThread As New Thread(New ThreadStart(AddressOf CalledByThread)) 
newThread.StartQ 
End Sub 
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' Thu tuc dUQc g<?i bdi tiSu trinh 
Private Sub CalledByThread() 

txtThreadResult.Text = ‘This method is running on another thread, started at ’ & 
DateTime.Now.ToShortTimeString & vbCrLf 

txtThreadResult.Text &= “Gone to sleep for 5 seconds.* & vbCrLf 
Thread.Sleep(5000) 

txtThreadResult.Text “Now resuming.* & vbCrLf 
txtThreadResult.Text &= “Method called by thread now ended.* 

End Sub 
End Class 

TimeCheck.vb 

Option Strict On 

Imports System.TimeSpan 
Imports System.DateTime 

Public Class TimeCheck 

Private m_dtmBegin As DateTime 
Private m_EndSpan As TinrteSpan 

' B&t diu tinh thdi gian 
Public Sub [Begin]() 

m_dtmBegin = DateTime.Now 
End Sub 

' Kdt thuc tinh thdi gian 
Public Sub [End]() 

m_EndSpan = DateTime. Now. Subtract(m_dtmBegin) 

End Sub 

Public Readonly Property Milliseconds() As Long 
Get 

Milliseconds = CType(m_EndSpan.TotalMilliseconds, Long) 

End Get 
End Property 


• End Class 
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frmControls.vb 

Option Strict On 

- ’ ChCn y cAc thu$c tmh cua cAc control 
■ Public Class frmControls 

Inherits System.Window8.Forrrt6.Form 
#Region ’ Windows Form Desigrter generated code " 

Public Sub New() > 

MyBase.New() 

This call is required by die Windows Form Designer. 

InitializeComponentO 

'Add any initialization after the InitializeComponentO call 
End Sub . 

'Form overrides dispose to clean up the component list. 

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) 

If disposing Then 

If Not (components Is Nothing) Then 
components. Dispose() 

End If 
End If 

MyBase.Dispo6e(disposing) 

End Sub 

‘Required by the Windows Form Designer 

Private components As System.ComponentModel. (Container 

'NOTE: The following procedure is required by the Windows Form Designer 

‘It can be modified using the Windows Form Designer. 

‘Do not modify it using the code editor. 

Friend WithEvents txtDockedBottom As System.Windows.Forms.TextBox 

Friend WithEvents TextBox2 As System.Windows.Forms.TextBox 

Friend WithEvents TextBoxI As System.Windows Forms.TextBox 

Friend WithEvents Labels As System.Windows.Forms.Label 

Friend WithEvents Label2 As System.Windows.Forms.Label 

Friend WithEvents Labell As System.Windows.Forms.Label 

Friend WithEvents txtCSZ As System.Windows.Forms.TextBox 

Friend WithEvents txtAddress As System.Windows.Forms.TextBox 

Friend WithEvents txtName As System.Windows.Forms.TextBox 

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponentO 
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Me.txtDockedBottom = New System.Windows.Forms.TextBox() 

Me.TextBox2 = New System.Windows.Forms.TextBoxQ 
Me.TextBoxI = New System.Windows.Forms.TextBox() 

Me.Label3 = New System.Windows.Forms.Label() 

Me.Label2 = New System.Windows.Forms.Label{) 

Me.Labell = New System.Windows.Forms.LabelQ 
Me txtCSZ = New System.Windows.Forms.TextBoxQ^ 

Me.txtAddress = New System.Windows.Forms.TextBox() 

Me.txtName = New System.Windows.Forms.TextBokQ 
Me.SuspendLayout() 

'txtDockedBottom 

Me.txtDockedBottom.Dock = System.Windows.Forms.DockStyle.Bottbm 
Me.txtDockedBottom.Location = New System.Drawing.Point(0, 165) 

Me.txtDockedBottom.Multiline = True 
Me.txtDockedBottom.Name ‘txtDockedBottom* 

Me.txtDockedBottom.ScrollBars = System. Windows.Forms. ScrOllBiars. Vertical 
Me.txtDockedBottom.Size = New System.Drawing.Size(566, 184) 
Me.txtDockedBottom.Tablndex = 8 
Me.txtDockedBottom.Text = 

'TextBox2 

Me.TextBox2.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or 
System.Windows. Forms. AnchorStyles.Right) 

Me.TextBox2.Location = New System.Drawing.Point(384, 128) 
Me.TextBox2.Name = TextBox2" 

Me.TextBox2.Size = New System.Drawing.Size(56, 20) 
Me.TextBox2.Tablndex = 6 
Me.TextBox2.Text = "" 

'TextBoxI 

Me.TextBoxI .Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or 
System. Windows.Forms. AnchorStyles.Right) 

Me.TextBoxI.Location = New System.Drawing.Point(448, 128) 

Me.TextBoxI Name = "TextBoxI" 

Me.TextBoxI .Size = New System.Drawing.Size(104, 20) 

Me.TextBoxI Tablndex = 7 




Me.TextBoxl.Text = "" 


'Label3 

Me.Label3.Anchor * (System.Windows.Forms.AnchorStyles.Bottom Or 
System. Windows. Forms. AnchorStyles.Left) 

Me.Label3.AutoSize = True 

Me.Label3.Location = New System.Drawing.Point(8, 128) 
Me.Labet3.Name = “Label3“ 

Me.Label3.Size = New System. Drawing.Size(78, 13) 
Me.Label3.Tablndex = 4 
Me.Label3.Text = “City, State, Zip* 

'Label2 

Me.Label2. AutoSize = True 

Me.Label2.Location = New System.Drawing.Point(8, 40) 
Me.Label2.Name = “Label2" 

Me.Label2.Size = New System.Drawing.Size(46, 13) 
Me.Label2.Tablndex = 2 
Me.Label2.Text = "Address* 

'Labell < 

Me. Label 1. AutoSize = True 

Me.Labell .Location = New System.Drawing.Point(8, 16) 

Me.Labell.Name = “Labell “ 

Me.Labell .Size = New System.Drawing.Size(34,13) 
Me.Labelt.Tablndex ±0 
Me.Labell .Text = “Name" 

i g !■■■'? 

'txtCSZ 

Me.txtCSZ.Anchor = ((System.Windows.Forms.AnchorStyles.Bottom Or 
System.Windows.Forms.AnchorStyles.Left) _ 

Or System.Windows.Forms.AnchorStyles.Right) 

Me.txtCSZ.Location = New System.Drawing.Point(88, 128) 

Me.txtCSZ.Name = "txtCSZ" 

Me.txtCSZ.Size = New System.Drawing.Size(288, 20) 
Me.txtCSZ.Tablndex = 5 
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Me.txtCSZ.Text = "" 

'txtAddress 

Me.txtAddress.Anchor = (((System.Windows.Forms. AnchorStyles.Top Or 
System.Windows.Forms.AnchorStyles.Bottom) _ 

Or System.Windows.Forms.AnchorStyles.Left) _ 

Or System. Windows.Forms.AnchorStyles.Right) 
Me.txtAddress.Location = New System.Drawing.Point(88, 40) 

Me.txtAddress.Multiline = True 
Me.txtAddress.Name = "txtAddress" 

Me.txtAddress.Size = New System.Drawing.Size(464, 80) 

Me.txtAddress.Tablndex = 3 
Me.txtAddress.Text = "" 

'txtName 

Me.txtName.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or 
System.Windows.Forms.AnchorStyles.L^t) _ 

Or System.Windows.Forms.AnchorStyles.Right) 

Me.txtName.Location = New System.Drawing.Point(88, 16) 

Me.txtName.Name = "txtName" 

Me.txtName.Size = New System.Drawing.Size(464, 20) 

Me.txtName.Tablndex = 1 
Me.txtName.Text = "" 

'frmControls 

Me AutoScaleBaseSize = New System.Drawing.Size(5, 13) 

Me.ClientSize = New System.Drawing.Size(568, 349) 

Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox2, 
Me TextBoxI, Me.Label3, Me.Label2, Me.Labell, Me.txtCSZ, Me.txtAddress, 

Me.txtName, Me.txtDockedBottom}) 

Me.Name = “frmControls" 

Me.Text = “Anchoring and Docked Controls" 

Me.ResumeLayout(False) 

End Sub 

• #End Region 

• End Class 
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frmGraphics.vb 

Imports System.Drawing 

Imports System.Drawing.Drawing2D 

Public Class frmGraphics 

Inherits System.Windows.Forms.Form 
Private drawX As Integer 
Private drawY As Integer 

• ' Code ph£t sinh form dUo'c bd qua 

Private Sub miDrawLine_Click(ByVai sender As System.Object, ByVal e As 
System.EventArgs) Handles miDrawLine.Click 

picDrawing.CreateGraphics().CIear(Me.BackColor) 

Dim g As Graphics = picDrawing.CreateGraphics() 

Dim p As New Pen(Color.Blue, 6) 
g.DrawLine(p, 100, 100, 50, 150) 
g.DisposeQ 
End Sub 

Private Sub frmGraphics_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
drawX = C!nt((ClientSize.Width / 2) + 50) 
drawY = Clnt((ClientSize.Height / 2) + 50) 

End Sub 

Private Sub miDrawCirc!e_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles miDrawCircle.Click 
picDrawing.CreateGraphics().CIear(Me BackCotor) 

Dim g As Graphics = picDrawing.CreateGraphics() 

Dim p As New Pen(Color.Red, 3) 
g.DrawEllipse(p, 120, 120, 100, 100) 
g.DisposeO 
End Sub 

Private Sub miDrawRectangle_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles miDrawRectangle.Click 
picDrawing.CreateGraphics().Clear(Me. BackCotor) 

Dim g As Graphics = picDrawing.CreateGraphicsQ 
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Dim p As New Pen(Color.Green, 3) 
g.DrawRectangle(p, 150, 150, 100, 100) 
g.DisposeO 
End Sub 

Private Sub miDrawText_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles miDrawText.Click 

picDrawing.CreateGraphics().Clear(Me.BackCoIor) 

Dim g As Graphics = picDrawing.CreateGraphicsQ 
g.DrawString(“VB.NET", New Font( u Ariar, 20), Brushes,Blue, 135, 135) 
g.DisposeO 

End Sub " 

Private Sub miDrawFancyText_Click(By\/al sender As System.Object, feyVai e As 
System.EventArgs) Handles miDrawFancyText.Click 

■' - ■ ■ ,j‘ , 

picDrawing.CreateGraphics().CIear(Me.BackColor) 

Dim g As Graphics = picDrawing.CreateGraphics() 

Dim bl As New SolidBrush(Color.FromArgb{80,10, 255, 100)) 
g.DrawString(“VB.NET“, New Font(“Arial*, 30), bl, 135, 135) 

Dim b2 As New SolidBrush(Color.FromArgb(80, 100, 255,100)) 
g.DrawString('VB.NET\ New Font('Arial\ 20), b2, 150, 150) 

Dim b3 As New SolidBrush(Color.FromArgb(80, 10, 255,100)) 
g.DrawStringCVB.NET", New Font('AriaP, 10), b3, 170, 170) 
g.DisposeO 
End Sub 
End Class 


91. Windows Management Instrumentation 

Chirong trinh nky chi c£ch suf dung Windows Management 
Instrumentation (WMI) trong Visual Basic NET. 


Ljjjjj Winde»»« Management Imhurnr-ntalton UPSET 


WMI Quern* j Asynchronous- Enurwabon | WXI Qm j 


Name WcotaO XP Prates «ona|0 \WIN00WSrD«vic«VHa?d(*sk0VPafWion2 

Nnuon. 51 2500 

MdnuJaclurei Wraosott Ccxpotolion 
Computer name NT^OOKSXP 
IWndcws Dvoctory D \W1N00WS 



Comoua 


Syttrrm 
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Cac chtte n3nq chinh: 

> WMI Queries: Sur dung class ManagementObjectSearcher de truy v£'n 
cdc thbng tin he thong: Operating System Name, Version, 
Manufacturer, Computer name, vk Windows Directory; Computer 
System Manufacturer, Model, System Type, vk Total Physical Memory; 
Processor name; Bios version; vik Time zone. 

> Asynchronous Enumerations: Trong nhi4u trucrng hop WMI dirge suf 
dung d£ lay mot lugng ldn duf lieu. Trong cAc trirdng hap nhu vay thao 
tAc dirge lam mot cdch khong ddng bo, cho phep giao dien ngirdi suf 
dung vik c Ac cong viec khdc dirge tiep tuc. Phin n&y chi each lay danh 
sdeh cAc dia logic va cac thuoc tinh cua chung stir dung class 
ManagementOperationObserver, vdi mot sgkien callback. 

> WMI Classes: Liet ke tat ca cAc class WMI cha vk tat c A cac class con 
sd dung cac class ManagementClass va EnumerationOptions. 


Project: Windows Management Instrumentation 

frmMain.vb 

Option Strict On 

Imports System 

' Them mdt Reference den namespace, va Imports de su dung cac doi tUdng WMI 
Imports System.Management 

Public Class frmMain 

Inherits System .Windows. Forms. Form 

Const CRLF As String = Chr(13) & Chr(10) 

' Code phat sinh form dUdc bo qua 

' LA'y thong tin BIOS 

Private Sub btnBios_Click{ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnBios.Click 

' Sit dyng cAu lenh SelectQuery d vi tri cua lenh SELECT 
Dim query As New SelectQuery(“Win32_bios") 
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’ ManagementObjectSearcher l£y mot t$p hgp cAc d6i ttfpng WMI di/a trSn query 
Dim search As New ManagementObjectSearcher(query) 

* HiSn thj tilng muc cua Win32_bios 
Dim info As ManagementObject 
For Each info In search.Get() 

txtOutput.Text = "Bios version: " & info(‘version“).ToString() & CRLF 
Next 
End Sub 

' LA'y thong tin he thong 

Private Sub btnComputerSystem_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnComputerSystem.Click 

' Trong trUdng hop nAy sti dung ISnh SELECT thay cho SelectQuery 
Dim search As New ManagementObjectSearcher( _ 

“SELECT * FROM Win32_ComputerSystem“) 


’ Hien thi 

Dim info As ManagementObject 
For Each info In search.Get{) 

txtOutput.Text = “Manufacturer: “ & info("manufacturer'').ToString() & CRLF 
txtOutput.Text += "Model: “ & info(“model“).ToString() & CRLF 
txtOutput.Text += "System Type: “ & info("systemtype'').ToString() & CRLF 
txtOutput.Text += “Total Physical Memory: ” & _ 
info(*totalphysicalmemory“).ToString() & CRLF 

Next 
End Sub 

' LA'y cac class WMI 

Private Sub btnClassEnum_Click{ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handies btnClassEnum.Click 
IstWMICIasses.Items.Clear() 

Dim root As New ManagementClass() 

' Neu co danh dA'u checkbox Subclasses thi ta lay tA't ci cac class con 
Dim options As New EnumerationOptionsQ 
options.EnumerateDeep = chklncludeSubcfasses. Checked 

' Hien thj cac class WMI 
Dim info As ManagementObject 
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For Each info In root.GetSubclasses(options) 

IstWMICIasses. Items. Add(info(“_Class")) 

Next 
End Sub 

' Lay thong tin he dieu h&nh 

Private Sub btnOperatingSytem_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnOperatingSytem.Click 
Dim search As New ManagementObjectSearcher( _ 

"SELECT * FROM Win32_OperatingSystem") 

Dim info As ManagementObject 
For Each info In search.Get() 

txtOutput.Text = "Name:" & info(*name’).ToString{) & CRLF 
txtOutput Text += "Version: “ & info("version").ToString() & CRLF 
txtOutput.Text += ‘Manufacturer: " & info(’manufacturer u ).ToString() & CRLF 
txtOutput.Text += "Computer name:" & info("csname‘).ToString() & CRLF 
txtOutput.Text += “Windows Directory:" & _ 
info("windowsdirectory").ToString() & CRLF 

Next 
End Sub 

' Thdng tin bd vi xCt ty 

Private Sub btnProcessor_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnProcessor.Click 

Dim query As New SeiectQuery(“Win32_processor") 

Dim search As New ManagementObjectSearcher(query) 

Dim info As ManagementObject 
For Each Info In search.Get() 

txtOutput.Text = "Processor: " & intof caption").ToStringO & CRLF 
Next 
End Sub 

' Thi/c hien viSc l£y cac 6 dia khong dong bo 

Private Sub btnStartEnum_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnStartEnum.Click 
lvDriveList.ltems.Clear() 

Dim disks As New ManagementClass("Win32_LogicalDisk") 
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' ManagementOperationObserver dim nhiem viec khdng ddng bd bkng cdch 
' sijf dyng mot ham callback 

Dim observer As New ManagementOperationObserver() 

* Them mot event handler cho observer de goi cho mSi 6 dia logic 
AddHandler observer.ObjectReady, AddressOf OnEnumObjectReady 
' Tra vS tip hgp tat ci cac dia logic 
disks.Getlnstances(observer) 

End Sub 

' Lay thing tin Time Zone 

Private Sub btnTimeZone_Click(ByVat sender As System.Object, ByVal e As 
System.EventArgs) Handles btnTimeZone.Click 

Dim query As New SelectQuery(‘Win32_timezOhe") 

Dim search As New ManagehientObjectSearcher(query) 

Dim info As ManagementObjedt 
For Each info In search.Get() 

txtOutput.Text = "Time zone: * & info(‘caption*).ToString() & CRLF 
Next 
End Sub 

' Thu tuc callback sti dung trong btnStariEnum_Click 
Sub OnEnumObjectReady(ByVal sender As Object, ByVal e As 
ObjectReadyEventArgs) 

’ Tao item mdi de cho vio DriveList ListView, vi ky tt/ 6 dia 
Dim item As New ListViewltem(e.NewObjett(*Name"j.ToString(), 0) 

’ Neu khdng co ten dia (A:, CD-ROM khdng cd dia) th) hiin thj k)/ ft/ 6 dia 
If Not lsNothing(e.NewObject("VolumeName")) then 
item. Subitems. Add(e.NewObject("VolumeName‘).ToString()) 
item.Subitems.Add(e.NewObject("Size').ToString() & “ bytes") 

' NSu la 0 byte, hien thj (none) 

If e.NewObject(“FreeSpace").ToString() <> "0" Then 
item.Subitems.Add(e.NewObject(‘FreeSpace").ToString() & “ bytes") 
Else 

item.Subitems. Add("(none)“) 

End If 
End If 

IvDriveList. Items. Add(item) 

End Sub 
■ End Class 
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92. Lam vi^c vtfi cac tfng dung Console 


ChifOng trinh n&y tao mtit ting dung console (giao titip bang dbng l^nh) sti 
dung co sti dti lieu. 



Cac chufc nfinq chfnh: 


> Chircmg trinh console n&y sti dung SQL Server, doc bring Products 
trong database Northwind v&o m$t dataset. Khi chucfng trinh chay, nti 
nh§n input tit ngtitii sti dung c6 thti \k Product ID hotic quit’. Neii nhgtp 
v&o quit’ thi chircmg trinh sfc thotit. Ntiu nhap v&o mOt ID dung (sti 
nguyen) thi thting tin cua Product duoc hitin thi. 

v' .'i I, " 

Project: Console application 


ModMain.vb Yjr n; . .c 1 


Option Strict On 

Imports System.Data.SqlClient 


Module modMain 

Private dsProducts As New DataSetQ 
Private dvProducts As DataView 

Private PROMPT_MESSAGE As String = “Enter a product ID to display information 
or 'QUIT' to end this application." 

Private WELCOME_MESSAGE As String = “Welcome to Console Product Finder* 


Private Const SQL_CONNECTION_STRING As String = 
“Server=lobalhost;“ & _ 

“DataBase=Northwind;“ & _ 

“Integrated Security=SSPI“ 
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Private Const MSDE_CONNECTION_STRING As String = _ 
"Server=(local)\NetSDK;" & _ 

"DataBase=Northwind;“ & _ 

"Integrated Security=SSPI" 

Sub Main{) 

Dim strlnput As String 
Dim indexData As Integer 

Console. WriteLine(WELCOME_MESSAGE) 

' Ket nd'i vio SQL Server , thiet tap DataSet chit a bing Products vi t$o 
' mot Stored View cua bing Products trSn trt/dng ProductID 
myConnectO 

Console.WriteLineO ‘ k 

Console.WriteLine(PROMPT_MESSAGE) 

4 

strlnput = UCase(Console.ReadLineO) 

While strlnput <> "QUIT" . 

’ KiSm tra dS bio dim Product ID li mdt s6 
While Not (IsNumeric(strlnput) Or UCase(strlnput) * ^QUIT") 

Console.WriteLine("A numeric product ID is required,") 

Console.WriteLine(’Please reenter the Product ID or QUIT to continue ") 
strlnput = Console. ReadLineO 
End While 

' Thoat 

If UCase(strlnput) = "QUIT" Then 
End 
End If 

' HiSn thi thdng tin Product neu s6 nh$p vao la mdt Product ID 
indexData = dvProducts.Find(strlnput) 

If indexData = -1 Then 

Console.WriteLine("No product found.") 

Else 

Console.WritefProduct Name: “) 

Console. WriteLine(dvProducts(indexData)("ProductName")) 
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Console.Write("Quantity Per Unit:*) 

Console. WriteLine(dvProducts(indexData)(“QuantityPerUnit“)) 

Console.WritefUnit Price: ") 

Console. WriteLine(dvProducts(indexData)("UnitP rice")) 

Console.WritefUnits In Stock: “) 

Console. WriteLine(dvProducts(indexData)(”UnitslnStock")) 

Console.WritefUnits on Order: ") 

Console. WriteLine(dvProducts(indexData)("UnitsOnOrder")) 

Console.WritefReorder Level:”) 

Console. WriteLine(dvProducts(indexData)(*ReorderLevel')) 

Console.WritefDiscontinued: “) 

If CBool(dvProducts(indexData)(“Discontinued“)) = False Then 
Console. WriteLinef False") 

Else 

Console. WriteLinefT rue") 

End If 
End If 

Console.WriteLine() 

Console. WriteLine(PROMPT_MESSAGE) 
strlnput = UCase(Console.ReadLine()) 

End While 
End 

End Sub 

Sub myConnectO 

Dim strConnection As String = SQL_CONNECTION_STRING 
* Hiin thi thing bio cho btft dang kit noi vio SQL Server 
Console. WriteLine('Attempting to Connect to SQL Server') 

' Kit ntfi vio SQL Server tn/do, ni'u khdng thinh cdng thi kit n6i vio MSDE 
\ Dftn IsConnecting As Boolean = True 
WhNe IsConnecting 
Try * 

*, 

’ Class SqlConnictfOti chophip trao d6i vdi SQL Server 
Dim northwindCbnnection As New SqlConnection(strConnection) 

■ SqlDataAdapter dUQc sO dyng dS thiS’t lip mdt DataSet 
Dim Product Adapter As New SqlDataAdapter( _ 




882 


— Coding Teclmiq iuv -- 

"SELECT * * & "FROM products", northwindCormection) 

1 ThiS't l$p DataSet vdi thdng tin trong being Products. Vi DataSet co 
' thS chda nhiSu t$p kS) qu£, do <36 ta cin d$t tin cho moi tap ket qua. 
ProductAdapter. FiIl(dsProducts, ‘ P roducts “) 

’ Tao DataView, sCf dgng constructor d£chi djnh di4u kiin s6p xi'p 
dvProducts = New DataViewtdsProducts.Tablesfproducts"), _ 

"ProductlD ASC", DataViewRowState.OriginalRows) 

' Di7 HSu da dupe l£y th&nh edng, thoSt vdng l$p 
IsConnecting = False 

’ Xii ly khi kSt n6i xiy ra l6i 
Catch exc As Exception 

If strConnection - SQL_CONNECTION_STRIN<3 Then 
strConnection = MSOE_CONNECTION_STRING 
Console.WriteLine(‘Attempting to Connecting to MSDE") 

Else 

Console. WriteLine("To run this sample, you must have SQL " & _ 

"or MSDE with the Northwind database installed. ") 

End 
End If 
End Try 
End While 

Console.WriteLine(*Connected to SQL Server") 

End Sub 
End Module 
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93. Stif dung cac GDI+ Brush 

Chirong trinh n&y cho thdy nhieu tinh nfing khi siif dung ddi Brush trong 
GDI+. 


iSODU Biuth 



Cac chufc nana chfnh: 

> Ngudi sd dung co the chon nhiSu tham so khdc nhau de hi§n thi Brush. 
Sau moi lan chon tham sd, hinh anh dude ve lai trong mot PictureBox. 
Mot sd tmh ndng cao cap di/gc ket hop vdi cdc doi tufgng 
PathLinearGradient. 

Project: GDI+ Brush 

frmMain.vb 

Option Strict On 

■ ' Drawing2D can su dung cho cac Brush se su dung 
Imports System.Drawing.Drawing2D 

Public Class frmMain 

Inherits System.Windows.Forms.Form 

Dim m_Brush As Brush 

• Dim m_Color1 As Color = Color.Blue ’ foreground color 



Dim m_Color2 As Color = Color.White ' background color 

Dim m_Pen As Pen 

Dim m_BrushSize As Rectangle 

Dim myGraphics As Graphics 

‘ Code phat sinh form dupe bo qua 

’ ChQn mau cho m_Color1 

Private Sub btnSetColorl _Click(ByVal sender As System Object, ByVal e As 
System.EventArgs) Handles btnSetColorl .Click 
Dim cdlg As New ColorDialogO 

If cdlg.ShowDialogO = DialogResult.OK Then 
m_Color1 = cdlg.Color 
txtColorl Text = cdlg.Color.ToStringO 
txtColorl .BackColor = cdlg.Color 
End If 

End Sub 

' Chon mau cho m Color2 

Private Sub btnSetColor2_Click(ByVal sender As System.Object. ByVal e As 
System.EventArgs) Handles btnSetColor2.Click 
Dim cdlg As New ColorDialogO 

If cdlg.ShowDialogO = DialogResult.OK Then 
m_Color2 = cdlg.Color 
txtColor2.Text = cdlg.Color.ToStringO 
txtColor2.BackColor = cdlg.Color 

End If 
End Sub 

' Thay do) kich thude cua brush 

Private Sub cboBrushSize_SelectedlndexChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
cboBrushSize.SelectedlndexChanged 
Select Case cboBrushSize.Text 
Case "Large" 

m_BrushSize = New Rectangle(0, 0, _ 

picDemoArea. Width, picDemoArea.Height) 
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Case ‘Medium* 

m_BrustiSiie = New Rectangle(0, 0, _ 
picDerhoArea.Width \ 2, picDemoArea.Height \ 2) 

Case “Small* 

m„BrushSize = New Rectangle(0, 0, _ 

picDemoArea.Width \ 4, picDemoArea.Height \ 4) 

End Select 

’ Goi RedrawPicture 

RedrawPicture(cboBrushSize, New EventArgsQ) 

End Sub 

Private Sub frmMain_ Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
Dim i As Integer 

' Gan BrushSize bring vdi toan PictureBox 
m_BrushSize = New Rectangle(0, 0, picDemoArea.Width, picDemoArea.Height) 

' Cho cac gia tri thich hop vao cac ComboBox 
‘ cboWrapMode 

cbo WrapMode. Items. Add(WrapMode. Clamp) 
cboWrapMode. Items. Add(WrapMode. Tile) 
cboWrapMode. Items. Add(WrapMode.TileFlipX) 
cboWrapMode.Items Add(WrapMode.TiieFlipY) 
cboWrapMode Items.Add(WrapMode.TileFlipXY) 

1 Gia tri HalchSlyle.Max khong dung trong NET. Gia tri chinh xac la 52 
Const maxHatchStyle As Integer = 52 
For i = HatchStyle.Min To maxHatchStyle 

cboHatchStyle. Items.Add(CType(i. HatchStyle)) 

Next 

' GradientStyles 

cboGradientMode. Items. Add(LinearGradientMode.BackwardDiagonal) 
cboGradientMode.ltems.Add(LinearGradientMode.ForwardDiagonal) 
cboGradientMode. Items. Add(LinearGradientMode. Horizontal) 
cboGradientMode. Items. Add(LinearGradientMode. Vertical) 

End Sub 
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Private Sub RedrawPicture(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cboBrushType.SelectedlndexChanged, 
cboDrawing.SelectedlndexChanged, txtColorl .TextChanged, 
cboWrapMode.SelectedlndexChanged, cboHatchStyle.SelectedlndexChanged. 
txtColor2.TextChanged. cboGradientMode. SelectedlndexChanged, 
nudRotation.ValueChanged, nudGradientBlend.ValueChanged 

' Reset PictureBox 

picDemoArea.CreateGraphics().CIear(Color.White) 

picDemoArea.Refresh() 

' Reset Status Bar 
sbrDrawingStatus.Text = “ 

' Xiy dnjng Brush vd'i cac thudc tinh do ngtfdi sti dung ch<?n. 

Select Case cboBrushType.Text 

Case ’Solid* ’ stir dtjng SolkJBrush 

' Cap nh$t Ul 

Me.cboBrushSize.Enabled = False 
Me. cboHatchStyle. Enabled = False 
Me.cboWrapMode.Enabled = False 
Me. txtColor2. Enabled = False 
Me.btnSetColor2.Enabled = False 
Me.nudGradientBlend.Enabled = False 
Me.nudRotation.Enabled = False 
Me.cboGradientMode.Enabled = False 

1 Tao mot SolidBrush dua trdn mdu dupe chQn 
Dim mySolidBrush As New SolidBrush(m_Color1 j 

1 Gan brush vua tao cho m_Brush 
m_Brush = mySolidBrush 

Case "Hatch* ‘ Sut dung Hatch Brush 
Me.cboBrushSize.Enabled = False 
Me.cboHatchStyle.Enabled = True 
Me.cboWrapMode.Enabled = False 
Me.txtColor2. Enabled = True 
Me.btnSetColor2.Enabled = True 
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Me.nudGradientBlend.Enabled = False ■' ' ■ 

Me.nudRotation.Enabled = False 

Me.cboGradientMode.Enabled = False ■< 1 

1 V 

’ Tao mdi mot HatchBrush sti dyng hai m£u Bdi v) thudc t(nh HatchStyle 
' la Read-Only nen HatchStyle phii duoc quydinh tuc t?o HatchBrush 
Dim myHatchBrush As New HatchBrush( _ 
CType(cboHatchStyle.Selectedltem, HatchStyle), _■ • 
m__Color1, m_Color2) 

m_Brush = myHatchBrush 

Case 'Texture” ‘ Sii dung TextureBrush 

Me.cboBrushSize Enabled = True 
Me.cboHatchStyle.Enabled = False 
Me.cboWrapMode.Enabled = True 
Me.txtColor2.Enabled = False 
Me btnSetColor2.Enabled = False 
Me.nudGradientBlend.Enabled = False 
Me. nudRotation. Enabled = True 
Me.cboGradientMode.Enabled = False 

1 Tao m6t TextureBrush dUa tren mot bitmap. 

Dim myTextureBrush As New TextureBrush( _ 

New BitmapC Awaterlilies-jpg 11 ), m_BrushSize) 

* WrapMode quySt dinh each trai brush 

myTextureBrush.WrapMode = CType(cboWrapMode.Selectedltem, _ 

WrapMode) 

’ Phtfdng thiic RotateTranslorm xoay Brush 
myTextureBrush. RotateTransform(nudRotation. Value) 

* Co thS sii dyng ScaleTransform dS bien d$ng brush 
4 myTexiureBrush.ScaleTransform(0.5F t 2.OF) 


m_Brush = myTextureBrush 
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Case "LinearGradient" ' Suf dyng LinearGradientBrush 

Me cboBrushSize Enabled = True 
Me. cboHatch Style. Enabled = False 
Me.Ck>oW^p.Mode. Enabled = True 
Me.txtColor2. Enabled = True 
Me.btnSetColor2. Enabled = True 
Me. nudGradtentBiend. Enabled = True 
Me.nudRotation. Enabled = True 
Me.cboQradientMode. Enabled = True 

' Tqo m$i mQt LinearGradientBrush 
Dim myLinearGradientBrush As New LinearGradientBrush( _ 
m_BrgshSi*e, m_Cok>r1, m_Color2, _ 
CType(cboGradientMode.Selectedltem, LinearGradientMode)) 

' LinearGradientBrush khdng th4 suf dung gia ttj CUtmp cho WrapMode 
if CTypefcboWrapMpde.SeJectedltem, WrapMode)<> WrapMode.Clamp Then 
myLinearGradientBcgsh.WrapMode «= _ 

CType(cboWcaplWxletGelected^ WrapMode) ; 

Else . 

Me.sbrDrawingStatus.Texfe+='_ 

'A Linear Gradient Brush cannot use the Clamp WrapMode." 

End If .. , 

1 > ■ : • I ■ 1 , 

rnyLinearGradientBrush.RotateTranafo.rrn(nudRotation.Value) 

myLinearGradientBrush.SetBlendTriangularShape( _ 
nudG radientBlend. Value) 

' Co the sit dung SetSigmaBellShape dS chi djnh t£m cua vung to 
' myLinearGradientBrush,SetSigmaBellShape(0.2) 

m_Brush = myLinearGradientBrush 

Case "PathGradient" ' Suf dung PathGradientBrush 
Me.cboBrushSize.Enabled = True 
Me.cboHatchStyle. Enabled = False 
Me.cboWrapMode. Enabled = True 



889 


Me.txtCok>r2.EnaWe<J = True 

Me.btnSetCotor2. Enabled = True ^ ■ ». - 

Me.nudGracHent8l*ndEnaWed = TrueF ; 

Me.nudRotatiQn.Enabted ^Tru# v / ' • r ■ 

Me.cboGradientMode.Enabled = False • 

' Dirth nghta mot tip cac di£m lam dating din cho kiSu 16 niy. 
Dim pathPoint() As Point = {New Point(O t m_BHJShSize.Height), _ 
New Point(m_BrushSize.Width, m_BrushSi 2 e.Height), _ 

New Point(m_BrushSize.Width, 0)} 

' Tao mdi mot PathGradientBrush dUa tren dudng dan da tao 
Dim myPathGradientBrush As New PathGradientBrush(pathPoint) 

myPathGradientBrush.CenterColor = m_Color1 
myPathGradientBrush.SurroundColors = New Color() {m_Co!or2} 


myPathGradientBrush. WrapMode = _ 

CType(cboWrapMode.Selectedltem, WrapMode) 

myPathGradientBrush.RotateTransform(nudRotation. Value) 

myPathGradientBrush.SetBlendTriangularShape( _ 
nudGradientB lend. Value) 

m_Brush = myPathGradientBrush 
End Select 


‘ Si) dung m_Brush de ve anh thich hpp vio picDemoArea 
myGraphics = picDemoArea. CreateGraphicsQ 

' Chon kieu ve 

Select Case cboDrawing.Text 
Case “Fill" 

' To to bn bo PictureBox 
myGraphics.FillRectangle(m_Brush, 0, 0, _ 
picDemoArea.Width, picDemoArea.Height) 
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Case "Ellipses" 

' Ve hai elip giao nhau 

myGraphics.FillEllipse(m_Brush, picDemoArea.Width \ 10, _ 
picDemoArea.Height V10, picDemoArea.Width \ 2, _ 
picDemoArea.Height \ 2) ' 

myGraphics.FillEllipse(m_Brush, picDemoArea.Width \3, _ 
picDemoArea.Height \ 3, picDemoArea.Width \2, _ 
picDemoArea. Height \ 2) 

Case "Lines" 

' Ve cac dddng thing cit rihat) ., 

1 Tao Pen dua trSn Bmsh 
Dim myPen As New Pen{m_Brush, 40) 

' Ve tiJ goc ndy din gdc kia 
myGraphics.DrawLine( _ 

myPen, 0, 0, picDemoArea.Width, picDemoArea.Height) 
myGraphics.DrawLine(myPen, 0, 0, 0, picDemoArea.Height) 
myGraphics.DrawLine(myPen, 0. 0, picDemoArea.Width, 0) 
myGraphics.DrawLine(myPen, pibDemoArea.Width, 0 , _ 
picDemoArea.Width, picDemoArea. Height) L 
myGraphics.DrawLine(myPen, 0, picDemoArea.Height, _ 
picDemoArea. Width, ptcDerhoAreaHeight) 
myGraphics.DrawLine(_ 

myPen, picDemoArfca^Width, 0, 0, f)icDemoAreia.H6ight) 
End Select , 1 

It Me.sbrDrawingStatus.Text = " Then 
Me.sbrDrawingStatus.Text = "Success!" 

End If 
End Sub 

End Class . . 
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94. GDI+ Text 

Chiiong tr'rnh n&y cho thdy nhieu kh& nftng khi sur dung GDI+ d6 lam vi£c 
vdi van ban. 



Cac chufc nanq chmh: 

> Tao van ban dtfa tren cdc doi tuong Brush. 

> Tao hieu ufng do bong (shadow). 

> Tao hieu ufng tram n6'i hoac kh^c (embossed hodc engrave). 

> Tao van ban khoi. 

>• Tao hieu ufng bi keo (shear). 

> Tao hieu ufng phan chieu (reflect). 

> Suf dung DrawString de ve van ban vao PictureBox. 

Project: GD1+ Text 

frmMain.vb 

Option Strict On 

Imports System.Drawing.Drawing2D 

Public Class frmMain 

Inherits System.Windows. Forms.Form 











i, 
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■ ’ Code phat sinh form difgc bo qua 
' Ve van ban dgng khoi 

Private Sub btnBlockText_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnBlockText.Click 
Dim textSize As SizeF 
Dim g As Graphics 

Dim myBackBrush As Brush = Brushes.Black 

Dim myForeBrush As Brush = Brushes.Aquamarine 

Dim myFont AfsNpy F6ni(*Times New Roman", Me.nudFontSize.Value, 

FontStyle. Regular) k 

Dim xLocation, yLocation As Single 
Dim i As Integer 

’ Tao 66'i tugng Graphics tit PictureBox 
g = picDemoArea. CreateGraphicsO 
g.Clear(Color.White) 

' LS'y kich thitdc 64 vS Sample Text 

textSize = g.MeasureString(Me.txtShbrtText.Text, myFont) > 

xLocation = (picDemoArea.Width - textSize.Width) / 2 
yLocation = (picDemoArea.Height - textSize.Height) / 2 

For i = Clnt(oudBlockDeptft. Value) To 0 Step -1 

g.DrawString(txtShoftText.Text, myFont, myBackBrush, _ 
xLocation - i, yLocation + i) 

Next 

g.DrawString(txtShortText Text, myFont, myForeBrush, xLocation, yLocation) 

End Sub 

' Ve Sample Text bang Brush (Hatch ho$c Gradient) 

Private Sub btnBrushText_Click(ByVal sender As System Object, ByVal e As 
System-EventArgs) Handles btnBrushText.Click 

Dim textSize As SizeF 

Dim g As Graphics 

Dim myBrush As Brush 

Dim gradientRectangle As RectangleF 
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Dim myFont As New Font("Times New Roman", Me.nudFontSize.Value, 
FontStyle.Regular) 

g = picDemoArea.CreateGraphics() 
g.Clear(Color.White) 

textSize = g.MeasureString(Me.txtShortText.Text, myFont) 

' Tao Brush 

If Me.optHatch.Checked Then 

myBrush = New HatchBrush(HatchStyle.DiagonalBrick, _ 

Color.Blue, Color.Yellow) 

Else 

' Tao LinearGradientBrush 

gradientRectangle = New RectangleF(New PointF(0, 0), textSize) 
myBrush = New LinearGradientBrush(gradientRectangle, Color.Blue, _ 
Color Yellow, LinearGradientMode.ForwardDiagonal) 

End If 

' Ve van ban 

g.DrawString(txtShortText.Text, myFont, myBrush, _ 

(picDemoArea.Width - textSize.Width) / 2, _ 

(picDemoArea. Height - textSize.Height) / 2) 

End Sub 

' Tao van ban Emboss. Dau tien ve mau den va mot khoang each, sau do ve 
' mau trdng, Id mau nen hien hdnh. 

Private Sub btnEmboss_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnEmboss.Click 
Dim textSize As SizeF 
Dim g As Graphics 

Dim myBackBrush As Brush = Brushes.Black 
Dim myForeBrush As Brush = Brushes.White 

Dim myFont As New Font(Times New Roman", Me.nudFontSize.Value, 
FontStyle.Regular) 

Dim xLocation, yLocation As Single 

g = picDemoArea. CreateGraphicsQ 
g.Clear(Color. White) 
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textSize = g.MeasureString(Me.txtShortText.Tftxt, rnyPont)' : r ' 


xLocation = (picDemoArea.Width - textSize.Width) / 2 
yLocation = (picDemoArea.Height - textSiZe.'Height) / 2 



' Ve mau Den lam miu n4n cua vin bin, nSu thay Bing gii tri mudEmbpssDepth 
' bang gia trj am se cho hipu ting Engrave _ , - 


g Draw$tring(txtShortText.Text, myFont, myBackBrush, _ 
xLocation + Me.nudEmbossDepth.Value, I 


yLocation + Me.nudEmbossDepth.Value) J 




, t r''' v ; 

^ ‘ vy 1 *'' ' r - , 'T 4 

' Ve vin ban miu trihg phla trin yin ban miu&en " ‘. - , v 

g.DrawString(txtShortText.Text, myFont, myForeBrush. xLocation, yLocation) 

r,, v, V\fvv . ; 

End Sub . . ' 


' Phan chrS'u v£n bin '.•“ 

P rivate Sub btnReflectedffext_CliCk(ByVat sender a! System.Object, ByVal e As 
System.EventArgs) Handles btnReflectedText. Click 
Dim textSize As SizeF 
Dim g As Graphics 

Dim myBackBrush As Brush s fhrushes.Gray ' ' 

Dim myForeBrush As Brush = Brushes Black 1 
Dim myFont As New Font("Tlmes Nevtf 1 Roman*, Me.nttdFontSiza.VaWe, 
FontStyle.Regular) •' 1 

* Su dung de li/u trang thai hiin hinh cua Graphics 
Dim myState As GraphicsState 

' Dung de Idu vj tri ’ 

Dim xLocation, yLocation As Single / c... 

Dim textHeight As Single ■' r ' 

Dim i As Integer 

g = picDemoArea.CreateGraphicsQ 
g.Clear(Color. White) 


textSize = g.MeasureString(Me.txtShortText.Text, myFont) 


xLocation = (picDemoArea.Width - textSize.Width) / 2 
yLocation = (picDemoArea.Height - textSize.Height) / 2 




g.TranslateTransform(xLocation, yLocation) 
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Dim lineAscent As Integer 
Dim lineSpacing As Integer 
Dim lineHeight As Single 

lineAscent = myFont FontFamily GetCellAscentfmyFont Style) 
lineSpacing = myFont FontFamily Getl_ineSpacing(myFont.Style) 
lineHeight = myFont.GetHeight(g) 
textHeight = lineHeight ' lineAscent / lineSpacing 

' B6 cac ghi chu ben dudi de phdn chieu thap hon cac ky tu 
'Dim lineDescent As Integer 

'lineDescent = my Font. FontFamily. GetCellDescent(my Font. Style) 

'textHeight = lineHeight ’ (lineAscent + lineDescent) / lineSpacing 

1 Luu trang that Graphics 
myState = g.SaveQ 

1 De ve phan chieu, sd dung ScaleTransform vdi gia tri am. Su dung -1 se 
' phin chieu ma khong co su meo mo. 
g.Sca!eTransform(1. -1 OF) ' Chi phan chieu hudng Y 
g.DrawString(txtShortText Text, myFont. myBackBrush. 0, -textHeight) 

' Reset Graphics trudc khi ve 
g Restore(myState) 

' Ve van ban chinh 

g.DrawString(txtShortText Text. myFont, myForeBrush, 0. -textHeight) 

End Sub 

’ Tao Sample Text vdi mot brush va do bong 

Private Sub btnShadowText_ Click(ByVal sender As System.Object. ByVal e As 
System EventArgs) Handles btnShadowText.Click 
Dim textSize As SizeF 
Dim g As Graphics 

Dim myShadowBrush As Brush = Brushes.Gray 
Dim myForeBrush As Brush = Brushes Black 

Dim myFont As New Font(“Times New Roman". Me.nudFontSize.Value, 
FontStyle. Regular) 

Dim xLocation, ylocation As Single 1 Used for the location 


g = picDemoArea.CreateGraphicsO 
g.Clear(Co!or. White) 


textSize = g.MeasureString(Me.txtShortText.Text. myFont) 

xLocation = (picDemoArea.Width - textSize.Width) /2 
yLocation = {picDemoArea Height - textSize Height) / 2 

' Ve bong trudc 

g.DrawString(txtShortText.Text, myFont, myShadowBrush. _ 
xLocation + Me.nudShadowDepth.Value. _ 
yLocation + Me.nudShadowDepth.Value) 

’ Ve van ban chinh phia tren bong 

g.DrawString(txtShortText.Text, myFont, myForeBrush, xLocation, yLocation) 
End Sub 

' Tao hieu Ling keo vin bin 

Private Sub btnShearText_C!ick(ByVal sender As System.Object. ByVal e As 
System.EventArgs) Handles btnShearText.Click 
Dim textSize As SizeF 
Dim g As Graphics 

Dim myForeBrush As Brush = Brushes.Black 

Dim myFont As New Font("Times New Roman". Me nudFontSize Value, 
FontStyle.Regular) 

Dim myTransform As Matrix * Su dung de keo van ban 
Dim xLocation, yLocation As Single 
Dim textHeight As Single 
Dim i As Integer 

g = picDemoArea.CreateGraphicsO 
g.Clear(Color White) 

textSize = g.MeasureString(Me txtShortText.Text, myFont) 

xLocation = (picDemoArea.Width - textSize.Width) / 2 
yLocation = (picDemoArea.Height - textSize.Height) / 2 

g.TranslateTransform(xLocation, yLocation) 



897 


' Thyc hien Shear 

myTransform = g Transform 
myTransform.Shear(nudSkew.Value. 0) 
g.Transform = myTransform 

' Ve van ban 

g.DrawString(txtShortText.Text, myFont, myForeBrush, 0, 0) 

End Sub 

' Hien thi cac dong van ban tren Picture Box 

Private Sub btnSimpleText_Click(ByVal sender As System.Object, ByVal e As 
System EventArgs) Handles btnSimpleText.Click 
Dim textSize As SizeF 
Dim g As Graphics 

Dim myForeBrush As Brush = Brushes.Black 

Dim myFont As New FontfTimes New Roman". Me.nudFontSize.Value, 
FontStyle.Regular) 

Dim textHeight As Single 
Dim i As Integer 

g = picDemoArea.CreateGraphics() 
g.Clear(Color.White) 

textSize = g.MeasureString(txtLongText.Text. myFont) 

’ Ve van ban 

g.DrawString(txtLongText Text. myFont, myForeBrush. 

New RectangleFfO. 0, picDemoArea.Width. picDemoArea.Height)) 

End Sub 
End Class 



95. Stf dung cac file Resource 

Chucmg trinh nay chi cdch sur dung cac file resource (file tai nguyen) va 
thuoc tinh "localizable" ciia form de ban dia hoa ufng dung. 


5«favt 4 luc atari fount* vrtba 

•—* ysasssaMMg^^,,. »jej *j 



> Chucmg trinh cho thay ta co the dia phdcfug hoa mot dug dung b&ng 
each sl 1( dung cac thuoc tinh language va localizable cua form. Chuong 
trinh se hien thi mot form tirang dng vdi thong tin do ngdch sur dung 
chon. 

Chu v: 

Trubc lien, chon thuoc tinh localizable la True. Tiep then, tao file 
resource cho tung dia phdcrng bdng each chon thuoc tinh Language. Trinh 
thiet ke se tu dong tao ra mot file .rsx, siif dung ResEditor.exe de soan thao 
file resource (Xem them v£ Resource trong MSDN). 


Project; Resource Files 





frmMain.vb 

Option Strict On 

Imports System.Threading 

Imports System.Globalization 


Public Class frmMain 

Inherits System.Windows.Forms.Form 

' Code phat sinh form dupe bo qua 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button2.Click 

Thread.CurrentThread.CurrentUlCulture = New CulturelnfoQfr-FR’) 

Dim frmData As New frmDataEntry() 

frmData.ShowDialog() 

End Sub 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button3.Click 

Thread.CurrentThread.CurrentUICulture = New Culturelnfo("es-ES") 
Dim frmData As New frmDataEntryQ 
frmData.ShowDialogO 
End Sub 

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button4.Click 

Thread.CurrentThread.CurrentUICulture = New Culturelnfo(*it-IT") 
Dim frmData As New frmDataEntryQ 
frmData.ShowDialogQ 
End Sub 

Private Sub Buttont_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Buttonl .Click 

Thread CurrentThread.CurrentUlCulture = New Culturelnfofen-US") 
Dim frmData As New frmDataEntryO 
frmData. ShowDialogO 
End Sub 
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frmDataEntry.vb 

Option Strict On 

Imports System.Globalization 

Public Class frmDataEntry 

Inherits System.Windows.Forms.Form 
Private dt As New DataTable("Names") 

' Code phat sinh form dOdc bo qua 

Private Sub cmdQuit_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdQuit.Click 
Me.CloseQ 
End Sub 

Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles cmdSave.Click 
Dim myDataRow As DataRow 

1 Tao mot dong mdi cho DataTable 
myDataRow = dt.NewRowQ 
' Cho dO lieu vao 

myDataRow.ltem(“Name‘') = txtName.Text 
myDataRow. ItemfCity'') = txtCity.Text 
’ Cho dong mdi vao DataTable 
dt. Rows. Add(my DataRow) 

End Sub 

Private Sub frmDataEntry_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
' Tao dao dien cho Grid 
dt. Columns. AddfName") 
dt. Columns. AddfCity") 
grdPeople.DataSource = dt 
End Sub 

End Class 
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